0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006:     emailaddress = Trim(Request.QueryString("EMail"))
0007: 	firstName = Trim(Request.Form("FirstName"))
0008: 	lastName = Trim(Request.Form("Name")) 
0009: 	address = Trim(Request.Form("Address"))
0010: 	city = Trim(Request.Form("City"))
0011: 	statename = UCase(Trim(Request.Form("State")))
0012: 	
0013: 	NewEntry = "N"
0014: 	lastseason = season - 1
0015: 	
0016: 	Set rs = Server.CreateObject("ADODB.Recordset")
0017: 	sqlString = "SELECT * FROM MY4_Master " & _
0018: 							"WHERE EmailAddress = '" & emailaddress & "' " 
0019: 	rs.Open sqlString, conn2, adOpenStatic, adLockReadOnly, adCmdText
0020: 	If rs.EOF Then
0021: 		rs.Close
0022: 		Set rs = Nothing
0023: 
0024: 		Set rsc = Server.CreateObject("ADODB.Recordset")
0025: 		sqlString = "SELECT * FROM mmConfig " & _
0026: 							"WHERE Element = 'REGNUMBER_LIID' " 
0027: 
0028: 		rsc.Open sqlString, conn2,  adOpenDynamic, adLockOptimistic, adCmdText	
0029: 		
0030: 		If rsc.EOF Then
0031: 		 	LIID = 9999
0032: 			rsc.Close
0033: 			Set rsc = Nothing		 	
0034: 		Else
0035: 	    	LIID = rsc("Value").Value
0036: 			LIID = LIID + 1
0037: 			rsc("Value").Value = LIID
0038: 			rsc.Update
0039: 			rsc.Close
0040: 			Set rsc = Nothing
0041: 		End If
0042: 		Set rs = Server.CreateObject("ADODB.Recordset")	
0043: 		rs.Open "MY4_Master", conn2, adOpenDynamic, adLockOptimistic, adCmdTable
0044: 		rs.AddNew
0045: 		rs("RegNumber").Value = LIID
0046: 		rs("FirstName").Value = firstName
0047: 		rs("LastName").Value = lastName
0048: 		rs("City").Value = city
0049: 		rs("State").Value = statename  
0050: 		rs("EmailAddress").Value = emailaddress
0051: 		rs("Password").Value = password
0052: 
0053: 		rs.Update
0054: 		rs.Close
0055: 		Set rs = Nothing
0056: 		NewEntry = "Y"
0057: 	Else
0058: 	   Response.Write(sqlString)
0059: MMSeason = rs("MMLastYear").Value 
0060: If MMSeason < lastseason Then
0061: NewEntry = "Y"
0062: End If
0063: 		rs.Close
0064: 		Set rs = Nothing
0065: '		Response.Redirect("my4badEntry.asp")
0066: 	End If
0067: 
0068: 			
0069: 
0070: 	Response.Redirect("registerinfo.asp?RegNo=" & LIID & "&NewEntry=" & NewEntry)
0071: ' Response.Write("registerinfo.asp?RegNo=" & LIID & "&NewEntry=" & NewEntry)
0072: %>