0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: 
0007: <%
0008: 	firstName = Trim(Request.Form("FirstName"))
0009: 	lastName = Trim(Request.Form("Name"))
0010: 	address = Trim(Request.Form("Address"))
0011: 	city = Trim(Request.Form("City"))
0012: 	statename = UCase(Trim(Request.Form("State")))
0013: 	zip = Trim(Request.Form("Zip"))
0014: 	numEntries = Trim(Request.Form("NumEntries"))
0015: 	If numEntries = "" Then
0016: 	numEntries = 0
0017: 	End If
0018: 	num2ndEntries = Trim(Request.Form("Num2ndEntries"))	
0019: 	If num2ndEntries = "" Then
0020: 	num2ndEntries = 0
0021: 	End If	
0022: 	emailaddress = Trim(Request.Form("EMail"))
0023: 	password = Request.Form("Password1")
0024: 	success = Request.Form("success")
0025: 	
0026: 	Set rs = Server.CreateObject("ADODB.Recordset")
0027: 	sqlString = "SELECT * FROM mmEntries " & _
0028: 							"WHERE EmailAddress = '" & emailaddress & "' " & _
0029: 							"AND Season = " & season
0030: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0031: 	If rs.EOF Then
0032: 		rs.Close
0033: 		rs.Open "mmEntries", conn, adOpenDynamic, adLockOptimistic, adCmdTable
0034: 		rs.AddNew
0035: 		rs("FirstName").Value = firstName
0036: 		rs("Name").Value = lastName
0037: 		rs("Address").Value = address
0038: 		rs("City").Value = city
0039: 		rs("State").Value = statename
0040: 		rs("Zip").Value = zip
0041:         rs("NumEntries").Value = numEntries
0042:         rs("Num2ndEntries").Value = num2ndEntries       
0043: 		rs("EmailAddress").Value = emailaddress
0044: 		rs("Password").Value = password
0045: 		rs("Season").Value = season
0046: 		rs("GroupName").Value = "DEFAULT"
0047: 		rs("GroupName2").Value = "DEFAULT"		
0048: 		rs("GroupName3").Value = "DEFAULT"			
0049: 		rs.Update
0050: 		rs.Close
0051: 		Set rs = Nothing
0052: 	Else
0053: '	   Response.Write(sqlString)
0054: 		rs.Close
0055: 		Set rs = Nothing
0056: 		Response.Redirect("badEntry.asp")
0057: 	End If
0058: 
0059: 	' send mail to Joe about new entry
0060: 	msg = "Name:          " & firstName & " " & lastName & "<BR>" & _
0061: 				"Address:       " & address & ", " & city & ", " & statename & " " & zip & "<BR>"  & _
0062: 				"Date:          " & todayDate & "<BR>"  & _
0063: 				"# Entries :   " & numEntries & " / " & num2ndEntries 
0064: 
0065: 
0066: Response.Write("Email: " & EmailAddress & " - " & LastName & "<br>")
0067: 
0068: EmailSubject = "New March Madness Entry - " & firstname & " " & lastname & " (" & numEntries & "/" & num2ndEntries & ")"
0069: 
0070: 
0071:    sendEmail notifyemail, "", "", EmailSubject, msg, "HTML", emailaddress  
0072:            
0073: 				
0074: 	' send confirmation message to user
0075: 	msg = "This confirms your registration in the March Madness contest." & "<BR>"  & _
0076: 				"<BR>" & _
0077: 				"Your details are:" & "<BR>" & _
0078: 				"  Name:          " & firstName & " " & lastName & "<BR>" & _
0079: 				"  Email:         " & emailaddress & "<BR>"  & _
0080: 				"  Password:      " & password & "<BR>"  & _
0081: 				"  # of Entries:  " & numEntries  & "<BR><BR>"  & _
0082: 				"  Thanks for participating! " & "<BR>"  & _
0083: 				"  You will be notified via email when your donation is received and processed.<BR>"  & _
0084: 				"Good Luck!" & "<BR>" & _
0085: 				"Joe Toledo"
0086: 				
0087:     sendEmail emailaddress, "", "", "March Madness Contest - Registration Confirmation" , msg, "HTML", "jt@folga.org"  				
0088: 
0089: 	addCookie "user", emailaddress
0090: 	Session("loggedIn") = "Yes"
0091: 
0092: 	Response.Redirect(success)
0093: %>