0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: 
0007: <%
0008: 
0009: 	lastseason = season - 1
0010: 	NextPage     = Trim(Request.QueryString("Page"))
0011: 	If NextPage = "" Then
0012: 	NextPage = "My4registerinfo2_m.asp"
0013: 	End If
0014: 
0015: 	MyEMail = Trim(Request.Form("EmailAddress"))
0016: 	HasATSign = InSTR(MyEMail,"@")
0017: 	If HasATSign = 0 Then
0018: 	Response.Redirect("http://www.pickasquare.net/SQdisplayerror.asp?Type=INVALIDEMAIL&GoToPage=my4registerinfo1.asp")
0019: 	End If
0020: 	
0021: 	Set rs = Server.CreateObject("ADODB.Recordset")
0022: 	sqlString = "SELECT * FROM mmEntries " & _
0023: 							"WHERE EmailAddress = '" & MyEMail & "' " & _
0024: 							"AND Season = " & season
0025: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0026: 	If rs.EOF Then
0027: 
0028: 	
0029: 'If regopen <> "YES" and reg2ndopen <> "YES" Then
0030: '
0031: 'Response.Write("Registration is closed. Thank you for visiting")
0032: '
0033: 'Else
0034: 	
0035: 	Set rs = Server.CreateObject("ADODB.Recordset")
0036: 	sqlString = "SELECT * FROM MY4_Master WHERE EmailAddress = '" & MyEMail & "' or RegNumber = '"  & MyEMail & "'"
0037:     Response.Write(sqlString)    
0038: 	rs.Open sqlString, conn2, adOpenStatic, adLockReadOnly, adCmdText
0039: 
0040: 	If rs.EOF Then
0041: 		rs.Close
0042: 		set rs = Nothing
0043: 		
0044: 		Response.Redirect("my4registerinfo2_m.asp?Email=" & MyEMail)
0045: 	End If
0046:     RegNumber = rs("RegNumber").Value
0047:     Password  = rs("Password").Value
0048:     Blocked   = rs("Blocked").Value
0049: MMSeason = rs("MMLastYear").Value 
0050: IF IsNull(MMSeason) Then
0051: MMSeason = 2000
0052: End If
0053: If MMSeason < lastseason Then
0054: NewEntry = "Y"
0055: End If    
0056: 	rs.Close
0057: 	Set rs = Nothing
0058: 
0059: 'End If
0060: 	
0061: '	Response.Write("RegNumber=" & RegNumber & " Password=" & Password & " Blocked=" & Blocked & "<br>")
0062: 
0063: If Blocked = True Then
0064: 
0065: Response.Redirect("http://www.pickasquare.net/SQBlocked.asp")
0066: ' Response.Write("SQBlocked.asp")
0067: Else
0068: 
0069: 		
0070: ' If password <> "" Then
0071: 
0072: ' 	    
0073: ' '	Response.Redirect("my4login.asp")	
0074: ' ' Response.Redirect("login.asp")
0075: ' ' Else
0076: 
0077: 
0078: '    addCookie "SquarePoolsEmail", MyEMail
0079: ' '   addCookie "SquarePoolsRegNumber", RegNumber
0080: ' '   
0081: ' 	If ToPoolID <> "" Then
0082: ' 	Response.Redirect("SQPicks1.asp?PoolID=" & ToPoolID)
0083: ' 	End If
0084:   
0085: 
0086:  Response.Redirect("registerinfo_m.asp?RegNo=" & RegNumber & "&NewEntry=" & NewEntry)
0087: 
0088: 
0089: End If
0090: ' End If
0091: 
0092: Else
0093: 
0094: 		rs.Close
0095: 		Set rs = Nothing	
0096: Response.Redirect("login_m.asp?Email=" & MyEmail )
0097: '		Response.Redirect("badEntry.asp")
0098: 		
0099: End If		
0100: 
0101: %>