<%
If Request("LOGON_USER") = "" Then
Response.Status = "401 Unauthorized"
response.end
else
loginid=Request.ServerVariables("LOGON_USER")
if instr(loginid,"\") > 0 then loginid=mid(loginid,instr(loginid,"\")+1)
set objConn=Server.CreateObject("ADODB.Connection")
objConn.provider="Microsoft.Jet.OLEDB.4.0;"
objConn.open "C:\Inetpub\departments\studentaffairs\sa\fpdb\voting07.mdb"
set objRec = server.createobject("ADODB.RecordSet")
objRec.Open "voting1", objConn, 3,3
Do while not objRec.EOF
if objRec("loginID") = loginid then
rExists = true
Exit Do
end if
objRec.MoveNext
Loop
objRec.Close
objConn.Close
set objRec = nothing
set objConn = nothing
If rExists = true then
response.write "Sorry, you have already taken the voting. You don't need to take it again."
else
%>
2007 King and Queen
2007 King & Queen
CONGRATULATIONS TO MICHAEL ANDERSON &
NICOLE LINGEMANN, OUR 2007 KING & QUEEN, AND
TO ALL OF OUR CANDIDATES FOR
BEING NOMINATED!
Last Updated:
September 26, 2007
<%
end if
end if
%>