Count Lines in Pages
Contents of Page: PropLoginCheck.asp
Number of Lines: 80
Last Modified: 8/22/2018 1:33:10 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: <HTML>
0007: <HEAD>
0008: 
0009: </HEAD>
0010: 
0011: <% 
0012: 
0013: 	EventID = Request.QueryString("EventID")
0014: 
0015: 
0016: 
0017: 
0018: 	MyEMail = Trim(Request.Form("EmailAddress"))
0019: 	HasATSign = InSTR(MyEMail,"@")
0020: 	If HasATSign = 0 Then
0021: 	Response.Redirect("SQdisplayerror.asp?Type=INVALIDEMAIL&GoToPage=my4registerinfo1.asp")
0022: 	End If
0023: 	
0024: 	Set rs = Server.CreateObject("ADODB.Recordset")
0025: 	sqlString = "SELECT * FROM MY4_Master WHERE EmailAddress = '" & MyEMail & "' or RegNumber = '"  & MyEMail & "'"
0026:    
0027: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0028: 
0029: 	If rs.EOF Then
0030: 		rs.Close
0031: 		set rs = Nothing
0032: 		Response.Redirect("SQdisplayerror.asp?Type=INVALIDEMAIL&GoToPage=loginpropbets.asp")	
0033: 	End If
0034:     RegNumber = rs("RegNumber").Value
0035: 	FirstName = rs("FirstName").Value
0036: 	LastName = rs("LastName").Value
0037: 	City = rs("City").Value
0038: 	State = rs("State").Value
0039: 	EmailAddress = rs("EmailAddress").Value
0040: 
0041: 	Set rs = Server.CreateObject("ADODB.Recordset")
0042: 	sqlString = "SELECT * FROM PropEntries WHERE EventID = " & EventID  & " AND RegNumber = '" & RegNumber & "'"
0043:    Response.Write(sqlString)
0044: 	rs.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0045: 
0046: 	If rs.EOF Then
0047: 	
0048: 	Set rs = Server.CreateObject("ADODB.Recordset")
0049: 	rs.Open "PropEntries", conn3, adOpenDynamic, adLockOptimistic, adCmdTable
0050: 	rs.AddNew
0051: 	rs("RegNumber").Value = RegNumber
0052: 	rs("EventID").Value = CInt(EventID)
0053: 	rs("EmailAddress").Value = EMailAddress
0054: 	rs("FirstName").Value = FirstName
0055: 	rs("LastName").Value = LastName
0056: 	rs("CitySt").Value = City & ", " & State
0057: 	rs.Update
0058: 	rs.Close
0059: 	set rs = Nothing
0060: 
0061: 	Set rs = Server.CreateObject("ADODB.Recordset")
0062: 	sqlString = "SELECT * FROM PropEntries WHERE EventID = " & EventID  & " ORDER BY ID DESC"
0063:    Response.Write(sqlString)
0064: 	rs.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0065: 
0066: 	End If
0067: 
0068: 	EntryID = rs("ID").Value
0069: 
0070: 	addCookie "SquarePoolsRegNumber", RegNumber
0071: 
0072: 	addCookie "SquarePoolsEMail", emailaddress
0073: 	Session("loggedIn") = "Yes"
0074: 
0075: 	Session("FullName") = FirstName & " " & LastName
0076:   Response.Redirect("proppicks2.asp?EntryID=" & EntryID & "&EventID=" & EventID)
0077: 
0078: 
0079: %>
0080: </html>