Count Lines in Pages
Contents of Page: mystandings_m.asp
Number of Lines: 483
Last Modified: 2/20/2026 9:26:03 AM
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: 	Desktop = Request.QueryString("DeskTop")	
0008: 	RegNumber = Request.QueryString("RegNumber")
0009: 	MyChampion = Request.QueryString("Champion")
0010: 	ShowTop5 = Request.QueryString("Top5")
0011: 	ShowTop10 = Request.QueryString("Top10")
0012: 
0013: 	MaxToShow = 0
0014: 
0015: 	TotalMobileEntries = 0
0016: 
0017: 	If ShowTop5 = "Y" Then
0018: 	MaxToShow = 5
0019: 	End If
0020: 
0021: 	If yr = "" Then yr = season
0022: 
0023: 	
0024: 	
0025: 	' If RegOpen = "YES" and Yr = Season Then
0026: 	   ' Yr = Yr - 1
0027: 	' End If
0028: 	
0029: ' Response.Write("RegOpen=" & RegOPen & " Yr=" & yr)
0030: 	
0031: If yr < Season Then
0032: Future = "Y"
0033: NextYr = yr + 1
0034: End IF
0035: 
0036: LastYr = Yr - 1
0037: 
0038: MaxYearToShow = season - 10
0039: 
0040: 
0041: 	user = Request.Cookies("user")
0042: 	If user = "" Then Response.Redirect("login_m.asp")
0043:  
0044:   	Set rsg = Server.CreateObject("ADODB.Recordset")
0045: 	sqlString = "SELECT * FROM mmEntries " & _
0046: 			"WHERE Season = " & yr & " " & _
0047: 			"AND EmailAddress = '" & user & "'"
0048: 			
0049: 				
0050: '	Response.write("<br>" & sqlstring)
0051: 	
0052: '	rsg.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0053:     rsg.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText	  
0054: 	
0055:     YrDiff = season - yr
0056:     If YrDiff <> 0 Then
0057:     ShowStand = True
0058:     Else
0059:     ShowStand = False
0060:     End If
0061:     	
0062: 	If rsg.EOF Then
0063: '
0064:     Else	
0065: 	paid = rsg("PaidEntries").Value
0066:     Entries = rsg("NumEntries").Value
0067:     Num2ndEntries = rsg("Num2ndEntries").Value
0068: 	paid2nd = rsg("Paid2ndEntries").Value
0069: 	firstname = rsg("FirstName").Value
0070: 	ShowStand = rsg("ShowStandings").Value
0071: 	MyRegNumber = rsg("RegNumber").Value
0072: 	
0073: 	rsg.Close
0074: 	set rsg = Nothing
0075:     End If
0076: 
0077: 
0078: '============================================================
0079:   
0080:     If showstandingstounpaid <> "YES" Then
0081: 
0082: 		UnpaidEntries = Entries - Paid
0083: 		UnpaidEntries = UnpaidEntries + (num2ndEntries - Paid2nd)
0084: 		UnpaidEntries = CInt(UnpaidEntries)
0085:     
0086: 		If UnpaidEntries > 0 and ShowStand = False Then 
0087: 			Response.Redirect("notpaidyet.asp?name=" & firstname)
0088: 		End if
0089: 	End If
0090: 
0091: '============================================================
0092: 
0093: 	Set rs = Server.CreateObject("ADODB.Recordset")
0094: 
0095: 
0096: 	sqlString = "SELECT * FROM mmStandings " & _
0097: 			"WHERE Season = " & yr & " AND ( RegNumber = '" & MyRegNumber & "' OR Rank < 6 ) ORDER BY Rank"
0098: 
0099: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0100: 
0101: 'Response.Write(sqlstring & "<br>")
0102: 
0103: If DeskTop = "Y" Then
0104: TableWidth = "500"
0105: 
0106: Else
0107: TableWidth = "100%"
0108: 
0109: End If
0110: 
0111: %>
0112: <html>
0113: 
0114: <head>
0115: <meta name="viewport" content="width=device-width">
0116: <title>March Madness - Standings</title>
0117: <link href="mm.css" rel="stylesheet" type="text/css">
0118: <link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">	
0119: <script language="JavaScript">
0120: 	
0121: 		function getData(form)	{
0122: 			var yr = form.SeasonYr.options[form.SeasonYr.selectedIndex].value
0123: 			if (yr != "")	{
0124: 				document.location.href = "standings.asp?yr="+yr
0125: 			}
0126: 		}
0127: 		
0128: 	</script>
0129: </head>
0130: 
0131: <body bgcolor="#ffffff">
0132: 
0133: <% If Desktop <> "Y" Then %>
0134: <table  width="100%">
0135:  <tr>
0136: <td align="left"><button class="button-10" onclick="window.open('standings_m.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>','mobilemain');"><small>Main Contest</big></button></td>
0137: <td align="center"><button class="button-10" onclick="window.open('biggestloserstandings_m.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>','mobilemain');"><small>Biggest Loser</big></button></td>
0138: <td align="right"><button class="button-10" onclick="window.open('standings2nd_m.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>','mobilemain');"><small>Sweet 16</big></button></td>
0139: 
0140: </tr>
0141: 
0142: <% Else %>
0143: 
0144: <table  width="500">
0145:  <tr>
0146: <td align="left"><button class="button-10" onclick="window.open('standings.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>','main');"><small>Main Contest</big></button></td>
0147: <td align="center"><button class="button-10" onclick="window.open('biggestloserstandings.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>','main');"><small>Biggest Loser</big></button></td>
0148: <td align="right"><button class="button-10" onclick="window.open('standings2nd.asp?yr=<%= yr %>&RegNumber=<%= RegNumber %>','main');"><small>Sweet 16</big></button></td>
0149: 
0150: </tr>
0151: 
0152: </table>
0153: <% End If %>
0154: <table cellspacing="2" border="0" cellpadding="0" width="<%= TableWidth %>" >
0155:  <tr>
0156:   <td class="norm"  align="right" colspan="8"><big><big><% If LastYr >= MaxYearToShow Then %><a href="mystandings_m.asp?yr=<%= LastYr %>&RegNumber=<%= RegNumber %>&Desktop=<%= Desktop %>"><<</a><% End If %> |<b> <%= Yr %></b>
0157: 
0158:  | <a href="mystandings_m.asp?yr=<%= NextYr %>&RegNumber=<%= RegNumber %>&Desktop=<%= Desktop %>">>></a> 
0159:  </tr>
0160:     <tr><td class="Norm" colspan="3" valign="bottom" align="center"><big><font color="blue">Summary of My Picks & Top 5 in all contests</font></td>
0161: 
0162:   </big></td> 
0163: </tr>
0164:  </table>
0165: 
0166: 
0167: <table cellspacing="2" border="0" cellpadding="0" width="<%= TableWidth %>" >
0168: 
0169:     <tr><td class="Norm" colspan="6" valign="bottom" align="center"><big><big><b>Main Contest</td> </big></td></tr>
0170: 
0171:   <tr bgcolor="#33ccff">
0172:     <td width="5%" class="small" align="center">RNK</a></td>
0173:     <td width="40%" class="Medium" align="LEFT">ENTRY NAME</a></td>
0174: 	    <td class="small" align="center">PTS</td>
0175:     <td width="5%" class="small" align="center">POSS<br>PTS</td>
0176:     <td width="25%" class="small" align="center">CHAMPION</a></td>
0177:     <td width="25%" class="small" align="center">RUNNER-UP<br>
0178:   </tr>
0179: <%	bgcolor = "#e8e8e8"
0180: 		Do Until rs.EOF
0181: 
0182: ' "#FED87B"
0183: 	ThisRegNumber = rs("RegNumber").Value
0184: '		TextEmailAddress = rs("TextEmailAddress").Value
0185:           		UsedMobile = rs("UsedMobile").Value
0186: 		   ranking = rs("Rank").Value
0187: 		   IF ranking =< 5 then
0188: 		      bgcolor = "#BCF5A9"
0189: 		   Else
0190: 			If bgcolor = "#e8e8e8" Then
0191: 				bgcolor = "#ffffff"
0192: 			Else
0193: 				bgcolor = "#e8e8e8"
0194: 			End If	
0195: 			End If
0196: 
0197: 
0198: 			F4 = rs("RunnerUp").Value
0199: 			RunnerUp = Split(F4,"/")
0200: 
0201: If UsedMobile = "Y" And User = "jt@folga.org" Then
0202: cell_color = "#6699ff"
0203: TotalMobileEntries = TotalMobileEntries + 1
0204: Else
0205: cell_color = bgcolor
0206: End IF
0207: 
0208: 'If RegNumber = "" Or ( RegNumber = ThisRegNumber OR ranking <= MaxtoShow ) Then
0209: 			%>
0210:   <tr bgcolor="<%= bgcolor %>" height="18">
0211: 
0212:     <td class="smalldark" align="center" ><%= ranking %>
0213: 
0214: </td>
0215:     <td class="smalldark" align="left"><a
0216:     href="displaypicks3.asp?year=<%= yr %>&amp;pick=<%= rs("PicksId").Value %>&CloseWindow=Y"
0217:     class="normUndl"><%= rs("Name").Value %></a></td>
0218: </td>
0219:     <td class="smalldark" align="center"><%= rs("Pts").Value %>
0220: </td>
0221:     <td class="smalldark" align="center"><%= rs("PossPts").Value %>
0222: </td>
0223:     <td class="smalldark" align="center">
0224: 
0225: <%= rs("Champion").Value %>
0226: 
0227: </td>
0228:     <td class="smalldark" align="center"><%= RunnerUp(0)  %>
0229: </td>
0230: 
0231:   </tr>
0232: <%		
0233: '		End If
0234: 		rs.MoveNext
0235: 		Loop
0236: 		rs.Close
0237: 		Set rs = Nothing	
0238: 		
0239: 		
0240: 	Set rs = Server.CreateObject("ADODB.Recordset")
0241: 	sqlString = "SELECT * FROM mmBiggestLoser " & _
0242: 			"WHERE Season = " & yr & "  " & _
0243: 			"ORDER BY GamesPlayed, TotalPoints ASC"
0244: 			
0245: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0246: 
0247: 
0248: %>
0249: 
0250: 	 </table>
0251: <table cellspacing="2" border="0" cellpadding="0" width="<%= TableWidth %>" >
0252: <tr><td>&nbsp;<br>&nbsp;</td></tr>
0253: 
0254: 
0255:     <tr><td class="Norm" colspan="6" valign="bottom" align="center"><big><big><b>Biggest Loser Contest</td> </big></td></tr>
0256: 
0257:   <tr bgcolor="#ffff99" >
0258:     <td width="10%"  class="small" align="center">Rnk</td>
0259:     <td width="30%" class="small" align="LEFT">Name</td>
0260:     <td width="30%" class="small" align="left">City, St</td>
0261: 	<td width="10%" class="small" align="center">Games<br>Played</td>
0262:     <td width="10%" class="small" align="center">Total<br>Points</td>
0263:     <td width="10%" class="small" align="center">Teams<br>Left</td>
0264:     
0265: 
0266: 
0267:   </tr>
0268: <%	bgcolor = "#e8e8e8"
0269: Ranking = 0
0270: 		Do Until rs.EOF
0271: 			ThisRegNumber = rs("RegNumber").Value
0272: 		Ranking = Ranking + 1
0273: 
0274: OKToShow = False
0275: 
0276: 			   IF ranking =< 5 then
0277: 		      bgcolor = "#BCF5A9"
0278: 			  OKToShow = True
0279: 		   Else
0280: 			If bgcolor = "#e8e8e8" Then
0281: 				bgcolor = "#ffffff"
0282: 			Else
0283: 				bgcolor = "#e8e8e8"
0284: 			End If	
0285: 			End If
0286: 			If ThisRegNumber = MyRegNumber Then
0287: 			 OKToShow = True
0288: 			End If
0289: 
0290: ' RegNumber = rs("RegNumber").Value
0291: 
0292: 	Set rsEntry = Server.CreateObject("ADODB.Recordset")
0293: 	sqlString = "SELECT * FROM mmEntries " & _
0294: 			"WHERE Season = " & yr & " "  & _
0295: 			"AND RegNumber = '" & ThisRegNumber & "'"
0296: 
0297: 
0298: 	rsEntry.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0299: 	If rsEntry.EOF Then
0300: Name = "???, ??"
0301: CitySt = "???"
0302: Else
0303: 	lastName = rsEntry("Name").Value
0304: 	firstName = rsEntry("FirstName").Value
0305:     Name = FirstName & " " & LastName
0306: 	CitySt = rsEntry("City").Value & ", " & rsEntry("State").Value
0307: End if
0308: 	rsEntry.Close
0309: 	Set rsEntry = Nothing
0310: 
0311: 
0312: If OKToShow = True Then
0313: 
0314: 			%>
0315:   <tr bgcolor="<%= bgcolor %>" height="18">
0316:     <td class="smalldark" align="center"><%= ranking %>
0317: </td>
0318: 
0319:     <td class="Norm" align="left"><a href="biggestloserdisplay.asp?yr=<%= yr %>&RegNumber=<%= ThisRegNumber %>" class="normUndl"><%= Name %></a></td>
0320: 
0321:     <td class="smalldark" align="left"><%= CitySt %>
0322: </td>
0323:     <td class="smalldark" align="center"><b><%= rs("GamesPlayed").Value %></b></td>
0324:     <td class="smalldark" align="center"><b><%= rs("TotalPoints").Value %></b></td>
0325:     <td class="smalldark" align="center"><%= rs("TeamsLeft").Value %></td>
0326: 
0327:   </tr>
0328: <%		
0329: 
0330: End If
0331: rs.MoveNext
0332: 		Loop
0333: 		rs.Close
0334: 		Set rs = Nothing	
0335: 		
0336: %>
0337: 
0338: <%	Set rs = Server.CreateObject("ADODB.Recordset")
0339: 	sqlString = "SELECT * FROM mm2ndStandings " & _
0340: 			"WHERE Season = " & yr & " AND ( RegNumber = '" & MyRegNumber & "' OR Rank < 6 ) ORDER BY Rank"
0341: 			
0342: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0343: 	
0344: '	totpicks = rs.RecordCount
0345:    	tenpct = CInt(totpicks / 10)
0346:    	
0347:    	If tenpct = 0 Then tenpct = 1
0348: 
0349: 		If ShowTop10 = "Y" Then
0350: 	   MaxToShow = tenpct
0351: 	End If
0352:    	
0353: ' Response.Write(sqlString)
0354: 	Set rsSeasons = Server.CreateObject("ADODB.Recordset")
0355: 	sqlString = "SELECT DISTINCT Season FROM mm2ndStandings " & _
0356: 			"ORDER BY Season DESC"
0357: 	rsSeasons.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0358: %>
0359: <html>
0360: 
0361: <head>
0362: <meta name="viewport" content="width=device-width">
0363: <title>March Madness - Sweet 16 Standings</title>
0364: <link href="mm.css" rel="stylesheet" type="text/css">
0365: 
0366: <script language="JavaScript">
0367: 	
0368: 		function getData(form)	{
0369: 			var yr = form.SeasonYr.options[form.SeasonYr.selectedIndex].value
0370: 			if (yr != "")	{
0371: 				document.location.href = "standings2nd.asp?yr="+yr
0372: 			}
0373: 		}
0374: 		
0375: 	</script>
0376: </head>
0377: 
0378: <body bgcolor="#ffffff">
0379: 
0380: <table cellspacing="2" border="0" cellpadding="0" width="<%= TableWidth %>" >
0381:  
0382:     <tr><td class="smalldark" colspan="3" valign="bottom">
0383: 
0384: </td>
0385: 
0386: 
0387:   </big></td> 
0388: </tr>
0389:  </table>
0390: 
0391: <table cellspacing="1" border="0" cellpadding="0"  width="<%= TableWidth %>" >
0392: <tr><td>&nbsp;<br>&nbsp;</td></tr>
0393: 
0394:    <tr><td class="Norm" colspan="7" valign="bottom" align="center"><big><big><b>Sweet 16 Contest</td>
0395: 
0396:   </big></td> 
0397: </tr>
0398:    <tr bgcolor="#ff3399">
0399:     <td width="5%" class="small" align="center">RNK</a></td>
0400:     <td width="33%" class="small" align="center">NAME</a></td>
0401:     <td width="32%" class="small" align="center">FROM</td>
0402:     <td width="5%" class="small" align="center">PTS</a></td>
0403:     <td width="10%" class="small" align="center">POSS<br>
0404:     PTS</td>
0405:     <td width="5%" class="small" align="center">TB</a></td>	
0406:     <td class="small" align="center">CHAMPION</td>
0407: 
0408:   </tr>
0409: <%	bgcolor = "#e8e8e8"
0410: 
0411: If STOP2NDMAKEPICKS = "YES" Or 1=1 Then
0412: 
0413: 		Do Until rs.EOF
0414: 	ThisRegNumber = rs("RegNumber").Value
0415: 		   ranking = rs("Rank").Value
0416: 		   NotPaid = rs("NotPaid").Value
0417: 
0418: 		   TotalAmount = ""
0419: 
0420: 
0421: 		   IF ranking =< 5 then
0422: 		      bgcolor = "#BCF5A9"
0423: 
0424: 
0425: 		   Else
0426: 			If bgcolor = "#e8e8e8" Then
0427: 				bgcolor = "#ffffff"
0428: 			Else
0429: 				bgcolor = "#e8e8e8"
0430: 			End If	
0431: 
0432: 		End If
0433: 			If NotPaid <> "" And user = "jt@folga.org" Then
0434: 			bgcolor = "#ffcc00"
0435: 			End If
0436: 			' If RegNumber = "" And ThisRegNumber = MyRegNumber Then
0437: 			 ' bgcolor = "#F5A9D0"
0438: 			' End If
0439: 'If RegNumber = "" Or ( RegNumber = ThisRegNumber OR ranking <= MaxtoShow ) Then
0440: 			%>
0441:   <tr bgcolor="<%= bgcolor %>" height="19">
0442:     <td class="smalldark" align="center"><%= ranking %>
0443: </td>
0444: <% If yr < 2004 Then %>
0445:     <td class="smalldark" align="left"><%= rs("Name").Value %>
0446: </td>
0447: <% Else %>
0448:     <td class="smalldark" align="left"><a
0449:     href="display2ndpicks.asp?year=<%= yr %>&amp;pick=<%= rs("PicksId").Value %>"
0450:     class="normUndl"><%= rs("Name").Value %></a></td>
0451: <% End If %>
0452:     <td class="smalldark" align="left"><%= rs("City").Value %>
0453: </td>
0454:     <td class="smalldark" align="center"><%= rs("Pts").Value %>
0455: </td>
0456:     <td class="smalldark" align="center"><%= rs("PossPts").Value %></td>
0457: <td class="smalldark" align="center">	<%= rs("TieBreakerPts").Value %></td>
0458:     <td class="smalldark" align="center">
0459: 
0460: <%= rs("Champion").Value %>
0461: 
0462: </td>
0463: 
0464: <!--     <td class="smalldark" align="center"><font color="#808000"><%= rs("TieBreakerPts").Value %></font></td> -->
0465: 
0466:   </tr>
0467: <%	
0468: ' End If
0469:  
0470: ' End If
0471: 
0472: rs.MoveNext
0473: 		Loop
0474: 		rs.Close
0475: 		Set rs = Nothing
0476: 		
0477: 	End If
0478: 		
0479: %>		
0480: 
0481: </table>
0482: </body>
0483: </html>