<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Results.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()
CheckCookie
Select Case Request(CHART)
Case "Married"
Retrieve cnDB, " - Single or Married", "Married", "T"
Case "NoOfKids"
Retrieve cnDB, " - Number of Kids", "NoOfKids", "T"
Case "Pets"
Retrieve cnDB, " - Types of Pets", "Pets", "T"
Case "Hobbies"
Retrieve cnDB, " - Types of Hobbies", "Hobbies", "T"
Case "Industry"
Retrieve cnDB, " - Where We Work", "Industry", "T"
Case "JobFunction"
Retrieve cnDB, " - What We Do", "JobFunction", "T"
Case "City"
Retrieve cnDB, " - Where We Live (Cities)", "City", "T"
Case "State"
Retrieve cnDB, " - Where We Live (States)", "State", "T"
Case "Status"
Retrieve cnDB, " - How Many Plan to Attend", "Status", "T"
Case "StillFriends"
Retrieve cnDB, " - We Still Hang With...", "StillFriends", "T"
Case "FavTeacher"
Retrieve cnDB, " - Who Taught Us Well", "FavTeacher", "T"
Case "WorstTeacher"
Retrieve cnDB, " - Who Did Not Teach Us So Good", "WorstTeacher", "T"
Case "FavQuote"
Retrieve cnDB, " - Quotes to Live By", "FavQuote", "M"
Case "FavMemory"
Retrieve cnDB, " - Those Were the Days", "FavMemory", "M"
Case "WorstMemory"
Retrieve cnDB, " - Man Am I Glad to Be Outta There", "WorstMemory", "M"
Case "FavWebsite"
Retrieve cnDB, " - Where We Like to Surf", "FavWebsite", "T"
Case "Schooling"
Retrieve cnDB, " - Schooling After High School", "Schooling", "T"
Case "WorstJob"
Retrieve cnDB, " - You Want Me to Do WHAT?!?", "WorstJob", "T"
Case "Regrets"
Retrieve cnDB, " - If We Could Do It Over", "Regrets", "M"
Case "Crush"
Retrieve cnDB, " - They Never Knew", "Crush", "T"
Case "WishDate"
Retrieve cnDB, " - Hey Check Me Out", "WishDate", "T"
Case "Politics"
Retrieve cnDB, " - You Voted for Who?", "Politics", "T"
Case "TimesMarried"
Retrieve cnDB, " - We do...and do...and do", "TimesMarried", "T"
Case "Religion"
Retrieve cnDB, " - Who We Worship", "Religion", "T"
Case "JobFeelings"
Retrieve cnDB, " - Take This Job and ...", "JobFeelings", "T"
Case "Orientation"
Retrieve cnDB, " - Hey Good Lookin" & SQ, "Orientation", "T"
Case "Prison"
Retrieve cnDB, " - We Did Hard Time", "Prison", "M"
Case Else
Retrieve cnDB, " about the Class of 1982", "", ""
End Select
cnDB.Close
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Sub Retrieve
'
' This routine lists all records of this data type. It
' also provides actions to create, retrieve, update, and
' delete records.
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Retrieve(cnDB, strTitle, strField, strType)
Dim rsData ' As ADODB.Recordset
Dim strSQL
Dim strQuery
Dim i
Dim k
i = 0
If strField <> "" Then
If strType = "T" Then
strSQL = "SELECT Count(pkContactID) AS CountOfpkContactID, " & strField _
& " FROM tblContacts " _
& "GROUP BY " & strField _
& " ORDER BY Count(pkContactID) DESC , " & strField
Else
strSQL = "SELECT " & strField & " FROM tblContacts"
End If
Set rsData = cnDB.Execute(strSQL)
End If
PrintHeader "Fun Facts" & strTitle
'''''''''''''''''''''''''''''''''''
' build search box
'
'''''''''''''''''''''''''''''''''''
WL ""
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Build chart based on passed parameters.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
WL "
"
WL "
"
If strField <> "" Then
Do Until rsData.EOF
If rsData(strField) <> "" Then
''''''''''''''''''''''''''''''''''''''''''''''
' Alternates row colors. In the future use
' Mod 2 for this task.
'
'''''''''''''''''''''''''''''''''''''''''''''''
i = i + 1
If Round((i / 2),0) = (i / 2) Then
WL "