%
' Detect whether users household has already answered survey based on cookie in cache
' If they have already answered then redirect them to page to let them know
' If Request.Cookies("Survey") = "True" Then Response.Redirect "p3_householdComplete.asp"
%>
Beanie Kids Survey
<%
If Request.Querystring("QC") = "" Then Response.Redirect "p2_questionnaire.asp?QC=1"
Set Con = Server.CreateObject("ADODB.Connection")
Set rsQuery = Server.CreateObject("ADODB.Recordset")
Path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Path = Path & Server.MapPath("survey.mdb") & ";Mode=ReadWrite;Persist Security Info=False"
Con.Open Path
Set rsQuery = Con.Execute("SELECT * FROM QDB ORDER BY ID ASC")
i = 0
While Not rsQuery.EOF
i = i + 1
rsQuery.MoveNext
Wend
%>