Count Lines in Pages
Contents of Page: biggestloserstandings_label.asp
Number of Lines: 250
Last Modified: 2/27/2023 1:29:13 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: 
0005: <%
0006: 	yr = Request.QueryString("yr")
0007: 	RegNumber = Request.QueryString("RegNumber")
0008: 	MyChampion = Request.QueryString("Champion")
0009: 	ShowTop5 = Request.QueryString("Top5")
0010: 	MaxToShow = 0
0011: 	If ShowTop5 = "Y" Then
0012: 	MaxToShow = 5
0013: 	End If
0014: 
0015: 
0016: 
0017: 	If yr <> "" Then
0018: 	yr = CInt(yr)
0019: 	End If
0020: 	season = CInt(season)
0021: 
0022: MaxYearToShow = season - 3
0023: 	
0024: 	If yr = "" Then yr = season
0025: 
0026: 
0027: 		Set rsp = Server.CreateObject("ADODB.Recordset")
0028: 	sqlString = "SELECT * FROM mmPrizes " & _
0029: 			"WHERE Season = " & yr
0030: 	rsp.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0031: 
0032: 
0033: If yr < Season Then
0034: Future = "Y"
0035: NextYr = yr + 1
0036: End IF
0037: 
0038: LastYr = Yr - 1
0039: 
0040: If LastYr < 2011 Then LastYr = 2011
0041: 
0042: 	If startmakepicks = "YES" Then
0043: 	user = Request.Cookies("user")
0044: 	If user = "" and startmakepicks = "YES" Then Response.Redirect("login.asp?from=biggestloserstandings.asp")
0045: 
0046: 
0047:  	Set rsg = Server.CreateObject("ADODB.Recordset")
0048: 	sqlString = "SELECT * FROM mmEntries " & _
0049: 			"WHERE Season = " & yr & " " & _
0050: 			"AND EmailAddress = '" & user & "'"
0051: '	rsg.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0052:     rsg.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText	  
0053: 	
0054:      	
0055: 	If rsg.EOF Then
0056: '
0057:     Else	
0058: 
0059: 		paid = rsg("PaidEntries").Value
0060: 	paid2nd = rsg("Paid2ndEntries").Value
0061: 	firstname = rsg("FirstName").Value
0062: 	ShowStand = rsg("ShowStandings").Value
0063: 	MyRegNumber = rsg("RegNumber").Value
0064: 
0065:     If showstandingstounpaid <> "YES" Then
0066: 
0067: 		If paid < 1 and paid2nd < 1 and ShowStand = False Then Response.Redirect("notpaidyet.asp?name=" & firstname)
0068: 
0069:     End If
0070: 
0071: 	MyRegNumber = rsg("RegNumber").Value
0072: 	
0073: 	rsg.Close
0074: 	set rsg = Nothing
0075:    End If
0076: 
0077:    End if
0078: 	
0079: 	sortStr = Request.QueryString("sort")
0080: 	If sortStr = "" Then sortStr = "GamesPlayed, TotalPoints ASC"
0081: If sort = "Name" Then
0082: sortStr = "Name ASC"
0083: End If
0084: 
0085: 
0086: 	Set rs = Server.CreateObject("ADODB.Recordset")
0087: 	sqlString = "SELECT * FROM mmBiggestLoser " & _
0088: 			"WHERE Season = " & yr & " " & _
0089: 			"ORDER BY " & sortStr
0090: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0091: 
0092: 		totpicks = rs.RecordCount
0093: 
0094: 
0095: 		
0096: 
0097: '   	tenpct = CInt(totpicks / 10)
0098: Tenpct = 5
0099: %>
0100: <html>
0101: 
0102: <head>
0103: <title>March Madness - Biggest Losers Standings</title>
0104: <link href="mm.css" rel="stylesheet" type="text/css">
0105: <script language="JavaScript" type="text/javascript">
0106: 		function deleteNode(id)	{
0107: 			if (!confirm("Are you sure you want to delete this entry?"))	{
0108: 				return;
0109: 			}
0110: 			window.location = "BiggestLoserDelete.asp?id="+id;
0111: 		}
0112: 	</script>
0113: </head>
0114: </head>
0115: 
0116: <body bgcolor="#ffffff">
0117: 
0118: 
0119: 
0120: <table cellspacing="2" border="0" cellpadding="0" width="900">
0121:   <tr>
0122:     <td width="3%" height="1"><img src="clear.gif" width="1" height="1"></td>
0123:     <td width="16%"><img src="clear.gif" width="1" height="1"></td>
0124:     <td width="20%"><img src="clear.gif" width="1" height="1"></td>
0125:     <td width="4%"><img src="clear.gif" width="1" height="1"></td>
0126:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0127:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0128:     <td width="9%"><img src="clear.gif" width="1" height="1"></td>
0129:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0130:     <td width="9%"><img src="clear.gif" width="1" height="1"></td>
0131:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0132:     <td width="9%"><img src="clear.gif" width="1" height="1"></td>
0133:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0134:     <td width="9%"><img src="clear.gif" width="1" height="1"></td>
0135:     <td width="3%"><img src="clear.gif" width="1" height="1"></td>
0136:   </tr>
0137: 
0138: 
0139:   <tr bgcolor="#577fbe">
0140:     <td width="25"  class="small" align="center">Rnk</td>
0141:     <td width="140" class="small" align="LEFT">Name</td>
0142:     <td width="150" class="small" align="left">City, St</td>
0143: 	<td width="30" class="small" align="center">Games<br>Played</td>
0144:     <td width="30" class="small" align="center">Total<br>Points</td>
0145:     <td width="30" class="small" align="center">Teams<br>Left</td>
0146:     <td width="75" class="small" align="center">#1 Seed</td>
0147:     <td width="25" class="small" align="center">Pts</td>
0148:     <td  width="75" class="small" align="center">#2 Seed</td>
0149:     <td width="25" class="small" align="center">Pts</td>
0150:     <td  width="75" class="small" align="center">#3 Seed</td>
0151:     <td width="25" class="small" align="center">Pts</td>
0152:     <td  width="75" class="small" align="center">#4 Seed</td>
0153:     <td width="30" class="small" align="center">Pts</td>
0154:     <td width="30" class="small" align="center">Pay<br>Out</td>
0155: 
0156:   </tr>
0157: <%	bgcolor = "#e8e8e8"
0158: Ranking = 0
0159: 		Do Until rs.EOF
0160: 			ThisRegNumber = rs("RegNumber").Value
0161: 		Ranking = Ranking + 1
0162: 
0163: TotalAmount = ""
0164: 
0165: If Ranking =< 5 Then
0166: 
0167:  
0168:  	Select Case Ranking
0169: 			Case 1
0170: 				TotalAmount = rsp("B1").Value
0171: 			Case 2
0172: 				TotalAmount = rsp("B2").Value
0173: 			Case 3
0174: 				TotalAmount = rsp("B3").Value
0175: 			Case 4
0176: 				TotalAmount = rsp("B4").Value
0177: 			Case 5
0178: 				TotalAmount = rsp("B5").Value
0179: 		End Select
0180: 
0181: End If
0182: 
0183: 			   IF ranking =< 5 then
0184: 		      bgcolor = "#BCF5A9"
0185: 		   Else
0186: 			If bgcolor = "#e8e8e8" Then
0187: 				bgcolor = "#ffffff"
0188: 			Else
0189: 				bgcolor = "#e8e8e8"
0190: 			End If	
0191: 			End If
0192: 			If RegNumber = "" And ThisRegNumber = MyRegNumber Then
0193: 			 bgcolor = "#F5A9D0"
0194: 			End If
0195: 
0196: ' RegNumber = rs("RegNumber").Value
0197: 
0198: 	Set rsEntry = Server.CreateObject("ADODB.Recordset")
0199: 	sqlString = "SELECT * FROM mmEntries " & _
0200: 			"WHERE Season = " & yr & " "  & _
0201: 			"AND RegNumber = '" & ThisRegNumber & "' "  
0202: 	rsEntry.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0203: 	If rsEntry.EOF Then
0204: Name = "???, ??"
0205: CitySt = "???"
0206: Else
0207: 	lastName = rsEntry("Name").Value
0208: 	firstName = rsEntry("FirstName").Value
0209:     Name = FirstName & " " & LastName
0210: 	CitySt = rsEntry("City").Value & ", " & rsEntry("State").Value
0211: End if
0212: 	rsEntry.Close
0213: 	Set rsEntry = Nothing
0214: 
0215: 
0216: If RegNumber = "" Or ( RegNumber = ThisRegNumber OR ranking <= MaxtoShow ) Then
0217: 
0218: 			%>
0219:   <tr bgcolor="<%= bgcolor %>" height="18">
0220:     <td class="smalldark" align="center"><%= ranking %>
0221: </td>
0222: 
0223:     <td class="Norm" align="left"><a href="biggestloserdisplay.asp?yr=<%= yr %>&RegNumber=<%= rs("RegNumber").Value %>" class="normUndl"><%= Name %></a></td>
0224: 
0225:     <td class="smalldark" align="left"><%= CitySt %>
0226: </td>
0227:     <td class="smalldark" align="center"><b><%= rs("GamesPlayed").Value %></b></td>
0228:     <td class="smalldark" align="center"><b><%= rs("TotalPoints").Value %></b></td>
0229:     <td class="smalldark" align="center"><%= rs("TeamsLeft").Value %></td>
0230:     <td class="smalldark" align="Left"><%= rs("Seed01TeamName").Value %></td>
0231:     <td class="smalldark" align="center"><%= rs("Seed01Points").Value %></td>
0232:     <td class="smalldark" align="Left"><%= rs("Seed02TeamName").Value %></td>
0233:     <td class="smalldark" align="center"><%= rs("Seed02Points").Value %></td>
0234:     <td class="smalldark" align="Left"><%= rs("Seed03TeamName").Value %></td>
0235:     <td class="smalldark" align="center"><%= rs("Seed03Points").Value %></td>
0236:     <td class="smalldark" align="Left"><%= rs("Seed04TeamName").Value %></td>
0237:     <td class="smalldark" align="center"><%= rs("Seed04Points").Value %></td>
0238:     <td class="normbold" align="center"><%= TotalAmount %></td>
0239: 
0240:   </tr>
0241: <%		
0242: 
0243: End If
0244: rs.MoveNext
0245: 		Loop
0246: 		rs.Close
0247: 		Set rs = Nothing	%>
0248: </table>
0249: </body>
0250: </html>