<%
Dim connectstr, Pconnectstr, Qconnectstr, totalscreens
Dim oConn
Dim oRS
Dim table
totalscreens = 13
connectstr = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=000.000.000.000; DATABASE=abc; UID=abc;PASSWORD=abc; OPTION=3;charset=utf-8"
Dim RID, AID, Status, ReRID, ReAID, approved
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open connectstr
qry = "SELECT * FROM Respondents ORDER by LName,FName"
Set oRS = oConn.Execute(qry)
if not oRS.EOF then
while not oRS.EOF
RID = oRS("RID")
AID = oRS("AID")
ReRID = request("RID")
ReAID = request("AID")
Session.timeout=120
Session("RID") = ReRID
Session("AID") = ReAID
Status = oRS("Status")
If RID = ReRID AND AID = ReAID Then
approved = "1"
If Left(Status,6) <> "screen" AND Status <> "done" AND Left(Status,3) <> "QS2" Then
Response.redirect("screen0.asp")
End If
If Left(Status,6) = "screen" OR Left(Status,3) = "QS2" Then
Response.redirect(Status)
End If
Else
'Response.redirect("authfailed.asp")
End If
oRS.movenext
wend
oRS.close
end if
Set oRs = nothing
Set oConn = nothing
If approved <> "1" Then
Response.redirect("authfailed.asp")
End If
%>
Ivey Survey
Your survey was completed.
Thank you!
|