Count Lines in Pages
Contents of Page: PropStandings.asp
Number of Lines: 178
Last Modified: 8/22/2018 1:33:12 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: 
0007: <%
0008: 
0009: 
0010: 
0011: 	Set rst = Server.CreateObject("ADODB.Recordset")
0012: 	sqlString = "SELECT * FROM PropBets WHERE Season = " & Season & " ORDER By DisplayOrder, ID"
0013: 	rst.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0014: 
0015: Dim Results(100)
0016: Kount = 0
0017: 	Do Until rst.Eof
0018: 	Kount = Kount + 1
0019: Results(Kount) = rst("WhoWon").Value
0020: 
0021: 	 rst.MoveNext
0022: 	 Loop
0023: 
0024: 
0025: %>
0026: 
0027: <html>
0028: 
0029: <head>
0030: 	<meta http-equiv="Content-Language" content="en-us">
0031: 	<title>PickASquare - Propostion Bets Listing</title>
0032: 	<link href="mm.css" rel="stylesheet" type="text/css">
0033: 
0034: </head>
0035: 
0036: 
0037: <table width="750">
0038: <%
0039: 
0040: 
0041: %>
0042: 
0043: <tr bgcolor="#66cc00">
0044: <td class="normbold" width="3%">Pos</td>
0045: <td class="normbold" width="23%">Name</td>
0046: <td class="normbold" align="22%" width="80">City, St</td>
0047: <td class="normbold" width="5%">Pts</td>
0048: <%
0049: K = 0
0050: Do Until K >= Kount
0051: K = K + 1
0052: y = " " & K
0053: Y = Right(y,2)
0054: %>
0055: <td class="normbold" align="center" width="3%"><%= y %></td>
0056: <%
0057: Loop
0058: %>
0059: </tr>
0060: <%
0061: 
0062: rbgcolor="#D8D8D8"
0063: 
0064: Dim MyPicks
0065: Dim MyResultsx
0066: 
0067: 
0068: 	Set rs = Server.CreateObject("ADODB.Recordset")
0069: 		sqlString = "SELECT * FROM PropPicks WHERE Season = " & Season & " ORDER BY TotalPoints DESC, MyResults DESC"
0070: 	       
0071: 	rs.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0072: 	
0073: Rank = 0 
0074: 
0075: Do Until rs.EOF	
0076: 
0077: Rank = Rank + 1
0078: 
0079: If rbgcolor="#D8D8D8" Then
0080: rbgcolor="#ffffff"
0081: Else
0082: rbgcolor="#D8D8D8"
0083: End If
0084: TotCount = TotCount + 1
0085: 
0086: 	EntryID = rs("ID").Value
0087: '	FirstName = rs("FirstName").Value
0088: '	LastName = rs("LastName").Value
0089: '	CitySt = rs("CitySt").Value
0090: '	Rank = rs("Rank").Value
0091: 	MyResults = rs("MyResults").Value
0092: 	TotalPoints = rs("TotalPoints").Value
0093:     EmailAddress = rs("EmailAddress").Value
0094: 
0095: 	    MySelections = rs("MySelections").Value
0096: 
0097: 	MyPicks = Split(MySelections,"-")
0098: 	MyResultsx = Split(MyResults,"-")
0099: 
0100: 			Set rsEntry = Server.CreateObject("ADODB.Recordset")
0101:     	sqlString = "SELECT * FROM mmEntries " & _
0102: 							"WHERE EmailAddress = '" & EmailAddress & "' " & _
0103: 							"AND Season = " & season
0104: 	rsEntry.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0105: 
0106: If rsEntry.EOF Then
0107: 
0108: FullName = EmailAddress
0109: CitySt = "??"
0110: 
0111: Else
0112: 
0113: LastName = rsEntry("Name").Value
0114: FirstName = rsEntry("FirstName").Value
0115: City = rsEntry("City").Value
0116: State = rsEntry("State").Value
0117: 	FullName = LastName & ", " & FirstName 
0118: 	CitySt = City & ", " & State
0119: End If
0120: %>
0121: 	<tr bgcolor="<%= rbgcolor %>" height="18">
0122: 	    <td class="norm" align="center"><%= Rank %></td>
0123: 	    <td class="norm" align="left" ><a href="PropPicksDisplay2.Asp?EntryID=<%= EntryID %>"><%= FullName %></a></td>
0124: 	    <td class="smalldark" align="left"><%= CitySt %></td>
0125: 	    <td class="normbold" align="center"><%= TotalPoints %></td>
0126: <% K = 0
0127: Do Until K >= Kount
0128: K = K + 1
0129: BGColor = "white"
0130: If Results(K) <> " " And Results(K) <> "" Then
0131: If MyResultsx(K) = 1 Then
0132: BGColor = "lightgreen"
0133: Else
0134: BGColor = "#ff0066"
0135: End If
0136: End If
0137: 
0138: %>
0139: <td class="norm" align="center" bgcolor="<%= BGColor %>"><font="arial" size="2"><%= MyPicks(K) %></td>
0140: <%
0141: Loop
0142: %>
0143: </tr>
0144: <%
0145: 
0146: 
0147: 
0148: 
0149: 
0150: 
0151: 
0152: 
0153: %>
0154: <%
0155: 
0156: 
0157: 	%>
0158: 
0159: 
0160: </tr>
0161: 
0162: <%	  
0163: 
0164: 
0165: 	 rs.MoveNext
0166: 	 Loop
0167: 
0168: %>
0169: 
0170: </table>
0171: </html>
0172: 
0173: 
0174: 
0175: 
0176: 
0177: 
0178: