<!--#include file="include.asp" -->
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 	accountupdate.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_UPDATE_SAVE
			UpdateSave cnDB
	   Case ACTION_DELETE
	      Delete cnDB
	   Case ACTION_DELETE_SAVE
	      DeleteSave 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, strError)
	Dim strFirstName
	Dim strLastName
	Dim strCurrLastName
	Dim strEmail
	Dim strKeepPrivate
	Dim strNewsletter
	Dim strUserName		
	Dim strPassword
	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 strCompany
	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 datModDate
	
	Dim strTitle
	Dim strAction
	Dim strSQL
	Dim rsData           ' As ADODB.Recordset


	strUserName = Request.Cookies("Reunion")("UserName")
	
	If strError = "" Then
	   	strAction 		= ACTION_UPDATE_SAVE
       	strTitle 		= "Update Your Account Information"

		strSQL 	= "SELECT * FROM tblContacts " _
			& "WHERE (UserName Like " & DQ & strUserName & DQ & ")" 
				
		Set rsData = cnDB.Execute(strSQL)

		strFirstName	= rsData("FirstName")
		strLastName		= rsData("LastName")
		strCurrLastName	= rsData("CurrLastName")
		strEmail		= rsData("Email")
		strKeepPrivate	= rsData("KeepPrivate")
		strNewsletter	= rsData("Newsletter")
		strUserName		= rsData("UserName")
		strPassword		= rsData("Password")
		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")
		strCompany		= 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")
		
		datModDate		= Date()

		rsData.Close
		Set rsData = Nothing  
	Else
		strAction = ACTION_UPDATE_SAVE
		strTitle = "Update Your Account"

		strFirstName		= Request("dbtFirstName")
		strLastName			= Request("dbtLastName")
		strLastName			= Request("dbtCurrLastName")
		strEmail			= Request("dbtEmail")
		strKeepPrivate		= Request("dbtKeepPrivate")
		strNewsletter		= Request("dbtNewsletter")
		strUserName			= Request("dbtUserName")
		strPassword			= Requets("dbtPassword")
		strAddress1			= Request("dbtAddress1")
		strAddress2			= Request("dbtAddress2")
		strCity				= Request("dbtCity")
		strState			= Request("dbtState")
		strZipCode			= Request("dbtZipCode")
		strHomePhone		= Request("dbtHomePhone")
		strWebsite			= Request("dbtWebsite")

		strMarried	 		= Request("dbtMarried")
		strNoOfKids	 		= Request("dbtNoOfKids")
		strPets				= Request("dbtPets")
		strHobbies	 		= Request("dbtHobbies")

		strJobTitle			= Request("dbtJobTitle")
		strCompany			= Request("dbtCompanyName")
		strBizPhone			= Request("dbtBizPhone")
		strIndustry	 		= Request("dbtIndustry")
		strJobFunction	 	= Request("dbtJobFunction")

		strStatus	 		= Request("dbtStatus")
		strStillFriends	 	= Request("dbtStillFriends")
		strHopingToSee	 	= Request("dbtHopingToSee")
		strStaying			= Request("dbtStaying")
		
		strFavTeacher	 	= Request("dbtFavTeacher")
		strWorstTeacher	 	= Request("dbtWorstTeacher")
		strFavMemory	 	= Request("dbtFavMemory")
		strWorstMemory	 	= Request("dbtWorstMemory")

		strFavQuote	 		= Request("dbtFavQuote")
		strFavWebsite		= Request("dbtFavWebsite")
		strContactNotes		= Request("dbtContactNotes")
		imgPicture		 	= Request("dbtPicture")
		
		datModDate			= Date()

	End If   
   
   	PrintHeader strTitle
   
   	If strError <> "" Then
    	WL "<p>" & strError & "</p>"
   	End If
   	
	WL "<form action=" & DQ & Request("SCRIPT_NAME") _
		& DQ & " method=POST>"
	
	WL "<input type=hidden name=" _
		& ACTION & " value=" & strAction & ">"

	WL "<input type=hidden name=UserName" _
		& " value=" & strUserName & ">"

	WL "<input type=hidden name=ModDate" _
		& " value=" & datModDate & ">"

	WL "<table>"

	WL "<tr><td colspan=2 bgcolor=" & DQ & "#C0C0C0" & DQ & ">"
	WL "<b>Account Information</b>"
	WL "</td></tr>"

	WL "<tr><td>First Name:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtFirstName value=" _
		& DQ & strFirstName & DQ & "></td></tr>"

	WL "<tr><td>High School Last Name:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtLastName value=" _
		& DQ & strLastName & DQ & "></td></tr>"

	WL "<tr><td>Current Last Name:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtCurrLastName value=" _
		& DQ & strCurrLastName & DQ & "></td></tr>"

	WL "<tr><td>Email Address:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=120 name=dbtEmail value=" _
		& DQ & strEmail & DQ & "></td></tr>"

	WL "<tr><td>Keep Email Address Private:</td>"
	WL "<td><select size=" & DQ & "1" & DQ & " name=dbtKeepPrivate>"
	WL "<option selected value=" & DQ & "No" & DQ & ">No, others can see it.</option>"
	WL "<option value=" & DQ & "Yes" & DQ & ">Yes, please don't show anyone.</option>"
	WL "</select></td></tr>"

	WL "<tr><td>Do you want to receive the never-more-than-once-a-week newsletter?</td>"
	WL "<td><select size=" & DQ & "1" & DQ & " name=dbtNewsletter>"
	WL "<option selected value=" & DQ & "Yes" & DQ & ">Yes, if it is not too lame.</option>"
	WL "<option value=" & DQ & "No" & DQ & ">No thanks.</option>"
	WL "</select></td></tr>"

	WL "<tr><td>UserName:</td>"
	WL "<td><b>" & strUserName & "</b></td></tr>"

	WL "<tr><td>Password:</td>"
	WL "<td><b>" & strPassword & "</b></td></tr>"

	WL "<tr><td colspan=2 bgcolor=" & DQ & "#C0C0C0" & DQ & ">"
	WL "<b>Contact Information</b>"
	WL "</td></tr>"

	WL "<tr><td>Home Address:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtAddress1 value=" _
		& DQ & strAddress1 & DQ & "></td></tr>"

	WL "<tr><td></td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtAddress2 value=" _
		& DQ & strAddress2 & DQ & "></td></tr>"

	WL "<tr><td>City:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtCity value=" _
		& DQ & strCity & DQ & "></td></tr>"

	WL "<tr><td>State (Abrev.):</td>"
	WL "<td><input type=text size=5 " _
		& "maxlength=2 name=dbtState value=" _
		& DQ & strState & DQ & "></td></tr>"

	WL "<tr><td>Zip Code:</td>"
	WL "<td><input type=text size=20 " _
		& "maxlength=11 name=dbtZipCode value=" _
		& DQ & strZipCode & DQ & "></td></tr>"

	WL "<tr><td>Home Phone:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtHomePhone value=" _
		& DQ & strHomePhone & DQ & "></td></tr>"

	WL "<tr><td>Website:</td>"
	If strWebsite <> "" Then
		WL "<td><input type=text size=40 " _
			& "maxlength=120 name=dbtWebsite value=" _
			& DQ & strWebsite & DQ & "></td></tr>"
	Else
		WL "<td><input type=text size=40 " _
			& "maxlength=120 name=dbtWebsite value=http://" _
			& "></td></tr>"
	End If

	WL "<tr><td colspan=2 bgcolor=" & DQ & "#C0C0C0" & DQ & ">"
	WL "<b>Family Information</b>"
	WL "</td></tr>"

	WL "<tr><td>Marital Status:</td>"
    WL "<td><select size=" & DQ & "1" & DQ & " name=dbtMarried>"
	If strMarried <> "" Then
		WL "<option value=" & strMarried & " selected>" & strMarried & "</option>"
	Else
		WL "<option selected>Please Select One</option>"
	End If
	WL "<option value=" & DQ & "Single" & DQ & ">Single</option>"
	WL "<option value=" & DQ & "Married" & DQ & ">Married</option>"
	WL "<option value=" & DQ & "Living with someone" & DQ & ">Living with someone</option>"
	WL "<option value=" & DQ & "On the prowl" & DQ & ">On the prowl</option>"
	WL "<option value=" & DQ & "Men suck!" & DQ & ">Men suck!</option>"
	WL "</select></p>"
  
	WL "<tr><td>Number of Kids:</td>"
	WL "<td><select size=" & DQ & "1" & DQ & " name=dbtNoOfKids>"
	If strNoOfKids <> "" Then
		WL "<option value=" & strNoOfKids & " selected>" & strNoOfKids & "</option>"
	Else
		WL "<option selected>Please Select One</option>"
	End If
	WL "<option value=" & DQ & "No Kids" & DQ & ">No Kids</option>"
	WL "<option value=" & DQ & "One Child" & DQ & ">One Child</option>"
	WL "<option value=" & DQ & "Two Children" & DQ & ">Two Children</option>"
	WL "<option value=" & DQ & "Three Children" & DQ & ">Three Children</option>"
	WL "<option value=" & DQ & "Four Children" & DQ & ">Four Children</option>"
	WL "<option value=" & DQ & "Five Children" & DQ & ">Five Children</option>"
	WL "<option value=" & DQ & "More Than Five Kids" & DQ & ">More Than Five Kids</option>"
	WL "</select></td></tr>"

	WL "<tr><td>Pets:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtPets value=" _
		& DQ & strPets & DQ & "></td></tr>"

	WL "<tr><td>Hobbies:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=120 name=dbtHobbies value=" _
		& DQ & strHobbies & DQ & "></td></tr>"

	WL "<tr><td colspan=2 bgcolor=" & DQ & "#C0C0C0" & DQ & ">"
	WL "<b>Career Information</b>"
	WL "</td></tr>"

	WL "<tr><td>Job Title:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtJobTitle value=" _
		& DQ & strJobTitle & DQ & "></td></tr>"

	WL "<tr><td>Company Name:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtCompanyName value=" _
		& DQ & strCompany & DQ & "></td></tr>"
    
	WL "<tr><td>Bus. Phone:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtBizPhone value=" _
		& DQ & strBizPhone & DQ & "></td></tr>"

	WL "<tr><td>Industry:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtIndustry value=" _
		& DQ & strIndustry & DQ & "></td></tr>"

	WL "<tr><td>Job Function:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtJobFunction value=" _
		& DQ & strJobFunction & DQ & "></td></tr>"

	WL "<tr><td colspan=2 bgcolor=" & DQ & "#C0C0C0" & DQ & ">"
	WL "<b>Reunion Information</b>"
	WL "</td></tr>"

	WL "<tr><td>Reunion Status:</td>"
	WL "<td><select size=" & DQ & "1" & DQ & " name=dbtStatus>"
	If strStatus <> "" Then
		WL "<option value=" & strStatus & " selected>" & strStatus & "</option>"
	Else
		WL "<option selected>Please Select One</option>"
	End If
	WL "<option value=" & DQ & "Attending" & DQ & ">Attending</option>"
	WL "<option value=" & DQ & "Not Attending" & DQ & ">Not Attending</option>"
	WL "<option value=" & DQ & "Tentative" & DQ & ">Tentative</option>"
	WL "</select></td></tr>"


	WL "<tr><td>Number of high school friends you " _
   		& "still see on a regular basis:</td>"
	WL "<td><select size=" & DQ & "1" & DQ & " name=dbtStillFriends>"
	If strStillFriends <> "" Then
		WL "<option value=" & strStillFriends & " selected>" & strStillFriends & "</option>"
	Else
		WL "<option selected>Please Select One</option>"
	End If
	WL "<option value=" & DQ & "None" & DQ & ">None</option>"
	WL "<option value=" & DQ & "One Friend" & DQ & ">One Friend</option>"
	WL "<option value=" & DQ & "Two Friends" & DQ & ">Two Friends</option>"
	WL "<option value=" & DQ & "Three to Five Friends" & DQ & ">Three to Five Friends</option>"
	WL "<option value=" & DQ & "More Than Five Friends" & DQ & ">More Than Five Friends</option>"
	WL "</select></td></tr>"
	
	WL "<tr><td>Who are you hoping to see at the reunion?</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=120 name=dbtHopingToSee value=" _
		& DQ & strHopingToSee & DQ & "></td></tr>"

	WL "<tr><td>Where you are staying for the reunion?</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtStaying value=" _
		& DQ & strStaying & DQ & "></td></tr>"

	WL "<tr><td colspan=2 bgcolor=" & DQ & "#C0C0C0" & DQ & ">"
	WL "<b>High School Memories</b>"
	WL "</td></tr>"

	WL "<tr><td>Favorite H/S Teacher:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtFavTeacher value=" _
		& DQ & strFavTeacher & DQ & "></td></tr>"

	WL "<tr><td>Worst H/S Teacher:</td>"
	WL "<td><input type=text size=40 " _
		& "maxlength=50 name=dbtWorstTeacher value=" _
		& DQ & strWorstTeacher & DQ & "></td></tr>"

	WL "<tr><td valign=" & DQ & "Top" & DQ & ">Favorite H/S Memory:</td>"
	WL "<td><textarea rows=10 cols=50 name=dbtFavMemory>" _
		& strFavMemory & "</textarea></td></tr>"

	WL "<tr><td valign=" & DQ & "Top" & DQ & ">Worst/Most Embarrassing H/S Memory:</td>"
	WL "<td><textarea rows=10 cols=50 name=dbtWorstMemory>" _
		& strWorstMemory & "</textarea></td></tr>"

	WL "<tr><td colspan=2 bgcolor=" & DQ & "#C0C0C0" & DQ & ">"
	WL "<b>Miscellaneous Stuff</b>"
	WL "</td></tr>"

	WL "<tr><td valign=" & DQ & "Top" & DQ & ">Favorite Quote:</td>"
	WL "<td><textarea rows=10 cols=50 name=dbtFavQuote>" _
		& strFavQuote & "</textarea></td></tr>"

	WL "<tr><td>Favorite Quirky/Off-beat Website:</td>"
	If strFavWebsite <> "" Then
		WL "<td><input type=text size=40 " _
			& "maxlength=120 name=dbtFavWebsite value=" _
			& DQ & strFavWebsite & DQ & "></td></tr>"
	Else
		WL "<td><input type=text size=40 " _
			& "maxlength=120 name=dbtFavWebsite value=http://" _
			& "></td></tr>"
	End If

	WL "<tr><td valign=" & DQ & "Top" & DQ & ">Personal Description / Misc. Notes:</td>"
	WL "<td><textarea rows=10 cols=50 name=dbtContactNotes>" _
		& strContactNotes & "</textarea></td></tr>"

    	
	WL "<tr><td colspan=2 align=center>" _
		& "<input type=submit name=cmdSubmit value=Save>" _
		& "&nbsp;" _
		& "<input type=reset name=cmdReset " _
		& "value=Clear></td></tr>"
   
	WL "</table>"
	PrintFooter
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Sub UpdateSave
'
' This routine performs an update on the table for this 
' particular item. 
'
'''''''''''''''''''''''''''''''''''''''''''''''''''
Sub UpdateSave(cnDB)
	Dim rsData     ' As ADODB.Recordset
  	Dim strUserName
  	
	If Not ValidateData(cnDB) Then Exit Sub

  	strUserName = Request("UserName")

	Set rsData = Server.CreateObject("ADODB.Recordset")
	rsData.Open "SELECT * FROM tblContacts " _
	& "WHERE (UserName Like " & DQ & strUserName & DQ & ")", cnDB, adOpenDynamic, adLockOptimistic
	
	rsData("ModDate")		= Request("ModDate")
	rsData("FirstName")		= Request("dbtFirstName")
	rsData("LastName")		= Request("dbtLastName")  
	rsData("CurrLastName")	= Request("dbtCurrLastName")
	rsData("Email") 		= Request("dbtEmail")
	rsData("Newsletter")	= Request("dbtNewsletter")
	rsData("Address1")		= Request("dbtAddress1")
	rsData("Address2")		= Request("dbtAddress2")
	rsData("City")			= Request("dbtCity")
	rsData("State")			= Request("dbtState")
	rsData("ZipCode")		= Request("dbtZipCode")
	rsData("HomePhone")		= Request("dbtHomePhone")
	rsData("Website")		= Request("dbtWebsite")

	rsData("Married")		= Request("dbtMarried")
	rsData("NoOfKids")		= Request("dbtNoOfKids")
	rsData("Pets")			= Request("dbtPets")
	rsData("Hobbies")		= Request("dbtHobbies")

	rsData("JobTitle")		= Request("dbtJobTitle")
	rsData("CompanyName")	= Request("dbtCompanyName")
	rsData("BizPhone")		= Request("dbtBizPhone")
	rsData("Industry")		= Request("dbtIndustry")
	rsData("JobFunction")	= Request("dbtJobFunction")

	rsData("Status")		= Request("dbtStatus")
	rsData("StillFriends")	= Request("dbtStillFriends")
	rsData("HopingToSee")	= Request("dbtHopingToSee")
	rsData("Staying")		= Request("dbtStaying")

	rsData("FavTeacher")	= Request("dbtFavTeacher")
	rsData("WorstTeacher")	= Request("dbtWorstTeacher")
	rsData("FavMemory")		= Request("dbtFavMemory")
	rsData("WorstMemory")	= Request("dbtWorstMemory")

	rsData("FavQuote")		= Request("dbtFavQuote")
	rsData("FavWebsite")	= Request("dbtFavWebsite")
	rsData("ContactNotes")	= Request("dbtContactNotes")

	rsData.Update
	rsData.Close
	
	PrintHeader "Thank You!"
	
	WL "<p>Thank you for updating your account with the rest " _
		& "of your information.</p>"
	WL "<p>The next step is to check out your <a href=" & DQ _
		& "classmates.asp" & DQ & ">classmates</a>. "
	WL "Or, you might also want take our <a href=" & DQ _
		& "questions.asp" & DQ & ">Fun Facts Survey</a> (a.k.a. " _
		& "I Never... link on the menu).</p>"
	WL "<p>When you are finished with that survey, you can see " _
		& "how your answers fit in with the rest of your classmates. " 
	WL "Just click the <a href=" & DQ & "results.asp" & DQ & ">Fun Facts</a> "
	WL "link.</p><p>And remember, it's all just for fun.</p>"
	WL "<p>Enjoy!</p>"
	WL "<p></p><p></p><p></p><p></p>"
	
	PrintFooter
End Sub


'''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Function ValidateData
'
' This routine validates the input data and 
' causes the form to be shown if the data is 
' not correct. A True result indicates that 
' the data was OK, and a False indicates that
' the data was in error. 
'
'''''''''''''''''''''''''''''''''''''''''''''''''''
Function ValidateData(cnDB)
   Dim strError      ' As String
   strError = ""
   
	If Request("dbtLastName") = "" _
		And Request("dbtFirstName") = "" Then
		strError = strError _
			& "<li>Please enter your first name or last name."
	End If

	If strError <> "" Then
		strError = "<p><font color=#FF0000><b>" _
			& "The following data errors were detected:</b><br>" _
			& "<ul>" & strError & "</ul></font></p>"
		BuildForm cnDB, strError
		ValidateData = False
	Else
		ValidateData = True
	End If
   
End Function

%>