<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Classmates.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(ACTION) Case ACTION_RETRIEVE BuildForm(cnDB) Case Else Retrieve(cnDB) 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) Dim rsData ' As ADODB.Recordset Dim strSQL ' As String Dim strURL ' As String Dim strGroup Dim strSearch Dim strSearch2 Dim strSearchText Dim i Dim datNewClassmates Dim datModDate datNewClassmates = DateAdd("d", -6, Date()) strSearch2 = "" i = 0 strGroup = Request.querystring("g") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Check to see if more than one word was passed with the ' search string. ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If InStr(Request.querystring("q"), " ") > 0 Then strSearch = Left(Request.querystring("q"), (InStr(Request.querystring("q"), " ")-1)) strSearch2 = Mid(Request.querystring("q"), (InStr(Request.querystring("q"), " ")+1), 50) Else strSearch = Request.querystring("q") strSearch2 = "" End If If strSearch <> "" Then ''''''''''''''''''''''''''''''''''''''''''''''''''' ' Changes the SQL string to select by search text ' based on whether one or two words was entered. ' ''''''''''''''''''''''''''''''''''''''''''''''''''' If strSearch2 <> "" Then strSQL = "SELECT * FROM tblContacts " _ & "WHERE (FirstName Like " & DQ & "%" & strSearch & "%" & DQ _ & "AND LastName Like " & DQ & "%" & strSearch2 & "%" & DQ & ")" _ & "ORDER BY LastName, FirstName" Else strSQL = "SELECT * FROM tblContacts " _ & "WHERE (FirstName Like " & DQ & "%" & strSearch & "%" & DQ _ & "OR LastName Like " & DQ & "%" & strSearch & "%" & DQ _ & "OR CompanyName Like " & DQ & "%" & strSearch & "%" & DQ _ & "OR ContactNotes Like " & DQ & "%" & strSearch & "%" & DQ & ") " _ & "ORDER BY LastName, FirstName" End If Else If strGroup <> "" Then '''''''''''''''''''''''''''''''''''''''''''''' ' changes the SQL string to select by alphabet ' group (A,B,C,etc.) ' '''''''''''''''''''''''''''''''''''''''''''''' strSQL = "SELECT * FROM tblContacts " _ & "WHERE (((Left(Left([tblContacts]![LastName],1)" _ & "& Left([tblContacts]![FirstName],1),1)) Like " _ & DQ & strGroup & DQ & "))" _ & "ORDER BY LastName, FirstName" Else ''''''''''''''''''''''''''''''''''''''''''''''' ' If neither the search box or alphabet group ' has been selected, SELECT Frequently Called ' Contacts ' ''''''''''''''''''''''''''''''''''''''''''''''' strSQL = "SELECT * FROM tblContacts " _ & "ORDER BY LastName, FirstName" End If End If Set rsData = cnDB.Execute(strSQL) PrintHeader "Class of 1982" ''''''''''''''''''''''''''''''''''' ' build search box ' ''''''''''''''''''''''''''''''''''' WL "

" '''''''''''''''''''''''''''''''''''''''''''''''''' ' adds the alphabet groups to the top of the page ' '''''''''''''''''''''''''''''''''''''''''''''''''' WL "

" WL "A - " WL "B - " WL "C - " WL "D - " WL "E - " WL "F - " WL "G - " WL "H - " WL "I - " WL "J - " WL "K - " WL "L - " WL "M - " WL "N - " WL "O - " WL "P - " WL "Q - " WL "R - " WL "S - " WL "T - " WL "U - " WL "V - " WL "W - " WL "X - " WL "Y - " WL "Z" WL "

" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" Do Until rsData.EOF '''''''''''''''''''''''''''''''''''''''''''''' ' Alternates row colors. In the future use ' Mod 2 for this task. ' ''''''''''''''''''''''''''''''''''''''''''''''' i = i + 1 If Round((i / 2),0) = (i / 2) Then WL "" Else WL "" End If '''''''''''''''''''''''''''''''''''''''''''''''''' ' Display email icon if email field is populated. ' '''''''''''''''''''''''''''''''''''''''''''''''''' WL "" ''''''''''''''''''''''''''''''''''''''''''''''''''' ' Decide whether to display last name, first name ' or company name. ' ''''''''''''''''''''''''''''''''''''''''''''''''''' WL "" WL "" WL "" WL "" WL "" WL "" rsData.MoveNext Loop rsData.Close PrintFooter 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 lngContactID Dim strFirstName Dim strLastName Dim strCurrLastName Dim strEmail Dim strKeepPrivate Dim strAddress1 Dim strAddress2 Dim strCity Dim strState Dim strZipCode Dim strHomePhone Dim strWebsite Dim strMarried Dim strNoOfKids Dim strPets Dim strHobbies Dim strJobTitle Dim strCompanyName Dim strBizPhone Dim strIndustry Dim strJobFunction Dim strStatus Dim strStillFriends Dim strHopingToSee Dim strStaying Dim strFavTeacher Dim strWorstTeacher Dim strFavMemory Dim strWorstMemory Dim strFavQuote Dim strFavWebsite Dim strContactNotes Dim strTitle Dim rsData ' As ADODB.Recordset lngContactID = Request("ID") Set rsData = _ cnDB.Execute("SELECT * FROM tblContacts " _ & "WHERE pkContactID = " & CInt(lngContactID)) strFirstName = rsData("FirstName") strLastName = rsData("LastName") strTitle = strFirstName & " " & strLastName _ & " - Back to Classmates List" strCurrLastName = rsData("CurrLastName") strEmail = rsData("Email") strKeepPrivate = rsData("KeepPrivate") strAddress1 = rsData("Address1") strAddress2 = rsData("Address2") strCity = rsData("City") strState = rsData("State") strZipCode = rsData("ZipCode") strHomePhone = rsData("HomePhone") strWebsite = rsData("Website") strMarried = rsData("Married") strNoOfKids = rsData("NoOfKids") strPets = rsData("Pets") strHobbies = rsData("Hobbies") strJobTitle = rsData("JobTitle") strCompanyName = rsData("CompanyName") strBizPhone = rsData("BizPhone") strIndustry = rsData("Industry") strJobFunction = rsData("JobFunction") strStatus = rsData("Status") strStillFriends = rsData("StillFriends") strHopingToSee = rsData("HopingToSee") strStaying = rsData("Staying") strFavTeacher = rsData("FavTeacher") strWorstTeacher = rsData("WorstTeacher") strFavMemory = rsData("FavMemory") strWorstMemory = rsData("WorstMemory") strFavQuote = rsData("FavQuote") strFavWebsite = rsData("FavWebsite") strContactNotes = rsData("ContactNotes") rsData.Close Set rsData = Nothing PrintHeader strTitle WL "

New	High School Name	Status	Email	City	State
" datModDate = rsData("ModDate") If datModDate > datNewClassmates Then WL "" End If WL "	" If rsData("LastName") <> "" AND rsData("FirstName") <> "" Then WL "" _ & rsData("LastName") & ", " & rsData("FirstName") _ & "" ElseIf _ (rsData("LastName") = "" _ And rsData("FirstName") <> "") _ Or _ (rsData("LastName") <> "" _ And rsData("FirstName") = "") Then WL "" _ & rsData("LastName") & rsData("FirstName") _ & "" End If WL "	" & rsData("Status") & "	" If rsData("KeepPrivate") = "Yes" Then WL "{Private by Request}" Else WL "" & rsData("Email") & "" End If WL "	" & rsData("City") & "	" & rsData("State") & "

" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "" WL "

" WL "Contact Information" WL "
First Name:	" & strFirstName & "
High School Last Name:	" & strLastName & "
Current Last Name:	" & strCurrLastName & "
Email Address:	" If strKeepPrivate = "Yes" Then WL "{Private by Request}" Else WL "" & strEmail & "" End If WL "
Home Address:	" & strAddress1 & "
	" & strAddress2 & "
City:	" & strCity & "
State:	" & strState & "
Zip Code:	" & strZipCode & "
Home Phone:	" & strHomePhone & "
Website:	" _ & strWebsite & "
" WL "Family Information" WL "
Marital Status:	" & strMarried & "
Number of Kids:	" & strNoOfKids & "
Pets:	" & strPets & "
Hobbies:	" & strHobbies & "
" WL "Career Information" WL "
Job Title:	" & strJobTitle & "
Company Name:	" & strCompanyName & "
Bus. Phone:	" & strBizPhone & "
Industry:	" & strIndustry & "
Job Function:	" & strJobFunction & "
" WL "Reunion Information" WL "
Reunion Status:	" & strStatus & "
Number of high school friends you still see on a regular basis:	" & strStillFriends & "
Who are you hoping to see at the reunion?	" & strHopingToSee & "
Where you are staying for the reunion?	" & strStaying & "
" WL "High School Memories" WL "
Favorite High School Teacher:	" & strFavTeacher & "
Worst High School Teacher:	" & strWorstTeacher & "
Favorite H/S Memory:	"& strFavMemory & "
Worst/Most Embarrassing H/S Memory:	" & strWorstMemory & "
" WL "Miscellaneous Stuff" WL "
Favorite Quote:	" & strFavQuote & "
Favorite Quirky/Off-beat Website:	" _ & strFavWebsite & "
Personal Description / Misc. Notes:	" & strContactNotes & "

" PrintFooter End Sub %>