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