Count Lines in Pages
Contents of Page: signOnCheck.asp
Number of Lines: 101
Last Modified: 5/2/2021 1:02:07 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: 	frompage = Request.QueryString("from")
0013: 	emailaddress = Request.Form("EmailAddress")
0014: emailaddress = LCase(emailaddress)
0015: 	password = Request.Form("Password")
0016: 	If emailaddress <> "jt@folga.org" Then
0017:         Response.Write(emailaddress)
0018:         Response.Write(user)
0019:         Response.Write(frompage) 	
0020: 	Set rs = Server.CreateObject("ADODB.Recordset")
0021: 	sqlString = "SELECT * FROM mmEntries WHERE EmailAddress = '" & emailaddress & "' "  & _
0022: 							"AND Season = " & season
0023:         
0024: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0025: 
0026: 	If rs.EOF Then
0027: 		rs.Close
0028: 		Response.Redirect("login.asp?error=noentry&from=" & frompage)
0029: 	End If
0030: 	
0031: 	passwordOnFile = rs("Password").Value
0032: 	StartPage = rs("StartPage").Value
0033: 	RegNumber = rs("RegNumber").Value
0034: 	rs.Close
0035: 	Set rs = Nothing
0036: 	
0037: 	Else
0038: 
0039: 	If password = "cosmos" Then
0040: 	passwordOnFile = "cosmos"
0041: 	End If
0042: 	End If
0043: 	
0044: 	If passwordOnFile <> password Then
0045: 		Response.Redirect("login.asp?error=password&from=" & frompage)
0046: 	End If
0047: 
0048: 
0049: 
0050: 	addCookie "user", emailaddress
0051: 	addCookie "SquarePoolsEMail", emailaddress
0052: 	addCookie "SquarePoolsRegNumber", RegNumber
0053: 	addCookie "InMemoriam", emailaddress
0054: 	Session("InMemoriam") = emailaddress
0055: 	
0056:         user = Request.Cookies("user")
0057: 	Session("loggedIn") = "Yes"
0058:  '       Session("loggedIn") = " "
0059: '        Response.Write(emailaddress)
0060:  '       Response.Write(user)
0061:  '       Response.Write(frompage) 
0062:         
0063: 
0064: If noMorePicks = False Then
0065: StartPage = ""
0066: End If
0067:         
0068: 	If frompage = "" Then   
0069: 	     
0070: 	  If StartPage <> "" Then
0071: 
0072: 	    If StartPage = "MessageBoard" Then
0073: 	      PageName = "messageboard.asp"
0074: 	    ElseIf StartPage = "Standings" Then
0075: 	      PageName = "standings.asp"
0076: 	    ElseIf StartPage = "MyStandings" Then	
0077: 		  PageName = "standingsmygroup.asp"
0078: 	    ElseIf StartPage = "Default" Then	
0079: 		  PageName = defaultstartpage
0080: 		  
0081: 	    End If
0082: 	  Else
0083: 	    PageName = defaultstartpage   
0084: 	  End If      
0085:     Else
0086:        PageName = frompage
0087:     End If
0088: %>
0089: <!base target="_top">
0090: <%
0091: 		Response.Redirect("default.asp")
0092: 
0093: %>
0094: <!-- #include FILE="include/ReturnPageUse.inc" -->
0095: <%
0096: 	
0097: 	Response.Redirect(PageName)
0098: 
0099: '    Response.Write(PageName)
0100: %>
0101: