<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' questions.asp
'
' Written by Brian Balestri
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Call Main
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Sub Main
'
' Processing for this page starts in this routine. It
' contains a dispatcher to call the appropriate routine,
' based on what function was needed.
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Main
Dim cnDB ' As ADODB.Connection
Set cnDB = OpenDB()
Select Case Request(ACTION)
Case ACTION_UPDATE_SAVE
UpdateSave cnDB
Case Else
BuildForm cnDB
End Select
cnDB.Close
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Sub BuildForm
'
' This routine displays a data entry and display form. It
' is used for the create, retrieve, and update modes.
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub BuildForm(cnDB)
Dim strSchooling
Dim strWorstJob
Dim strRegrets
Dim strCrush
Dim strWishDate
Dim strPolitics
Dim strTimesMarried
Dim strReligion
Dim strJobFeelings
Dim strOrientation
Dim strPrison
Dim strUserName
Dim strTitle
Dim strNotice
Dim strAction
Dim strSQL
Dim rsData ' As ADODB.Recordset
If Request.Cookies("Reunion")("UserName") <> "" Then
strTitle = "WARNING!"
strNotice = "You should really " _
& "log out before answering these questions. " _
& "Otherwise they won't be anonymous. The Logout button is in the " _
& "upper right corner. Once you have logged out, come back " _
& "to the I Never... page and answer the questions."
Else
strTitle = "Fun Facts Survey"
strNotice = "The following questions are just for fun. " _
& "They are totally anonymous so please be honest.
" _
& "After you are finished answering the questions " _
& "go to the Fun Facts page to see the results.
"
End If
If Request.Cookies("SysMod") = "" Then
PrintHeader "Under Construction"
WL "Sorry for the inconvenience, but this page is " _
& " currently under construction.
Please check back again later.
"
PrintFooter
Exit Sub
End If
strUserName = Request.Cookies("SysMod")
strAction = ACTION_UPDATE_SAVE
strSQL = "SELECT * FROM tblContacts " _
& "WHERE (UserName Like " & DQ & strUserName & DQ & ")"
Set rsData = cnDB.Execute(strSQL)
strSchooling = ""
strWorstJob = ""
strRegrets = ""
strCrush = ""
strWishDate = ""
strPolitics = ""
strTimesMarried = ""
strReligion = ""
strJobFeelings = ""
strOrientation = ""
strPrison = ""
rsData.Close
Set rsData = Nothing
PrintHeader strTitle
WL "