Count Lines in Pages
Contents of Page: biggestloserdisplay.asp
Number of Lines: 303
Last Modified: 4/1/2025 8:17:02 AM
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: 		<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">	
0123: <script language="JavaScript" type="text/javascript">
0124: 		function deleteNode(id)	{
0125: 			if (!confirm("** Warning **  You will have to re-enter your Biggest Losers picks.  Continue?"))	{
0126: 				return;
0127: 			}
0128: 			window.location = "BiggestLoserDelete.asp?New=Y&ID="+id;
0129: 		}
0130: 	</script>
0131: </head>
0132: </head>
0133: 
0134: <body bgcolor="#ffffff">
0135: 
0136: <table cellspacing="2" border="0" cellpadding="0" width="450">
0137: 	<tr><td colspan="2"  class="norm">
0138: 	<button class="button_close" onclick="history.back(-1)"><big><b>Return</button>
0139: 	</td></tr>
0140:   <tr>
0141:     <td width="5%" height="1"><img src="clear.gif" width="1" height="1"></td>
0142:     <td width="10%" height="1"><img src="clear.gif" width="1" height="1"></td>
0143:     <td width="35%"><img src="clear.gif" width="1" height="1"></td>
0144:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0145:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0146:     <td width="5%"><img src="clear.gif" width="1" height="1"></td>
0147:     <td width="5%"><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:   </tr>
0153:   <tr>
0154:     <td colspan="14" height="35"><form method="post">
0155:      <b><font face="Arial" color="#577FBE">Biggest Losers Pick Details</font></b><span class="normbold"><br><%= Name %> - <%= CitySt %>
0156:       &nbsp;<span class="norm">
0157:     </td>
0158:   </tr>
0159:   <tr bgcolor="#ffff99" border="1">
0160:     <td class="norm" align="center">Seed#</td>
0161:     <td class="norm" align="left">Region</td>
0162:     <td class="norm" align="LEFT">Team Name</td>
0163: 	    <td class="norm" align="center">Total<br>Points</td>
0164:     <td class="norm" align="center">1st<br>Round</td>
0165:     <td class="norm" align="center">2nd<br>Round</a></td>
0166:     <td class="norm" align="center">Sweet<br>16</td>
0167:     <td class="norm" align="center">Elite<br>Eight</td>
0168:     <td class="norm" align="center">Final<br>Four</td>
0169:     <td class="norm" align="center">Final<br>Game</td>
0170: 
0171:   </tr>
0172: <%	bgcolor = "#e8e8e8"
0173: sd = 0
0174: 		Do Until sd = 16
0175: 		sd = sd + 1
0176: 
0177: SeedField = "Seed" & Seeds(sd)
0178: TID = rsg(SeedField).Value
0179: SeedPoints = "Seed" & Seeds(sd) & "Points"
0180: SeedPoints = rsg(SeedPoints).Value
0181: TeamName = rst(TID).Value
0182: Select Case Left(TID, 1)
0183: 				Case "A"
0184: 					pos = 0
0185: 					regno = 1
0186: 				Case "B"
0187: 					pos = 16
0188: 					regno = 2
0189: 				Case "C"
0190: 					pos = 32
0191: 					regno = 3
0192: 				Case "D"
0193: 					pos = 48
0194: 					regno = 4
0195: 			End Select
0196: pos = pos + sd
0197: 
0198: XY = results(pos,6)
0199: 
0200: If StillIn(pos) = "99" Then
0201: Dot = "_"
0202: Else
0203: Dot = ""
0204: End If
0205: 
0206: Strike = ""
0207: Bold = ""
0208: 	If StillIn(pos) = "99" Then
0209: 		FontColor = "#FF0000"
0210: 		Strike = "<strike>"
0211: 		EndStrike = "</strike>"
0212: 
0213: 	Else
0214: 		FontColor = "#008000"
0215: 	Bold = "<b>"
0216: 	End If
0217: 
0218: %>
0219: 
0220: <tr>
0221: <td class="norm" align="center"><%= sd %></td>
0222: <td class="norm" align="left"><%= Regions(Regno) %></td>
0223: <td class="normbold" align="left"><Font color="<%= FontColor %>"><%= Strike %><%= bold %><%= TeamName %></td>
0224: <td class="norm" align="right"><%= SeedPoints %></td>
0225: 
0226: 
0227: 
0228: <% If results(pos,1) <> 0 Then %>
0229: <% TotalGP = TotalGP + 1 %>
0230: <td class="norm" align="center"><%= results(pos,1) %></td>
0231: <% Else %>
0232: <td></td>
0233: <% End If %>
0234: <% If results(pos,2) <> 0 Then %>
0235: <% TotalGP = TotalGP + 1 %>
0236: <td class="norm" align="center"><%= results(pos,2) %></td>
0237: <% Else %>
0238: <td></td>
0239: <% End If %>
0240: <% If results(pos,3) <> 0 Then %>
0241: <% TotalGP = TotalGP + 1 %>
0242: <td class="norm" align="center"><%= results(pos,3) %></td>
0243: <% Else %>
0244: <td></td>
0245: <% End If %>
0246: <% If results(pos,4) <> 0 Then %>
0247: <% TotalGP = TotalGP + 1 %>
0248: <td class="norm" align="center"><%= results(pos,4) %></td>
0249: <% Else %>
0250: <td></td>
0251: <% End If %>
0252: <% If results(pos,5) <> 0 Then %>
0253: <% TotalGP = TotalGP + 1 %>
0254: <td class="norm" align="center"><%= results(pos,5) %></td>
0255: <% Else %>
0256: <td></td>
0257: <% End If %>
0258: <% If results(pos,6) <> 0 Then %>
0259: <% TotalGP = TotalGP + 1 %>
0260: <td class="norm" align="center"><%= results(pos,6) %></td>
0261: <% Else %>
0262: <td></td>
0263: <% End If %>
0264: </tr>
0265:  
0266: <%	
0267: 		Loop
0268: 		
0269: 		TotalPoints = rsg("TotalPoints").Value
0270: 		
0271: 		If IsNull(TotalPoints) = True Then
0272: 		TotalPoints = 0
0273: 		End If
0274: 
0275: 		
0276: %>
0277: <tr>
0278: <td></td><td></td><td></td><td class="normbold" align="right"><% = formatnumber(TotalPoints,0) %></td>
0279: <td class="norm" colspan="6" align="center"><b><%= TotalGp %></b> Total Games Played</td>
0280: </tr>
0281: <% 
0282: 
0283: ' If user = "joetoledo@yahoo.com" Then STOPMAKEPICKS = "YES" 
0284: 
0285: If STOPMAKEPICKS <> "YES" Then %>
0286: 
0287: <tr>
0288: 	<td colspan="10" class="norm">
0289: 
0290: 									<a href="javascript:deleteNode('<%= BLID %>')" class="normUndl">Re-enter Biggest Loser Picks</a>
0291: 									&nbsp;&nbsp;
0292: 
0293: 
0294: 							</td>
0295: </tr>
0296: <% End If %>
0297: </table>
0298: <%
0299: 		rsg.Close
0300: 		Set rsg = Nothing	
0301: %>
0302: </body>
0303: </html>