Cornell Hotel Society

<%@ LANGUAGE="VBScript" %> <% Option Explicit %> <% If Not blnDebug Then On Error Resume Next End If Function BuildEventList() Dim sqlGetEvents, rstGetEvents, strOptionTag, blnError sqlGetEvents = "SELECT EventID, EventTitle, PaymentAmount FROM Events WHERE EventStartTime >= Date() And PaymentAmount NOT IN (0,1,2)" Set rstGetEvents = sqlExecute(sqlGetEvents, blnError, "SecurePayment2.asp") If rstGetEvents.EOF Then Set rstGetEvents = Nothing strOptionTag = "" Else strOptionTag = "" While Not rstGetEvents.EOF strOptionTag = strOptionTag & "" rstGetEvents.MoveNext Wend End If BuildEventList = strOptionTag End Function Dim strMsg, strStoredEmailAddress, storedGraduationYear, intEventID, strEventTitle, intCurrentPage If Request.QueryString("eid") = "0" Then strMsg = "Either you have not made payments through CHSNYC before, or your password is incorrect. Please try again." Elseif Request.QueryString("eid") = "1" Then strMsg = "An account has already been created with this e-mail address.
Either enter the correct password, or set up a new account." Elseif Request.QueryString("eid") = "2" Then strMsg = "You have already paid dues through " & Year(Now) +1 & ".
You can currently pay dues up to 1 year ahead of the current year." End If strStoredEmailAddress = Request.Cookies("storedemail") storedGraduationYear = Request.Cookies("graduationyear") intEventID = Request("e") If intEventID <> "" Then strEventTitle = GetEventTitle(intEventID) End If intCurrentPage = 2 %> Cornell Hotel Society document.step1.email.focus() <% Else %>document.step1.password.focus()<% End If %>"> Step 1

<% If Len(strMsg) > 0 Then Response.Write("" & strMsg & "") End If %> <% If strEventTitle = -1 Then %> Event not found. <% Else %>

<% If intEventID = "" Then %>

What is your e-mail address?
	My e-mail address is:

Have you made payments through the Cornell Hotel Society website before?
	No, this is my first time.
	Yes, my password is:

	Forgot your password?

What is your graduation year?
	Please enter "0000" if you are not a Cornell Hotel School graduate.

Would you like to:
	<% Else %>
Pay for event: <%= strEventTitle %> <% End If %> x
	Donate.

<% End If %>