Count Lines in Pages
Contents of Page: proppicks1.asp
Number of Lines: 173
Last Modified: 8/22/2018 1:33:11 PM
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: <html>
0036: 
0037: <head>
0038: <meta http-equiv="Content-Language" content="en-us">
0039: <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
0040: <link href="mm.css" rel="stylesheet" type="text/css">
0041: <title>March Madness Contest -  Proposition Bets</title>
0042: </head>
0043: <%	
0044: 
0045: Dim MyPicks
0046: 
0047: 	Set rsp = Server.CreateObject("ADODB.Recordset")
0048: 	sqlString = "SELECT * FROM PropPicks WHERE Season = " & Season &" AND EmailAddress = '" & User & "'"
0049: 
0050: 'Response.Write("<BR>" & sqlstring)
0051: 
0052: 	rsp.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0053: 
0054: 	If Not rsp.EOF Then
0055: 
0056: 	ItsOK = "X"
0057: 
0058:     MySelections = rsp("MySelections").Value
0059: 
0060: 	MyPicks = Split(MySelections,"-")
0061: 
0062: 	Else
0063: 
0064: 	ItsOK = ""
0065: 
0066: 	End If
0067: 
0068: 
0069: 	Set rst = Server.CreateObject("ADODB.Recordset")
0070: 	sqlString = "SELECT * FROM PropBets WHERE Season = " & Season & " ORDER By DisplayOrder, ID"
0071: 	rst.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0072: 
0073: 
0074: 
0075: %>
0076: <table border="2" cellpadding="2" width="850">
0077: <form method="POST" action="proppickspost.asp?RegNumber=<%= RegNumber %>">
0078: 
0079: 
0080: 
0081: <%
0082: bgcolor = "#FFFFFF"
0083: Kount = 0
0084: Do Until rst.Eof
0085: ID = rst("ID").Value
0086: PropDescription = rst("PropDescription").Value
0087: 'PropType = rst("PropType").Value
0088: Option1 =  Trim(rst("Option1").Value)
0089: Option2 = Trim(rst("Option2").Value)
0090: Option3 = Trim(rst("Option3").Value)
0091: Option4 = Trim(rst("Option4").Value)
0092: Option5 = Trim(rst("Option5").Value)
0093: 
0094: 
0095: 
0096: Kount = Kount + 1
0097: 
0098: If ItsOK = "X" Then
0099: MyPickForBet = MyPicks(Kount)
0100: 
0101: End If
0102: 
0103: Pick1Set = ""
0104: Pick2Set = ""
0105: Pick3Set = ""
0106: Pick4Set = ""
0107: Pick5Set = ""
0108: 
0109: RedBG = bgcolor
0110: 
0111: If MyPickForBet <> "" Then
0112: 
0113: If MyPickForBet = "1" Then
0114: Pick1Set = "checked"
0115: ElseIf MyPickForBet = "2" Then
0116: Pick2Set = "checked"
0117: ElseIf MyPickForBet = "3" Then
0118: Pick3Set = "checked"
0119: ElseIf MyPickForBet = "4" Then
0120: Pick4Set = "checked"
0121: ElseIf MyPickForBet = "5" Then
0122: Pick5Set = "checked"
0123: End If
0124: 
0125: Else
0126: If ShowMiss <> "" Then
0127: RedBG = "#ff0000"
0128: End If
0129: End If
0130: 
0131: %>
0132:     <tr height="20" bgcolor="<%= bgcolor %>">
0133: <td class="normbold" align="center" size="3%" bgcolor="<%= RedBG %>"><big><big><%= Kount %></td>
0134:  <td class="norm" align="right" size="52%" ><b><%= PropDescription %> </td>
0135: <td class="norm" align="center" size="9%"><%= Option1 %><br>
0136: <input type="radio" name="<%= ID %>" value="1" <%= Pick1Set %>> </td>
0137: <td class="norm" align="center" size="9%"><%= Option2 %><br>
0138: <input type="radio" name="<%= ID %>" value="2" <%= Pick2Set %>> </td>
0139: <% If Option3 <> "" Then %>
0140: <td class="norm" align="center" size="9%"><%= Option3 %><br>
0141: <input type="radio" name="<%= ID %>" value="3" <%= Pick3Set %>> </td>
0142: <% End If %>
0143: <% If Option4 <> "" Then %>
0144: <td class="norm" align="center" size="9%"><%= Option4 %><br>
0145: <input type="radio" name="<%= ID %>" value="4" <%= Pick4Set %>> </td>
0146: <% End If %>
0147: <% If Option5 <> "" Then %>
0148: <td class="norm" align="center" size="9%"><%= Option5 %><br>
0149: <input type="radio" name="<%= ID %>" value="5" <%= Pick4Set %>> </td>
0150: <% End If %>
0151: 
0152: 
0153:  
0154:     </tr>
0155: 
0156: <%
0157: 
0158: If bgcolor = "#FFFFFF" Then
0159: bgcolor = "#BDBDBD"
0160: Else
0161: bgcolor = "#FFFFFF"
0162: End If
0163: rst.MoveNext
0164: Loop
0165: %>
0166: 
0167: <% If NumEntries > 1 Then %>
0168: 	<tr><td align="center" colspan="8"><input type="submit" value="Submit" name="B1" style="background-color:#FAD2B8;">&nbsp;&nbsp;<input type="reset" value="Reset" name="B2"></td></tr>
0169: <% End If %>
0170: </table>
0171: </form>
0172: </body>
0173: </html>