Count Lines in Pages
Contents of Page: DisplayPropBets.asp
Number of Lines: 135
Last Modified: 8/22/2018 1:32:42 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 	
0007: 	Hide = Request.QueryString("Hide")
0008: 	NoMorePicks = Request.QueryString("NoMorePicks")
0009: 
0010: %>
0011: <html>
0012: 
0013: <head>
0014: <meta http-equiv="Content-Language" content="en-us">
0015: <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
0016: <link href="mm.css" rel="stylesheet" type="text/css">
0017: <title>March Madness Contest -  Proposition Bets</title>
0018: </head>
0019: <%	
0020: 
0021: 	Set rst = Server.CreateObject("ADODB.Recordset")
0022: 	sqlString = "SELECT * FROM PropBets WHERE Season = " & Season & " ORDER By DisplayOrder, ID"
0023: 	rst.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0024: 
0025: 
0026: %>
0027: <table border="2" cellpadding="2" width="800">
0028: <% If Hide = "" Then %>
0029: <tr><td class="norm" colspan="10" align="center"><big>Participation in the March Madness "Proposition Bets" is FREE,<br>but it is limited to those who have <u><b>2 or more</u></b> entries in the March Madness Contest</td></tr>
0030: 
0031: <% End If %>
0032: <% If NoMorePicks <> "" Then %>
0033: <tr><td class="normred" colspan="10" align="center"><big>Tournament has started.  You may not make/change your selections</td></tr>
0034: 
0035: <% End If %>
0036: <tr height="30"><td width="3%"></td>
0037: <td class="norm" align="center" width="52%"><big>Propostion Bet Description</td>
0038: <td class="normbold" align="center" width="9%">Option #1</td>
0039: <td class="normbold" align="center" width="9%">Option #2</td>
0040: <td class="normbold" align="center" width="9%">Option #3</td>
0041: <td class="normbold" align="center" width="9%">Option #4</td>
0042: <td class="normbold" align="center" width="9%">Option #5</td>
0043: </tr>
0044: 
0045: <%
0046: bgcolor = "#FFFFFF"
0047: Kount = 0
0048: Do Until rst.Eof
0049: ID = rst("ID").Value
0050: PropDescription = rst("PropDescription").Value
0051: 'PropType = rst("PropType").Value
0052: Option1 = rst("Option1").Value
0053: Option2 = rst("Option2").Value
0054: Option3 = rst("Option3").Value
0055: Option4 = rst("Option4").Value
0056: Option5 = rst("Option5").Value
0057: WhoWon = rst("WhoWon").Value
0058: ActualResult = rst("ActualResult").Value
0059: 
0060: BOLD1 = ""
0061: BOLD2 = ""
0062: BOLD3 = ""
0063: BOLD4 = ""
0064: BOLD5 = ""
0065: COLOR1 = ""
0066: COLOR2 = ""
0067: COLOR3 = ""
0068: COLOR4 = ""
0069: COLOR5 = ""
0070: 
0071: If WhoWon = "1" Then
0072: BOLD1 = "<B>"
0073: COLOR1 = "lightgreen"
0074: End If
0075: If WhoWon = "2" Then
0076: BOLD2 = "<B>"
0077: COLOR2 = "lightgreen"
0078: End If
0079: If WhoWon = "3" Then
0080: BOLD3 = "<B>"
0081: COLOR3 = "lightgreen"
0082: End If
0083: If WhoWon = "4" Then
0084: BOLD4 = "<B>"
0085: COLOR4 = "lightgreen"
0086: End If
0087: If WhoWon = "5" Then
0088: BOLD5 = "<B>"
0089: COLOR5 = "lightgreen"
0090: End If
0091: 
0092: 
0093: 
0094: Kount = Kount + 1
0095: 
0096: If ItsOK = "X" Then
0097: MyPickForBet = MyPicks(Kount)
0098: 
0099: End If
0100: 
0101: 
0102: %>
0103:     <tr height="25" bgcolor="<%= bgcolor %>">
0104: <td class="normbold" align="center"><big><%= Kount %></td>
0105:  <td class="norm" align="right" ><b><%= PropDescription %> </td>
0106: <td class="norm" align="center"  bgcolor="<%= COLOR1 %>"><%= BOLD1 %><%= Option1 %></td>
0107: <td class="norm" align="center"  bgcolor="<%= COLOR2 %>"><%= BOLD2 %><%= Option2 %></td>
0108: <% If Option3 <> "" Then %>
0109: <td class="norm" align="center"  bgcolor="<%= COLOR3 %>"><%= BOLD3 %><%= Option3 %></td>
0110: <% End If %>
0111: <% If Option4 <> "" Then %>
0112: <td class="norm" align="center"  bgcolor="<%= COLOR4 %>"><%= BOLD4 %><%= Option4 %></td>
0113: <% End If %>
0114: <% If Option5 <> "" Then %>
0115: <td class="norm" align="center"  bgcolor="<%= COLOR5 %>"><%= BOLD5 %><%= Option5 %></td>
0116: <% End If %>
0117: 
0118: 
0119:  
0120:     </tr>
0121: 
0122: <%
0123: 
0124: If bgcolor = "#FFFFFF" Then
0125: bgcolor = "#BDBDBD"
0126: Else
0127: bgcolor = "#FFFFFF"
0128: End If
0129: rst.MoveNext
0130: Loop
0131: %>
0132:   </table>
0133: 
0134: </body>
0135: </html>