Count Lines in Pages
Contents of Page: PropResultsMaint.asp
Number of Lines: 125
Last Modified: 8/22/2018 1:33:12 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 	Show = Trim(Request.QueryString("Show"))
0007: 
0008: %>
0009: <html>
0010: 
0011: <head>
0012: <meta http-equiv="Content-Language" content="en-us">
0013: <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
0014: <link href="mm.css" rel="stylesheet" type="text/css">
0015: <title>March Madness Contest - Proposition Bets</title>
0016: </head>
0017: <%	
0018: 
0019: 
0020: 	Set rst = Server.CreateObject("ADODB.Recordset")
0021: 	If Show = "ALL" Then
0022: 	sqlString = "SELECT * FROM PropBets WHERE Season = " & Season & " ORDER By DisplayOrder, ID"
0023: 	Else
0024: 	sqlString = "SELECT * FROM PropBets WHERE Season = " & Season & " AND WhoWon = '' ORDER By DisplayOrder, ID"
0025: 	End If
0026: '	Response.Write("<BR>" & SqlString)
0027: 	rst.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0028: 
0029: 
0030: 
0031: %>
0032: <table border="0" cellpadding="0" width="900">
0033: 
0034: <tr>
0035: 
0036: <td class="norm" colspan="10" ><big><a href="PropResultsEdit.asp?EventID=<%= EventID %>&PropBetID=0&Show=<%= Show %>">Add New</a>&nbsp|&nbsp;<a href="PropsUpdateStandings.asp">Update Standings</a>&nbsp;&nbsp|&nbsp;&nbsp;
0037: <a href="PropResultsMaint.asp?Show=ALL">Show All</a>&nbsp;&nbsp|&nbsp;&nbsp
0038: <a href="PropResultsMaint.asp">Remaining<a/>&nbsp;&nbsp|
0039: <a href="DisplayPropBets.asp?Hide=X">Display Bets & Results<a/>&nbsp;&nbsp|
0040: </big>
0041: </td>
0042: <td size="25%" class="norm" align="right"><big><a href="PropsUpdateEmailsSend.asp"><font face="Arial" size="2"><b>Send Email Updates</b></font></a>
0043: &nbsp;|&nbsp;<a href="PropBetsGetEMails.asp?EventID=x<%= EventID %>">Get Email IDs<a/></td></tr>
0044: <tr>
0045: <td Class="normbold" size="5%">Prop#</td>
0046: <td Class="normbold"  size="70%">Proposition Bet</td>
0047: <td Class="normbold" size="15%">Winner</td>
0048: <td Class="normbold" size="15%">Actual<br>Result</td>
0049: <td Class="normbold" size="5%">Display<br>Order</td>
0050: </tr>
0051: 
0052: <%
0053: bgcolor = "#FFFFFF"
0054: Kount = 0
0055: Dim Options(5)
0056: Do Until rst.Eof
0057: ID = rst("ID").Value
0058: PropDescription = rst("PropDescription").Value
0059: Options(1) = rst("Option1").Value
0060: Options(2) = rst("Option2").Value
0061: Options(3) = rst("Option3").Value
0062: Options(4) = rst("Option4").Value
0063: Options(5) = rst("Option5").Value
0064: WhoWon = Trim(rst("WhoWon").Value)
0065: ActualResult = Trim(rst("ActualResult").Value)
0066: DisplayOrder = rst("DisplayOrder").Value
0067: 
0068: OWhoWon = WhoWon
0069: 
0070: If Options(1) = "" Then
0071: Options(1) = EFirstName
0072: End If
0073: If Options(2) = "" Then
0074: Options(2) = ESecondName
0075: End If
0076: 
0077: LColor = "Black"
0078: RColor = "Black"
0079: Winner = ""
0080: 
0081: If WhoWon = "" Then
0082: Winner = "??"
0083: ElseIf WhoWon = "0" Then
0084: Winner = "None"
0085: Else
0086: If WhoWon > "5" Then WhoWon = 1
0087: Winner = Options(WhoWon)
0088: End If
0089: 
0090: 
0091: Kount = Kount + 1
0092: %>
0093:     <tr height="24" bgcolor="<%= bgcolor %>">
0094: <td class="normbold" align="center"><%= Kount %></td>
0095:       <td class="normbold" align="right"><a href="PropResultsEdit.asp?PropBetID=<%= ID %>&Show=<%= Show %>"><%= PropDescription %></a></td>
0096:       <td class="norm" align="center"><big><%= Winner %></td>
0097: <td class="normbold" align="center"><big><%= WhoWon %>
0098: <% If ActualResult <> "" Then %>
0099: <br><small>(<%= ActualResult %>)
0100: <% End If %>
0101: </td>
0102: <td class="normbold" align="left"><%= DisplayOrder %></td>
0103: <td class="normbold" align="center"><a href="PropBetDelete.Asp?ID=<%= ID %>&Show=<%= Show %>">Del</a></td>
0104:  
0105:     </tr>
0106: 
0107: <%
0108: 
0109: If bgcolor = "#FFFFFF" Then
0110: bgcolor = "#BDBDBD"
0111: Else
0112: bgcolor = "#FFFFFF"
0113: End If
0114: rst.MoveNext
0115: Loop
0116: %>
0117: 
0118: 	<tr><td>&nbsp	<a href="javascript:window.print()"><font face="Arial" size="2.5"><b> Print</b></font></a> </td></tr>
0119: 
0120: 
0121: 
0122:   </table>
0123: </form>
0124: </body>
0125: </html>