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