Count Lines in Pages
Contents of Page: signOnCheck_m.asp
Number of Lines: 105
Last Modified: 2/17/2025 12:58:41 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/homeURL.inc" -->
0005: <!-- #include FILE="include/constants.inc" -->
0006: <!-- #include FILE="include/funcs.asp" -->
0007: <html>
0008: <head>
0009: <base target="_top">
0010: </head>
0011: <%
0012: 
0013: ReturnSiteURL = Session("BaseSiteURL")
0014: 
0015: 	frompage = Request.QueryString("from")
0016: 	emailaddress = Request.Form("EmailAddress")
0017: emailaddress = LCase(emailaddress)
0018: 	password = LCase(Request.Form("Password"))
0019: 	If emailaddress <> "jt@folga.org" Then
0020:         Response.Write(emailaddress)
0021:         Response.Write(user)
0022:         Response.Write(frompage) 	
0023: 	Set rs = Server.CreateObject("ADODB.Recordset")
0024: 	sqlString = "SELECT * FROM mmEntries WHERE EmailAddress = '" & emailaddress & "' "  & _
0025: 							"AND Season = " & season
0026:         
0027: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0028: 
0029: 	If rs.EOF Then
0030: 		rs.Close
0031: 		Response.Redirect("login_m.asp?error=noentry&from=" & frompage)
0032: 	End If
0033: 	
0034: 	passwordOnFile = LCase(rs("Password").Value)
0035: 	StartPage = rs("StartPage").Value
0036: 	RegNumber = rs("RegNumber").Value
0037: 	rs.Close
0038: 	Set rs = Nothing
0039: 	
0040: 	Else
0041: 
0042: 	If password = "cosmos" Then
0043: 	passwordOnFile = "cosmos"
0044: 	End If
0045: 	End If
0046: 	
0047: 	If passwordOnFile <> password Then
0048: 		Response.Redirect("login_m.asp?error=password&Email=" & emailaddress)
0049: 	End If
0050: 
0051: 
0052: 
0053: 	addCookie "user", emailaddress
0054: 	addCookie "SquarePoolsEMail", emailaddress
0055: 	addCookie "SquarePoolsRegNumber", RegNumber
0056: 	
0057:         user = Request.Cookies("user")
0058: 	Session("loggedIn") = "Yes"
0059:  '       Session("loggedIn") = " "
0060: '        Response.Write(emailaddress)
0061:  '       Response.Write(user)
0062:  '       Response.Write(frompage) 
0063:         
0064: 
0065: If noMorePicks = False Then
0066: StartPage = ""
0067: End If
0068:         
0069: 	If frompage = "" Then   
0070: 	     
0071: 	  If StartPage <> "" Then
0072: 
0073: 	    If StartPage = "MessageBoard" Then
0074: 	      PageName = "messageboard.asp"
0075: 	    ElseIf StartPage = "Standings" Then
0076: 	      PageName = "standings.asp"
0077: 	    ElseIf StartPage = "MyStandings" Then	
0078: 		  PageName = "standingsmygroup.asp"
0079: 	    ElseIf StartPage = "Default" Then	
0080: 		  PageName = defaultstartpage
0081: 		  
0082: 	    End If
0083: 	  Else
0084: 	    PageName = defaultstartpage   
0085: 	  End If      
0086:     Else
0087:        PageName = frompage
0088:     End If
0089: 	
0090: %>
0091: 
0092: <base target="_top">
0093: <%	
0094: 
0095: <!-- #include FILE="include/ReturnPageUsex.inc" -->	
0096: 
0097: If FromPage = "Pay" Then
0098: 		Response.Redirect("makedonation_m.asp")
0099: Else
0100: '		Response.Redirect("logindone_m.asp")
0101: Response.Redirect(ReturnSiteURL)
0102: End if		
0103: 		'    Response.Write(PageName)
0104: %>
0105: