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 = Trim(Request.Form("State"))
0013: 	zip = Trim(Request.Form("Zip"))
0014: 	numEntries = Trim(Request.Form("NumEntries"))
0015: 	emailaddress = Trim(Request.Form("EMail"))
0016: 	password = Request.Form("Password1")
0017: 	success = Request.Form("success")
0018: 	
0019: 	Set rs = Server.CreateObject("ADODB.Recordset")
0020: 	sqlString = "SELECT * FROM mmEntries " & _
0021: 							"WHERE EmailAddress = '" & emailaddress & "' " & _
0022: 							"AND Season = " & season
0023: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0024: 	If rs.EOF Then
0025: 		rs.Close
0026: 		rs.Open "mmEntries", conn, adOpenDynamic, adLockOptimistic, adCmdTable
0027: 		rs.AddNew
0028: 		rs("FirstName").Value = firstName
0029: 		rs("Name").Value = lastName
0030: 		rs("Address").Value = address
0031: 		rs("City").Value = city
0032: 		rs("State").Value = statename
0033: 		rs("Zip").Value = zip
0034:        rs("NumEntries").Value = numEntries
0035: 		rs("EmailAddress").Value = emailaddress
0036: 		rs("Password").Value = password
0037: 		rs("Season").Value = season
0038: 		rs("GroupName").Value = "DEFAULT"
0039: 		rs.Update
0040: 		rs.Close
0041: 		Set rs = Nothing
0042: 	Else
0043: '	   Response.Write(sqlString)
0044: 		rs.Close
0045: 		Set rs = Nothing
0046: 		Response.Redirect("badEntry.asp")
0047: 	End If
0048: 
0049: 	' send mail to Joe about new entry
0050: 	msg = "Name:          " & firstName & " " & lastName & "<BR>" & _
0051: 				"Address:       " & address & ", " & city & ", " & statename & " " & zip & "<BR>"  & _
0052: 				"Email:         " & emailaddress & "<BR>"  & _
0053: 				"Date:          " & todayDate & "<BR>"  & _
0054: 				"No. Entries:   " & numEntries
0055: 	' senderr = sendEmail("Joe", "joetoledo@yahoo.com", 0, "New March Madness Entry", msg)
0056: Dim objMail
0057: Set objMail = Server.CreateObject("CDO.Message")
0058: 'Update the CDOSYS Configuration 
0059: objMail.From = emailaddress 
0060: objMail.To = "joetoledo@yahoo.com"
0061: objMail.Subject = "New March Madness Entry."
0062: objMail.HTMLBody = msg
0063: objMail.Send
0064: 'Close the server mail object
0065: Set objMail = Nothing
0066: ' Set objCDOSYSCon = Nothing 
0067: 
0068: 
0069: 
0070: 	' send confirmation message to user
0071: 	msg = "This confirms your registration in the March Madness contest." & "<BR>"  & _
0072: 				"<BR>" & _
0073: 				"Your details are:" & "<BR>" & _
0074: 				"  Name:          " & firstName & " " & lastName & "<BR>" & _
0075: 				"  Address:       " & address & ", " & city & ", " & statename & " " & zip & "<BR>"  & _
0076: 				"  Email:         " & emailaddress & "<BR>"  & _
0077: 				"  Password:      " & password & "<BR><BR>"  & _
0078: 				"  Thanks for participating! " & "<BR>"  & _
0079: 				"  You will be notified via email when your donation is received and processed.<BR>"  & _
0080: 				"Good Luck!" & "<BR>" & _
0081: 				"Joe Toledo"
0082: 'Update the CDOSYS Configuration 
0083: Set objMail = Server.CreateObject("CDO.Message")
0084: objMail.From = "Jt@LusoGolf.Org"
0085: objMail.To = emailaddress
0086: objMail.Subject = "Joe Toledo's March Madness Contest - Confirmation"
0087: objMail.HTMLBody = msg
0088: objMail.Send
0089: Set objMail = Nothing
0090: 	addCookie "user", emailaddress
0091: 	Session("loggedIn") = "Yes"
0092: 
0093: 	Response.Redirect(success)
0094: %>