0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 	Email = Request.Cookies("user")
0007: 	ShowMiss = Request.QueryString("ShowMiss")
0008: 
0009: 	If Email <> "" Then
0010: 
0011: 		Set rsEntry = Server.CreateObject("ADODB.Recordset")
0012:     	sqlString = "SELECT * FROM mmEntries " & _
0013: 							"WHERE EmailAddress = '" & Email & "' " & _
0014: 							"AND Season = " & season
0015: 		rsEntry.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0016: 		If Not rsEntry.EOF Then
0017: 			NumEntries = rsEntry("NumEntries").Value
0018: 			If NumEntries < 2 Then NumEntries = 0
0019: 		Else
0020: 			NumEntries = 0
0021: 		End If
0022: 	Else
0023: 		NumEntries = 0
0024: 	End If
0025: 
0026: '	Response.Write("STOPMAKEPICKS=" & STOPMAKEPICKS & " NumEntries=" & NumEntries)
0027: 
0028: 	If STOPMAKEPICKS = "YES" Then Response.Redirect("DisplayPropBets.asp?NoMorePicks=X")
0029: 
0030: 	
0031:  If NumEntries = 0 Then Response.Redirect("DisplayPropBets.asp")
0032: 
0033: 
0034: 
0035: 	Set rsp = Server.CreateObject("ADODB.Recordset")
0036: 	sqlString = "SELECT * FROM PropPicks WHERE Season = " & Season &" AND EmailAddress = '" & User & "'"
0037: 
0038: 'Response.Write("<BR>" & sqlstring)
0039: 
0040: 	rsp.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0041: 
0042: 	If Not rsp.EOF Then
0043: 
0044: 	PickID = rsp("ID").Value
0045: 
0046: 	response.redirect("proppicksdisplay2.asp?EntryID=" & PickID)
0047: 
0048: 
0049: 	Else
0050: 
0051: 	response.redirect("proppicks1.asp")
0052: 
0053: 	End If
0054: 
0055: %>