Count Lines in Pages
Contents of Page: biggestloserdisplay.asp
Number of Lines: 302
Last Modified: 3/18/2026 5:31:07 PM
0001: 	<% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <%
0005: 	yr = Request.QueryString("yr")
0006: 	RegNumber = Request.QueryString("RegNumber")
0007: 	Repost = Request.QueryString("Repost")
0008: 	If yr = "" Then yr = season
0009: 
0010: '	yr = 2019
0011: 
0012:     TotalGP = 0
0013: 
0014: 		Dim results(64,6)
0015: 		Dim stillin(64)
0016: 		Set rsResults = Server.CreateObject("ADODB.Recordset")
0017: 		sqlString = "SELECT * FROM mmResults WHERE Season = " & yr
0018: 		rsResults.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0019: 		Do Until rsResults.EOF
0020: 			Select Case Left(rsResults("ID").Value, 1)
0021: 				Case "A"
0022: 					pos = 0
0023: 				Case "B"
0024: 					pos = 16
0025: 				Case "C"
0026: 					pos = 32
0027: 				Case "D"
0028: 					pos = 48
0029: 			End Select
0030: 			pos = pos + Int(Right(rsResults("ID").Value, 2))
0031: 			results(pos,1) = rsResults("F64Score")	
0032: 			results(pos,2) = rsResults("F32Score")
0033: 			results(pos,3) = rsResults("F16Score")
0034: 			results(pos,4) = rsResults("F8Score")
0035: 			results(pos,5) = rsResults("F4Score")
0036: 			results(pos,6) = rsResults("F2Score")
0037: 			StillIn(pos) = rsResults("F1Pts")
0038: 			rsResults.MoveNext
0039: 		Loop
0040: 		rsResults.Close
0041: 		Set rsResults = Nothing
0042: 
0043: 	Set rst = Server.CreateObject("ADODB.Recordset")
0044: 	sqlString = "SELECT * FROM mmTeams WHERE Season = " & yr
0045: 	rst.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0046: 
0047: 
0048: 	Dim Regions(4)
0049: 	
0050: 	Set rsRegion = Server.CreateObject("ADODB.Recordset")
0051: 	sqlString = "SELECT * FROM mmRegionals " & _
0052: 			"WHERE Season = " & yr & " " & _
0053: 			"ORDER By Region"
0054: '			"AND Region = " & region
0055: 	rsRegion.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0056: 	If Not rsRegion.EOF Then
0057: 	RGCount = 0
0058: 	Do Until rsRegion.EOF
0059: 		RGCount = RGCount + 1
0060: 		Regions(RGCount) = rsRegion("RegionName").Value
0061: 		rsRegion.MoveNext
0062: 	Loop
0063: 	rsRegion.Close
0064: 	Set rsRegion = Nothing
0065:     End If
0066: 
0067: 
0068:   		Set rsg = Server.CreateObject("ADODB.Recordset")
0069: 		sqlString = "SELECT * FROM mmBiggestLoser " & _
0070: 			"WHERE RegNumber = '" & RegNumber & "' " & _
0071: 			"AND Season = " & yr
0072: 
0073: '	rsg.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0074: 		rsg.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText	  
0075: 
0076: 
0077:     	
0078: 	If rsg.EOF Then
0079: Response.Redirect("MMDisplayError_M.asp?Type=NOBLPICKS")
0080:     Else	
0081: 	RegNumber = rsg("RegNumber").Value
0082: 	BLID = rsg("ID").Value
0083: 	Set rsEntry = Server.CreateObject("ADODB.Recordset")
0084: 	sqlString = "SELECT * FROM mmEntries " & _
0085: 			"WHERE Season = " & yr & " "  & _
0086: 			"AND RegNumber = '" & RegNumber & "' "  
0087: 	rsEntry.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0088: 	lastName = rsEntry("Name").Value
0089: 	firstName = rsEntry("FirstName").Value
0090:     Name = FirstName & " " & LastName
0091: 	CitySt = rsEntry("City").Value & ", " & rsEntry("State").Value
0092: 	rsEntry.Close
0093: 	Set rsEntry = Nothing
0094: 
0095:     End If
0096: 
0097: 	Dim Seeds(16)
0098: 	Seeds(1) = "01"
0099: 	Seeds(2) = "02"
0100: 	Seeds(3) = "03"
0101: 	Seeds(4) = "04"
0102: 	Seeds(5) = "05"
0103: 	Seeds(6) = "06"
0104: 	Seeds(7) = "07"
0105: 	Seeds(8) = "08"
0106: 	Seeds(9) = "09"
0107: 	Seeds(10) = "10"
0108: 	Seeds(11) = "11"
0109: 	Seeds(12) = "12"
0110: 	Seeds(13) = "13"
0111: 	Seeds(14) = "14"
0112: 	Seeds(15) = "15"
0113: 	Seeds(16) = "16"
0114: 
0115: 
0116: %>
0117: <html>
0118: 
0119: <head>
0120: <title>March Madness - Display Biggest Losers Picks</title>
0121: <link href="mm.css" rel="stylesheet" type="text/css">
0122: <meta name="viewport" content="width=device-width">
0123: 		<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">	
0124: <script language="JavaScript" type="text/javascript">
0125: 		function deleteNode(id)	{
0126: 			if (!confirm("** Warning **  You will have to re-enter your Biggest Losers picks.  Continue?"))	{
0127: 				return;
0128: 			}
0129: 			window.location = "BiggestLoserDelete.asp?New=Y&ID="+id;
0130: 		}
0131: 	</script>
0132: </head>
0133: </head>
0134: 
0135: <body bgcolor="#ffffff">
0136: 
0137: <table cellspacing="2" border="0" cellpadding="0" width="450">
0138: 
0139: <% If STOPMAKEPICKS = "YES" Then %>
0140: 	<tr><td colspan="2"  class="norm">
0141: 	<button class="button_close" onclick="history.back(-1)"><big><b>Return</button>
0142: 	</td></tr>
0143: <% End If %>	
0144:   <tr>
0145:     <td width="5%" height="1"><img src="clear.gif" width="1" height="1"></td>
0146:     <td width="10%" height="1"><img src="clear.gif" width="1" height="1"></td>
0147:     <td width="35%"><img src="clear.gif" width="1" height="1"></td>
0148:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0149:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0150:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0151:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0152:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0153:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0154:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0155:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0156:   </tr>
0157:   <tr>
0158:     <td colspan="14" height="35"><form method="post">
0159:      <b><font face="Arial" color="#577FBE">Biggest Losers Pick Details</font></b><span class="normbold"><br><%= Name %> - <%= CitySt %>
0160:       &nbsp;<span class="norm">
0161:     </td>
0162:   </tr>
0163:   <tr bgcolor="#ffff99" border="1">
0164:     <td class="norm" align="center">Seed#</td>
0165:     <td class="norm" align="left">Region</td>
0166:     <td class="norm" align="LEFT">Team Name</td>
0167: 	    <td class="norm" align="center">Total<br>Points</td>
0168:     <td class="norm" align="center">1st<br>Round</td>
0169:     <td class="norm" align="center">2nd<br>Round</a></td>
0170:     <td class="norm" align="center">Sweet<br>16</td>
0171:     <td class="norm" align="center">Elite<br>Eight</td>
0172:     <td class="norm" align="center">Final<br>Four</td>
0173:     <td class="norm" align="center">Final<br>Game</td>
0174: 
0175:   </tr>
0176: <%	bgcolor = "#e8e8e8"
0177: sd = 0
0178: 		Do Until sd = 16
0179: 		sd = sd + 1
0180: 
0181: SeedField = "Seed" & Seeds(sd)
0182: TID = rsg(SeedField).Value
0183: SeedPoints = "Seed" & Seeds(sd) & "Points"
0184: SeedPoints = rsg(SeedPoints).Value
0185: TeamName = rst(TID).Value
0186: Select Case Left(TID, 1)
0187: 				Case "A"
0188: 					pos = 0
0189: 					regno = 1
0190: 				Case "B"
0191: 					pos = 16
0192: 					regno = 2
0193: 				Case "C"
0194: 					pos = 32
0195: 					regno = 3
0196: 				Case "D"
0197: 					pos = 48
0198: 					regno = 4
0199: 			End Select
0200: pos = pos + sd
0201: 
0202: XY = results(pos,6)
0203: 
0204: If StillIn(pos) = "99" Then
0205: Dot = "_"
0206: Else
0207: Dot = ""
0208: End If
0209: 
0210: Strike = ""
0211: Bold = ""
0212: 	If StillIn(pos) = "99" Then
0213: 		FontColor = "#FF0000"
0214: 		Strike = "<strike>"
0215: 		EndStrike = "</strike>"
0216: 
0217: 	Else
0218: 		FontColor = "#008000"
0219: 	Bold = "<b>"
0220: 	End If
0221: 
0222: %>
0223: 
0224: <tr>
0225: <td class="norm" align="center"><%= sd %></td>
0226: <td class="norm" align="left"><%= Regions(Regno) %></td>
0227: <td class="normbold" align="left"><Font color="<%= FontColor %>"><%= Strike %><%= bold %><%= TeamName %></td>
0228: <td class="norm" align="right"><%= SeedPoints %></td>
0229: 
0230: 
0231: 
0232: <% If results(pos,1) <> 0 Then %>
0233: <% TotalGP = TotalGP + 1 %>
0234: <td class="norm" align="center"><%= results(pos,1) %></td>
0235: <% Else %>
0236: <td></td>
0237: <% End If %>
0238: <% If results(pos,2) <> 0 Then %>
0239: <% TotalGP = TotalGP + 1 %>
0240: <td class="norm" align="center"><%= results(pos,2) %></td>
0241: <% Else %>
0242: <td></td>
0243: <% End If %>
0244: <% If results(pos,3) <> 0 Then %>
0245: <% TotalGP = TotalGP + 1 %>
0246: <td class="norm" align="center"><%= results(pos,3) %></td>
0247: <% Else %>
0248: <td></td>
0249: <% End If %>
0250: <% If results(pos,4) <> 0 Then %>
0251: <% TotalGP = TotalGP + 1 %>
0252: <td class="norm" align="center"><%= results(pos,4) %></td>
0253: <% Else %>
0254: <td></td>
0255: <% End If %>
0256: <% If results(pos,5) <> 0 Then %>
0257: <% TotalGP = TotalGP + 1 %>
0258: <td class="norm" align="center"><%= results(pos,5) %></td>
0259: <% Else %>
0260: <td></td>
0261: <% End If %>
0262: <% If results(pos,6) <> 0 Then %>
0263: <% TotalGP = TotalGP + 1 %>
0264: <td class="norm" align="center"><%= results(pos,6) %></td>
0265: <% Else %>
0266: <td></td>
0267: <% End If %>
0268: </tr>
0269:  
0270: <%	
0271: 		Loop
0272: 		
0273: 		TotalPoints = rsg("TotalPoints").Value
0274: 		
0275: 		If IsNull(TotalPoints) = True Then
0276: 		TotalPoints = 0
0277: 		End If
0278: 
0279: 		
0280: %>
0281: <tr>
0282: <td></td><td></td><td></td><td class="normbold" align="right"><% = formatnumber(TotalPoints,0) %></td>
0283: <td class="norm" colspan="6" align="center"><b><%= TotalGp %></b> Total Games Played</td>
0284: </tr>
0285: <% 
0286: 
0287: ' If user = "joetoledo@yahoo.com" Then STOPMAKEPICKS = "YES" 
0288: 
0289: If STOPMAKEPICKS <> "YES" Then %>
0290: 
0291: <tr height="50" valign="center"><td colspan="10" align="center"> 
0292: <a href="MakeAllPicks.Asp" class="button-40"> Return to Make All Picks </a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:deleteNode('<%= BLID %>')" class="button-40">Re-enter Biggest Loser Picks</a>
0293: </td></tr>
0294: 
0295: <% End If %>
0296: </table>
0297: <%
0298: 		rsg.Close
0299: 		Set rsg = Nothing	
0300: %>
0301: </body>
0302: </html>