Count Lines in Pages
Contents of Page: BracketsResultsUpdateNew.asp
Number of Lines: 1000
Last Modified: 2/22/2026 9:46:37 AM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: <%
0007: '
0008: ' Remove Old Results
0009: '
0010: Region = Request.Querystring("Region")
0011: If Region = "" Then
0012: Region = "A"
0013: End If
0014: 
0015: Region = UCase(Region)
0016: 
0017: If Region = "A" or Region = "B" then
0018: Side = "L"
0019: Else
0020: Side = "R"
0021: End If
0022: 
0023: Yr = Request.Querystring("Year")
0024: If Yr <> "" Then
0025: season = Yr
0026: End If
0027: 
0028: Width = Request.Querystring("Width")
0029: If Width = "" Then Width = 1100
0030: 
0031: RoundWidth = Cint(Width / 4)
0032: 
0033: '=============================================================
0034: 
0035: 	Set rs = Server.CreateObject("ADODB.Recordset")
0036: 		sqlString = "SELECT * FROM mmConfig WHERE Element = 'SCORESUPDATED'" 
0037: 		rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0038: 		
0039: 		LastScoreUpdated = rs("Value").Value
0040: 		rs.Close
0041: 		Set rs = Nothing
0042: 
0043: 
0044: '==============================================================
0045: 
0046: Dim Regions(5)
0047: 
0048: Set rs = Server.CreateObject("ADODB.Recordset")
0049: 	sqlString = "SELECT * FROM mmRegionals WHERE Season = " & Season & " ORDER BY Region"
0050: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0051: 	
0052: 	R = 1
0053: 	DO Until rs.EOF
0054: 	Regions(R) = rs("RegionName").Value
0055: 	R = R + 1
0056: 	rs.MoveNext
0057: 	Loop
0058: 	
0059: 	
0060: '--------------------------------------------------------------	
0061: If Region = "A" Then
0062: MyRegionName = Regions(1)
0063: ElseIf Region = "B" Then
0064: MyRegionName = Regions(2) 
0065: ElseIf Region = "C" Then
0066: MyRegionName = Regions(3) 
0067: Else
0068: MyRegionName = Regions(4) 				
0069: End If
0070: 
0071: 	
0072: 		
0073: %>		
0074: 
0075: <html>
0076: 
0077: <head>
0078: <title>March Madness - Show Scores in Brackets Format</title>
0079: <link href="mm.css" rel="stylesheet" type="text/css">
0080: <link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">	
0081: 
0082: </head>
0083: </head>
0084: 
0085: <body bgcolor="#ffffff">
0086: 
0087: 
0088:   <tr>
0089: <td class="norm">
0090: 
0091: 
0092: <table cellspacing="2" border="1" cellpadding="0" width="<%= Width %>">
0093: 			<tr><td class="norm" colspan="10">&nbsp;<a href="displaymenugen.asp?parent=40&title=March%20Madness%20-%20Scores / Standings Update"><b>Return to Update Menu</b></a><br><br>
0094: 			</td></tr>
0095: <tr height="45" Valign="center">
0096: <td class="norm" width="60%" align="center"><big>
0097: <a href="BracketsResultsUpdateNew.asp?Region=A&Width=1100" class="button-40"><%= Regions(1) %></a>&nbsp;&nbsp;&nbsp;
0098: <a href="BracketsResultsUpdateNew.asp?Region=B&Width=1100" class="button-40"><%= Regions(2) %></a>&nbsp;&nbsp;&nbsp;
0099: <a href="BracketsResultsUpdateNew.asp?Region=C&Width=1100" class="button-40"><%= Regions(3) %></a>&nbsp;&nbsp;&nbsp;
0100: <a href="BracketsResultsUpdateNew.asp?Region=D&Width=1100" class="button-40"><%= Regions(4) %></a>&nbsp;&nbsp;&nbsp;
0101: <a href="BracketsResultsUpdateNew.asp?Region=F4&Width=1100" class="button-40">Final Four</a>
0102: </td>
0103: <td width="20%" align="center" class="norm">
0104: <SMALL>Last Score Updated: <B><br> <%= LastScoreUpdated %><br>
0105: </td>
0106: <td align="center" width="20%">
0107: <a href="displaymenugen.asp?parent=40&title=March%20Madness%20-%20Scores%20/%20Standings%20Update" class="button-40">Return to Update Menu</a></td>
0108: </tr>
0109: </table>
0110: <% iF Region <> "F4" Then %>
0111: 
0112: <table cellspacing="2" border="1" cellpadding="0" width="<%= Width %>">
0113: <tr height="30"> 
0114: <% If Region = "A" or Region = "B" Then %>
0115: <td class="norm" align="center" width="25%"><big>First Round</td>
0116: <td class="norm" align="center" width="25%"><big>Second Round</td>
0117: <td class="norm" align="center" width="25%"><big>Sweet 16</td>
0118: <td class="norm" align="center" width="25%"><big>Elite 8</td>
0119: <% Else %>
0120: <td class="norm" align="center" width="25%"><big>Elite 8</td>
0121: <td class="norm" align="center" width="25%"><big>Sweet 16</td>
0122: <td class="norm" align="center" width="25%"><big>Second Round</td>
0123: <td class="norm" align="center" width="25%"><big>First Round</td>
0124: 
0125: <% End If %>
0126: </tr>
0127: <tr>
0128: <td>
0129: <% 	
0130: 
0131: If Side = "L" Then		
0132: 
0133: FirstRound()
0134: 
0135: %>
0136: </td>
0137: <td valign="center">
0138: 
0139: 
0140: <table cellspacing="0" border="0" cellpadding="0" width="<%= RoundWidth %>">
0141: 
0142: <tr height="1">
0143: <td class="norm" width="5%"></td>
0144: <td class="norm" width="2%"></td>
0145: <td class="norm" width="48%"></td>
0146: <td class="norm" width="10%"></td>
0147: <td class="norm" width="35%"></td>
0148: </tr>
0149: 
0150: <% 
0151: ' SecondRound()
0152: 
0153: Pass = "1-4-2"
0154: 
0155: DisplayRoundGame(pass)
0156: 
0157: Pass = "5-8-2"
0158: 
0159: DisplayRoundGame(pass)
0160: 
0161: Pass = "9-12-2"
0162: 
0163: DisplayRoundGame(pass)
0164: 
0165: Pass = "13-16-2"
0166: 
0167: DisplayRoundGame(pass)
0168: %>
0169: </table>
0170: </td>
0171: 
0172: <td valign="center">
0173: 
0174: 
0175: <table cellspacing="0" border="0" cellpadding="0" width="<%= RoundWidth %>">
0176: 
0177: <tr height="1">
0178: <td class="norm" width="5%"></td>
0179: <td class="norm" width="2%"></td>
0180: <td class="norm" width="48%"></td>
0181: <td class="norm" width="10%"></td>
0182: <td class="norm" width="35%"></td>
0183: </tr>
0184: 
0185: <% 
0186: ' Sweet 16
0187: 
0188: Pass = "1-8-3"
0189: 
0190: DisplayRoundGame(pass)
0191: 
0192: Pass = "9-16-3"
0193: 
0194: DisplayRoundGame(pass)
0195: 
0196: 
0197: 
0198: %>
0199: </table>
0200: </td>
0201: <td valign="center">
0202: 
0203: 
0204: <table cellspacing="0" border="0" cellpadding="0" width="<%= RoundWidth %>">
0205: 
0206: <tr height="1">
0207: <td class="norm" width="5%"></td>
0208: <td class="norm" width="2%"></td>
0209: <td class="norm" width="48%"></td>
0210: <td class="norm" width="10%"></td>
0211: <td class="norm" width="35%"></td>
0212: </tr>
0213: 
0214: <% 
0215: 'Sweet16()
0216: %>
0217: 
0218: 
0219: <% 
0220:  Elite8()
0221: %>
0222: 
0223: </td>
0224: </tr>	
0225: </table>
0226: 
0227: 
0228: <% Else 
0229: 
0230: 
0231: Elite8()
0232: 
0233: %>
0234: </td>
0235: 
0236: <td valign="center">
0237: 
0238: 
0239: <table cellspacing="0" border="0" cellpadding="0" width="<%= RoundWidth %>">
0240: 
0241: <tr height="1">
0242: <td class="norm" width="5%"></td>
0243: <td class="norm" width="2%"></td>
0244: <td class="norm" width="48%"></td>
0245: <td class="norm" width="10%"></td>
0246: <td class="norm" width="35%"></td>
0247: </tr>
0248: 
0249: <% 
0250: ' Sweet16()
0251: 
0252: Pass = "1-8-3"
0253: 
0254: DisplayRoundGame(pass)
0255: 
0256: Pass = "9-16-3"
0257: 
0258: DisplayRoundGame(pass)
0259: 
0260: 
0261: 
0262: 
0263: %>
0264: </table>
0265: </td>
0266: <td valign="center">
0267: 
0268: 
0269: <table cellspacing="0" border="0" cellpadding="0" width="<%= RoundWidth %>">
0270: 
0271: <tr height="1">
0272: <td class="norm" width="5%"></td>
0273: <td class="norm" width="2%"></td>
0274: <td class="norm" width="48%"></td>
0275: <td class="norm" width="10%"></td>
0276: <td class="norm" width="35%"></td>
0277: </tr>
0278: 
0279: <% 
0280: Pass = "1-4-2"
0281: 
0282: DisplayRoundGame(pass)
0283: 
0284: Pass = "5-8-2"
0285: 
0286: DisplayRoundGame(pass)
0287: 
0288: Pass = "9-12-2"
0289: 
0290: DisplayRoundGame(pass)
0291: 
0292: Pass = "13-16-2"
0293: 
0294: DisplayRoundGame(pass)
0295: %>
0296: </table>
0297: </td>
0298: <td>
0299: 
0300: <% 
0301: FirstRound()
0302: %>
0303: 
0304: </td>
0305: </tr>	
0306: </table>
0307: 
0308: 
0309: 
0310: 
0311: <% End If
0312: 
0313: 
0314: 
0315: Function FirstRound()
0316: 
0317: %>
0318: 
0319: 
0320: <table cellspacing="1" border="0" cellpadding="0" width="<%= RoundWidth %>">
0321: 
0322: <tr>
0323: 
0324: 
0325: <td class="norm" width="5%"></td>
0326: <td class="norm" width="2%"></td>
0327: <td class="norm" width="48%"></td>
0328: <td class="norm" width="10%"></td>
0329: <td class="norm" width="35%"></td>
0330: 
0331: 
0332: </tr>
0333: <tr height="1"><td></td></tr>
0334: 
0335: <%  
0336: 
0337: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0338: 
0339:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0340: 				             "AND Region = '" & Region & "' " & _
0341: 							 "ORDER BY Display_Order"
0342: 							 
0343: 							 
0344: 				
0345: 	'			Response.Write("<BR>" & sqlString)						
0346: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0347: 				
0348: Kount = 0				
0349: 
0350: Do Until rsr.EOF
0351: 
0352: Kount = Kount + 1
0353: 				ID = Rsr("ID").Value
0354: 
0355: 				TeamName = rsr("Name").Value
0356: 
0357: 				F64Score = rsr("F64Score").Value
0358: 				F32pts = rsr("F32pts").Value
0359: 
0360: 				
0361: '				Response.Write(TeamName & "-" & F64Score & "<br>")
0362: 
0363: Seed = Right(ID,2)+0
0364: 
0365: If F32pts <> 99 and F64Score <> 0 Then
0366: 	Boldit = "<b>"
0367: 	bgcolor = "#80ffbf"
0368: Else
0369: 	Boldit = ""
0370: 	bgcolor = ""
0371: End If
0372: 
0373: %>
0374: 		
0375: 	
0376: 				
0377: <tr height="30">
0378: 
0379: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0380: <td></td>
0381: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= TeamName %></td>
0382: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= F64Score %></td>
0383: 
0384: 
0385: 				<%
0386: 				
0387: 		If Kount = 2 Then
0388: 			Kount = 0
0389: 			team2 = ID
0390: 			Args = "?team1=" & team1 &  "&team2=" & team2 & "&round=1"
0391: 			args = args & "&score1=" & score1 & "&score2=" & F64Score
0392: %>
0393: <td class="norm" align="center"><a href="BracketScorePostNew.asp<%= Args %>" class="button-40"><small><small>Post</a></td>
0394: 
0395: </tr>			
0396: 
0397: 
0398: 						<tr height="3"><td colspan="4" bgcolor="#ff4dff"><spacer type="block"></td></tr>
0399: <% Else
0400: 
0401: team1 = ID
0402: score1 = F64Score
0403: 
0404:  End If
0405: 				rsr.MoveNext
0406: 				Loop
0407: %>				
0408: </table>
0409: 
0410: <%
0411: End Function
0412: 
0413: %>
0414: 
0415: 
0416: 
0417: 
0418: 
0419: <% 
0420: 
0421: 
0422: 
0423: 
0424:  
0425:  
0426: Function DisplayRoundGame(pass) 
0427: 
0428: Args = ""
0429: 
0430: ' Response.Write("<br>Pass=" & Pass)
0431: 
0432: Args = Split(pass,"-")
0433: 
0434: StartNo = Args(0)
0435: EndNo = Args(1)
0436: RoundNo = Args(2)
0437: 
0438: TotalRange = ( EndNo - StartNo ) + 1
0439: 
0440: Games = ( TotalRange ) / 2
0441: 
0442: Team1StartNo = StartNo
0443: Team1EndNo = Team1StartNo + ( Games - 1 )
0444: Team2StartNo = EndNo - ( Games - 1 )
0445: Team2EndNo = EndNo
0446: 
0447: 
0448: 
0449: Select Case RoundNo
0450: 
0451: Case 2
0452: PtsField = "F32Pts"
0453: ResultPtsField = "F16Pts"
0454: PastScoreField = "F64Score"
0455: ScoreField = "F32Score"
0456: Case 3
0457: PtsField = "F16pts"
0458: ResultPtsField = "F8Pts"
0459: PastScoreField = "F32Score"
0460: ScoreField = "F16Score"
0461: Case 4
0462: PtsField = "F8pts"
0463: PastScoreField = "F16Score"
0464: ScoreField = "F8Score"
0465: End Select
0466: 
0467: 
0468: %>
0469: 
0470: <tr height="30">
0471: 
0472: 
0473: <%
0474: 
0475: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0476: 
0477:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0478: 				             "AND Region = '" & Region & "' " & _
0479: 							 "AND " & PtsField & " <> 99 " & _
0480: 							 "AND " & PastScoreField & " <> 0 " & _
0481: 							 "AND Display_Order >= " & Team1StartNo & " " & _
0482: 							 "AND Display_Order <= " & Team1EndNo & " " & _
0483: 							 "ORDER BY Display_Order"
0484: 						 
0485: 							 
0486: 				
0487: 				'Response.Write("<BR>" & sqlString)						
0488: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0489: 
0490: Kount = 0				
0491: 
0492: If rsr.EOF Then
0493: 
0494: T1ID = ""
0495: T1Score = 0
0496: T1Pts = 0
0497: T1TeamName = ""
0498: T1Seed = ""
0499: 
0500: Else
0501: 
0502: Kount = Kount + 1
0503: 
0504: 				T1ID = Rsr("ID").Value
0505: 				T1Score = rsr(ScoreField).Value
0506: 				T1pts = rsr(ResultPtsField).Value				
0507: 				T1TeamName = rsr("Name").Value
0508: 
0509: Seed = Right(T1ID,2)+0
0510: 
0511: If T1pts <> 99  Then
0512: Boldit = "<b>"
0513: bgcolor = "#80ffbf"
0514: Else
0515: Boldit = ""
0516: bgcolor = ""
0517: End If
0518: 
0519: End If
0520: 
0521: 				
0522: 				%>
0523: 				
0524: <tr height="30">
0525: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0526: <td></td>
0527: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= T1TeamName %></td>
0528: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= T1Score %></td>
0529: 
0530: 
0531: <%				Set rsr = Server.CreateObject("ADODB.Recordset")
0532: 
0533:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0534: 				             "AND Region = '" & Region & "' " & _
0535: 							 "AND " & PtsField & " <> 99 " & _
0536: 							 "AND " & PastScoreField & " <> 0 " & _
0537: 							 "AND Display_Order >= " & Team2StartNo & " " & _
0538: 							 "AND Display_Order <= " & Team2EndNo & " " & _
0539: 							 "ORDER BY Display_Order"
0540: 						 
0541: 							 
0542: 				
0543: 				'Response.Write("<BR>" & sqlString)						
0544: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0545: 
0546: Kount = 0				
0547: 
0548: 
0549: If rsr.EOF Then
0550: 
0551: T2ID = ""
0552: T2Score = 0
0553: T2Pts = 0
0554: T2TeamName = ""
0555: T2Seed = ""
0556: 
0557: Else
0558: 
0559: Kount = Kount + 1
0560: 
0561: 				T2ID = Rsr("ID").Value
0562: 				T2Score = rsr(ScoreField).Value
0563: 				T2pts = rsr(ResultPtsField).Value				
0564: 				T2TeamName = rsr("Name").Value
0565: 
0566: Seed = Right(T2ID,2)+0
0567: 
0568: If T2pts <> 99  Then
0569: Boldit = "<b>"
0570: bgcolor = "#80ffbf"
0571: Else
0572: Boldit = ""
0573: bgcolor = ""
0574: End If
0575: 
0576: End If
0577: 
0578: 				
0579: 				%>
0580: 				
0581: <tr height="30">
0582: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0583: <td></td>
0584: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= T2TeamName %></td>
0585: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= T2Score %></td>
0586: 
0587: 	
0588: 
0589: <%
0590: 				
0591: 		If T1ID <> "" And T2ID <> "" Then
0592: 			Kount = 0
0593: 			team2 = ID
0594: 			Args = "?team1=" & T1ID &  "&team2=" & T2ID & "&round=" & RoundNo
0595: 			args = args & "&score1=" & T1Score & "&score2=" & T2Score
0596: %>
0597: <td class="norm" align="center"><a href="BracketScorePostNew.asp<%= Args %>" class="button-40"><small><small>Post</a></td>
0598: </tr>
0599: <tr height="15"><td></td></tr>
0600: 
0601: <% 
0602: 
0603: Else
0604: 
0605: team1 = ID
0606: score1 = F32Score
0607: 
0608: End If
0609: 
0610: %>				
0611: 
0612: </TD>
0613: </TR>
0614: 
0615: <%
0616: End Function
0617: 
0618: Function Sweet16()
0619: 
0620: %>
0621: 
0622: <table cellspacing="0" border="0" cellpadding="0" width="<%= RoundWidth %>">
0623: 
0624: 
0625: <tr>
0626: <td class="norm" width="5%"></td>
0627: <td class="norm" width="2%"></td>
0628: <td class="norm" width="48%"></td>
0629: <td class="norm" width="10%"></td>
0630: <td class="norm" width="35%"></td>
0631: </tr>
0632: 
0633: <%  
0634: 
0635: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0636: 
0637:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0638: 				             "AND Region = '" & Region & "' " & _
0639: 							 "AND F16Pts <> 99 " & _
0640: 							 "AND F32Score <> 0 " & _
0641: 							 "ORDER BY Display_Order"
0642: 							 
0643: 							 
0644: 				
0645: 	'			Response.Write("<BR>" & sqlString)						
0646: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0647: 
0648: Kount = 0				
0649: 
0650: Do Until rsr.EOF
0651: 
0652: Kount = Kount + 1
0653: 
0654: 				ID = Rsr("ID").Value
0655: 				F16Score = rsr("F16Score").Value
0656: 				F8pts = rsr("F8pts").Value				
0657: 				TeamName = rsr("Name").Value
0658: 
0659: Seed = Right(ID,2)+0
0660: 
0661: If F8pts <> 99  Then
0662: Boldit = "<b>"
0663: bgcolor = "#80ffbf"
0664: Else
0665: Boldit = ""
0666: bgcolor = ""
0667: End If
0668: 
0669: 				
0670: 				%>
0671: 				
0672: <tr>
0673: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0674: <td></td>
0675: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= TeamName %></td>
0676: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= F16Score %></td>
0677: 
0678: 
0679: 				<%
0680: 				
0681: 		If Kount = 2 Then
0682: 			Kount = 0
0683: 			team2 = ID
0684: 			Args = "?team1=" & team1 &  "&team2=" & team2 & "&round=3"
0685: 			args = args & "&score1=" & score1 & "&score2=" & F16Score
0686: %>
0687: <td class="norm" align="center"><a href="BracketScorePostNew.asp<%= Args %>" class="button-40"><small><small>Post</a></td>
0688: </tr>
0689: <tr height="20"><td>&nbsp;</td></tr>
0690: 
0691: <% 
0692: 
0693: Else
0694: 
0695: team1 = ID
0696: score1 = F16Score
0697: 
0698: End If
0699: 				rsr.MoveNext
0700: 				Loop
0701: %>				
0702: 
0703: </TD>
0704: </TR>
0705: </table>
0706: 
0707: <%
0708: 
0709: End Function
0710: 
0711: Function Elite8()
0712: %>
0713: <table cellspacing="0" border="0" cellpadding="0" width="<%= RoundWidth %>">
0714: 
0715: <tr>
0716: <td class="norm" width="5%"></td>
0717: <td class="norm" width="2%"></td>
0718: <td class="norm" width="48%"></td>
0719: <td class="norm" width="10%"></td>
0720: <td class="norm" width="35%"></td>
0721: </tr>
0722: <tr height="60"><td class="norm" colspan="6" align="center" Valign="top"><big><big><i><b><%= MyRegionName %></td></tr>
0723: 
0724: <%  
0725: 
0726: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0727: 
0728:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0729: 				             "AND Region = '" & Region & "' " & _
0730: 							 "AND F8Pts <> 99 " & _
0731: 							 "AND F16Score <> 0 " & _							 
0732: 							 "ORDER BY Display_Order"
0733: 							 
0734: 							 
0735: 				
0736: '			Response.Write("<BR>" & sqlString)						
0737: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0738: 
0739: Do Until rsr.EOF
0740: 
0741: Kount = Kount + 1
0742: 
0743: 				ID = Rsr("ID").Value
0744: 
0745: 				TeamName = rsr("Name").Value
0746: 				F4pts = rsr("F4pts").Value	
0747: 
0748: 				F8Score = rsr("F8Score").Value
0749: 
0750: 				
0751: 				'Response.Write(TeamName & "-" & F64Score & "<br>")
0752: 
0753: Seed = Right(ID,2)+0
0754: 
0755: Seed = Right(ID,2)+0
0756: 
0757: If F4pts <> 99 Then
0758: Boldit = "<b>"
0759: bgcolor = "#80ffbf"
0760: Else
0761: Boldit = ""
0762: bgcolor = ""
0763: End If
0764: 				
0765: 				%>
0766: 				
0767: <tr height="30">
0768: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0769: <td></td>
0770: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= TeamName %></td>
0771: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= F8Score %></td>
0772: 
0773: 
0774: <% If Kount = 2  then
0775: 
0776: 			Kount = 0
0777: 			team2 = ID
0778: 			Args = "?team1=" & team1 &  "&team2=" & team2 & "&round=4"
0779: 			args = args & "&score1=" & score1 & "&score2=" & F8Score
0780: %>
0781: <td class="norm" align="center"><a href="BracketScorePostNew.asp<%= Args %>" class="button-40"><small><small>Post</a></td>
0782: </tr>	
0783: <tr heigth="20"><td>&nbsp;</td><tr>
0784: 
0785: 
0786: <%
0787: 
0788: Else
0789: 
0790: team1 = ID
0791: score1 = F8Score
0792: 
0793: End If
0794: 				rsr.MoveNext
0795: 				Loop
0796: %>				
0797: 
0798: 
0799: 
0800: </TD>
0801: </TR>
0802: 
0803: </table>
0804: 
0805: <%
0806: 
0807: End Function
0808: 
0809: %>
0810: 
0811: <% Else ' F4 %>
0812: <table cellspacing="2" border="0" cellpadding="0" width="<%= Width %>">
0813: <tr><td>
0814: <table cellspacing="0" border="1" cellpadding="0" width="250" align="center">
0815: <tr><td>
0816: <table cellspacing="0" border="0" cellpadding="0" width="250" >
0817: <tr height="50" Valign="center">
0818: <td class="norm" align="center" colspan="6"><big><b>Final Four</td>
0819: </tr>
0820: <tr>
0821: <td class="norm" width="5%"></td>
0822: <td class="norm" width="2%"></td>
0823: <td class="norm" width="48%"></td>
0824: <td class="norm" width="10%"></td>
0825: <td class="norm" width="35%"></td>
0826: </tr>
0827: <tr>
0828: 
0829: <%
0830: 
0831: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0832: 
0833:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0834: 				"AND F8Score <> 0 " & _
0835: 				             "AND F4Pts <> 99 " & _
0836: 							 "ORDER BY ID"
0837: 							 
0838: 							 
0839: 				
0840: 				'Response.Write("<BR>" & sqlString)						
0841: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0842: 
0843: Kount = 0
0844: 
0845: Do Until rsr.EOF
0846: 
0847: Kount = Kount + 1
0848: 
0849: 				ID = Rsr("ID").Value
0850: 
0851: 				TeamName = rsr("Name").Value
0852: 
0853: 				F2Pts = rsr("F2Pts").Value
0854: 
0855: 				F4Score = rsr("F4Score").Value
0856: 				
0857: Seed = Right(ID,2)+0
0858: 
0859: If F2pts <> 99  Then
0860: Boldit = "<b>"
0861: bgcolor = "#80ffbf"
0862: Else
0863: Boldit = ""
0864: bgcolor = ""
0865: End If
0866: 
0867: %>
0868: 
0869: <tr height="30">
0870: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0871: <td></td>
0872: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= TeamName %></td>
0873: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= F4Score %></td>
0874: 
0875: 
0876: 
0877: 
0878: <% If Kount = 2  then
0879: 
0880: 			Kount = 0
0881: 			team2 = ID
0882: 			Args = "?team1=" & team1 &  "&team2=" & team2 & "&round=5"
0883: 			args = args & "&score1=" & score1 & "&score2=" & F4Score
0884: %>
0885: <td class="norm" align="center"><a href="BracketScorePostNew.asp<%= Args %>" class="button-40"><small><small>Post</a></td>
0886: </tr>	
0887: <tr height="20"><td></td><tr>
0888: 
0889: 
0890: <%
0891: 
0892: Else
0893: 
0894: team1 = ID
0895: score1 = F4Score
0896: 
0897: End If
0898: 
0899: 
0900: 
0901: 	rsr.MoveNext
0902: 				Loop
0903: 				
0904: 				
0905: %>
0906: </td></tr>
0907: 
0908: <table cellspacing="2" border="0" cellpadding="0" width="250" >
0909: <tr height="50" Valign="center">
0910: <td class="norm" align="center" colspan="6"><big><b>Championship Game</td>
0911: </tr>
0912: <tr>
0913: <td class="norm" width="5%"></td>
0914: <td class="norm" width="2%"></td>
0915: <td class="norm" width="48%"></td>
0916: <td class="norm" width="10%"></td>
0917: <td class="norm" width="35%"></td>
0918: </tr>		
0919: 
0920: <%
0921: 
0922: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0923: 
0924:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0925: 				"AND F4Score <> 0 " & _
0926: 				             "AND F2Pts <> 99 " & _
0927: 													 
0928: 							 "ORDER BY ID"
0929: 							 
0930: 							 
0931: 				
0932: 		'\'		'Response.Write("<BR>" & sqlString)						
0933: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0934: 				
0935: 				Kount = 0
0936: 
0937: Do Until rsr.EOF
0938: 
0939: Kount = Kount + 1
0940: 
0941: 				ID = Rsr("ID").Value
0942: 
0943: 				TeamName = rsr("Name").Value
0944: 				F1Pts = rsr("F1Pts").Value
0945: 
0946: 				F2Score = rsr("F2Score").Value
0947: 				
0948: Seed = Right(ID,2)+0
0949: 
0950: If F1pts <> 99  Then
0951: Boldit = "<b>"
0952: bgcolor = "#80ffbf"
0953: Else
0954: Boldit = ""
0955: bgcolor = ""
0956: End If
0957: 
0958: %>
0959: 
0960: <tr height="30">
0961: 
0962: 
0963: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0964: <td></td>
0965: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= TeamName %></td>
0966: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= F2Score %></td>
0967: 
0968: <% If Kount = 2  then
0969: 
0970: 			Kount = 0
0971: 			team2 = ID
0972: 			Args = "?team1=" & team1 &  "&team2=" & team2 & "&round=6"
0973: 			args = args & "&score1=" & score1 & "&score2=" & F2Score
0974: %>
0975: <td class="norm" align="center"><a href="BracketScorePostNew.asp<%= Args %>"class="button-40"><small><small>Post</a></td>
0976: </tr>	
0977: <tr height="20"><td></td><tr>
0978: 
0979: 
0980: <%
0981: 
0982: Else
0983: 
0984: team1 = ID
0985: score1 = F2Score
0986: 
0987: End If
0988: 
0989: 
0990: 
0991: 	rsr.MoveNext
0992: 				Loop
0993: 	
0994: 
0995: %>	
0996: 
0997: <%  End If %>
0998: 
0999: </tr>
1000: