Count Lines in Pages
Contents of Page: biggestloserstandings_m.asp
Number of Lines: 242
Last Modified: 4/20/2025 2:10:41 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/ReturnPageSet.inc" -->
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 - 10
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: <meta name="viewport" content="width=device-width">
0105: <link href="mm.css" rel="stylesheet" type="text/css">
0106: <link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">
0107: <script language="JavaScript" type="text/javascript">
0108: 		function deleteNode(id)	{
0109: 			if (!confirm("Are you sure you want to delete this entry?"))	{
0110: 				return;
0111: 			}
0112: 			window.location = "BiggestLoserDelete.asp?id="+id;
0113: 		}
0114: 	</script>
0115: </head>
0116: </head>
0117: 
0118: <body bgcolor="#ffffff">
0119: 
0120: <table cellspacing="1" border="0" cellpadding="0" width="100%" align="center" >
0121: <tr>
0122: <td align="left" width="30%"><button class="button-10" onclick="window.open('standings_m.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>','mobilemain');"><small>Main Contest</big></button></td>
0123: <td align="center" width="30%"><button class="button-10" onclick="window.open('standings2nd_m.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>','mobilemain');"><small>Sweet 16</big></button></td>
0124: 
0125: <td align="right" width="40%"><button class="button-10" onclick="window.open('mystandings_m.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>','mobilemain');"><small>My Picks & Top 5</big></button></td>
0126: </tr>
0127:  </tr>
0128:  </table>
0129: <table cellspacing="2" border="0" cellpadding="0" width="100%" align="center">
0130:  
0131:     <tr><td class="smalldark" colspan="3" valign="bottom">
0132: <% If yr = Season Then %>	  
0133: 	  Last updated @  <font color="red"><%= STANDINGSUPDATED %></font> (PDT)
0134: <% End If %>
0135: </td>
0136:  <td class="norm"  align="right" colspan="8"><big><big><% If LastYr >= MaxYearToShow Then %><a href="biggestloserstandings_m.asp?yr=<%= LastYr %>&RegNumber=<%= RegNumber %>"><<</a><% End If %> |<b> <%= yr %></b>
0137: 
0138:  | <a href="biggestloserstandings_m.asp?yr=<%= NextYr %>&RegNumber=<%= RegNumber %>">>></a> 
0139: 
0140:   </big></td> 
0141: </tr>
0142: 
0143:   <tr bgcolor="#ffff99" >
0144:     <td width="10%"  class="small" align="center">Rnk</td>
0145:     <td width="30%" class="small" align="LEFT">Name</td>
0146:     <td width="30%" class="small" align="left">City, St</td>
0147: 	<td width="10%" class="small" align="center">Games<br>Played</td>
0148:     <td width="10%" class="small" align="center">Total<br>Points</td>
0149:     <td width="10%" class="small" align="center">Teams<br>Left</td>
0150:     
0151: 
0152: 
0153:   </tr>
0154: <%	bgcolor = "#e8e8e8"
0155: Ranking = 0
0156: 		Do Until rs.EOF
0157: 			ThisRegNumber = rs("RegNumber").Value
0158: 		Ranking = Ranking + 1
0159: 
0160: TotalAmount = ""
0161: 
0162: If Ranking =< 5 Then
0163: 
0164:  
0165:  	Select Case Ranking
0166: 			Case 1
0167: 				TotalAmount = rsp("B1").Value
0168: 			Case 2
0169: 				TotalAmount = rsp("B2").Value
0170: 			Case 3
0171: 				TotalAmount = rsp("B3").Value
0172: 			Case 4
0173: 				TotalAmount = rsp("B4").Value
0174: 			Case 5
0175: 				TotalAmount = rsp("B5").Value
0176: 		End Select
0177: 
0178: End If
0179: 
0180: 			   IF ranking =< 5 then
0181: 		      bgcolor = "#BCF5A9"
0182: 		   Else
0183: 			If bgcolor = "#e8e8e8" Then
0184: 				bgcolor = "#ffffff"
0185: 			Else
0186: 				bgcolor = "#e8e8e8"
0187: 			End If	
0188: 			End If
0189: 			If RegNumber = "" And ThisRegNumber = MyRegNumber Then
0190: 			 bgcolor = "#F5A9D0"
0191: 			End If
0192: 
0193: ' RegNumber = rs("RegNumber").Value
0194: 
0195: 	Set rsEntry = Server.CreateObject("ADODB.Recordset")
0196: 	sqlString = "SELECT * FROM mmEntries " & _
0197: 			"WHERE Season = " & yr & " "  & _
0198: 			"AND RegNumber = '" & ThisRegNumber & "' "  
0199: 	rsEntry.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0200: 	If rsEntry.EOF Then
0201: Name = "???, ??"
0202: CitySt = "???"
0203: Else
0204: 	lastName = rsEntry("Name").Value
0205: 	firstName = rsEntry("FirstName").Value
0206:     Name = FirstName & " " & LastName
0207: 	CitySt = rsEntry("City").Value & ", " & rsEntry("State").Value
0208: End if
0209: 	rsEntry.Close
0210: 	Set rsEntry = Nothing
0211: 
0212: 
0213: If RegNumber = "" Or ( RegNumber = ThisRegNumber OR ranking <= MaxtoShow ) Then
0214: 
0215: 			%>
0216:   <tr bgcolor="<%= bgcolor %>" height="18">
0217:     <td class="smalldark" align="center"><%= ranking %>
0218: </td>
0219: 
0220:     <td class="Norm" align="left"><a href="biggestloserdisplay.asp?yr=<%= yr %>&RegNumber=<%= ThisRegNumber %>" class="normUndl"><%= Name %></a></td>
0221: 
0222:     <td class="smalldark" align="left"><%= CitySt %>
0223: </td>
0224:     <td class="smalldark" align="center"><b><%= rs("GamesPlayed").Value %></b></td>
0225:     <td class="smalldark" align="center"><b><%= rs("TotalPoints").Value %></b></td>
0226:     <td class="smalldark" align="center"><%= rs("TeamsLeft").Value %></td>
0227: 
0228: <% If user = "jt@folga.org" Then %>
0229:   <td class="smalldark" align="center"><a
0230:         href="javascript:deleteNode('<%= rs("ID").Value %>')" class="smallblueUndl">Del</a></td>
0231: <% End If %>
0232:   </tr>
0233: <%		
0234: 
0235: End If
0236: rs.MoveNext
0237: 		Loop
0238: 		rs.Close
0239: 		Set rs = Nothing	%>
0240: </table>
0241: </body>
0242: </html>