Count Lines in Pages
Contents of Page: proppicksdisplay.asp
Number of Lines: 98
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:   	RegNumber = Request.QueryString("RegNumber")
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>PickASquare - Super Bowl Proposition Bets</title>
0016: </head>
0017: <%	
0018: 
0019: EventID = 1
0020: 
0021: 	Set rst = Server.CreateObject("ADODB.Recordset")
0022: 	sqlString = "SELECT * FROM PropBets WHERE EventID = " & EventID & " ORDER By ID"
0023: 	rst.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0024: 
0025: 
0026: 
0027: %>
0028: <table border="0" cellpadding="0" width="700">
0029: <tr>
0030: <td size="5%">&nbsp;</td>
0031: <td size="25%" class="norm" align="right"><a href="javascript:history.back()"><font face="Arial" size="2"><b>&lt;&lt; Previous page</b></font></a></td>
0032: 
0033: <td size="30%" class="norm" align="Center"><big>Proposition Bet</big></td>
0034: <td size="25%" class="norm" align="left"></td>
0035: <td size="5%">&nbsp;</td>
0036: </tr>
0037: 
0038: <%
0039: bgcolor = "#FFFFFF"
0040: Kount = 0
0041: Do Until rst.Eof
0042: ID = rst("ID").Value
0043: PropDescription = rst("PropDescription").Value
0044: PropType = rst("PropType").Value
0045: LeftName = rst("LeftName").Value
0046: RightName = rst("RightName").Value
0047: WhoWon = rst("WhoWon").Value
0048: If PropType = "T" Then
0049: LeftName = "Seahawks"
0050: RightName = "Broncos"
0051: End If
0052: 
0053: Kount = Kount + 1
0054: 	Set rsp = Server.CreateObject("ADODB.Recordset")
0055: 	sqlString = "SELECT * FROM PropPicks WHERE RegNumber = '" & RegNumber & "' " & _
0056: 	            "AND  PropBetID = " & ID
0057: 	rsp.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0058: 	If rsp.Eof Then
0059: 	'
0060: 	Else
0061:     LeftRight = rsp("LeftRight").Value
0062: 
0063: 	If LeftRight = "L" Then
0064: 	LeftName = "<big><b>" & LeftName & "</big></b>"
0065: 	Else
0066: 	RightName = "<big><b>" & RightName & "</big></b>"
0067: 	End If
0068: 	End If
0069: 
0070: %>
0071:     <tr height="24" bgcolor="<%= bgcolor %>">
0072: <td class="normbold" align="center"><%= Kount %></td>
0073: <td class="norm" align="right"><big><%= LeftName %></td>
0074:       <td class="norm" align="Center"><%= PropDescription %></td>
0075:       <td class="norm" align="left"><big><%= RightName %></td>
0076: <td class="normbold" align="center"><%= Kount %></td>
0077:  
0078:     </tr>
0079: 
0080: <%
0081: 
0082: If bgcolor = "#FFFFFF" Then
0083: bgcolor = "#BDBDBD"
0084: Else
0085: bgcolor = "#FFFFFF"
0086: End If
0087: rst.MoveNext
0088: Loop
0089: %>
0090: 
0091: 	<tr><td>&nbsp	<a href="javascript:window.print()"><font face="Arial" size="2.5"><b> Print</b></font></a> </td></tr>
0092: 
0093: 
0094: 
0095:   </table>
0096: </form>
0097: </body>
0098: </html>