Count Lines in Pages
Contents of Page: BracketsResultsUpdate.asp
Number of Lines: 764
Last Modified: 2/5/2026 3:47:50 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: <%
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 = 800
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 height="40" Valign="center">
0094: <td class="norm"><big>
0095: <a href="BracketsResultsUpdate.asp?Region=A&Width=900" class="button-40"><%= Regions(1) %></a>&nbsp;&nbsp;&nbsp;
0096: <a href="BracketsResultsUpdate.asp?Region=B&Width=900" class="button-40"><%= Regions(2) %></a>&nbsp;&nbsp;&nbsp;
0097: <a href="BracketsResultsUpdate.asp?Region=C&Width=900" class="button-40"><%= Regions(3) %></a>&nbsp;&nbsp;&nbsp;
0098: <a href="BracketsResultsUpdate.asp?Region=D&Width=900" class="button-40"><%= Regions(4) %></a>&nbsp;&nbsp;&nbsp;
0099: <a href="BracketsResultsUpdate.asp?Region=F4&Width=900" class="button-40">Final Four</a>
0100: <br><SMALL>Last Score Updated: <B> <%= LastScoreUpdated %>
0101: </td>
0102: <td align="right">
0103: <a href="displaymenugen.asp?parent=40&title=March%20Madness%20-%20Scores%20/%20Standings%20Update" class="button-40">Return to Update Menu</a></td>
0104: </tr>
0105: </table>
0106: <% iF Region <> "F4" Then %>
0107: 
0108: <table cellspacing="2" border="1" cellpadding="0" width="<%= Width %>">
0109: <tr> 
0110: <% If Region = "A" or Region = "B" Then %>
0111: <td class="norm" align="center" width="25%"><big>First Round</td>
0112: <td class="norm" align="center" width="25%"><big>Second Round</td>
0113: <td class="norm" align="center" width="25%"><big>Sweet 16</td>
0114: <td class="norm" align="center" width="25%"><big>Elite 8</td>
0115: <% Else %>
0116: <td class="norm" align="center" width="25%"><big>Elite 8</td>
0117: <td class="norm" align="center" width="25%"><big>Sweet 16</td>
0118: <td class="norm" align="center" width="25%"><big>Second Round</td>
0119: <td class="norm" align="center" width="25%"><big>First Round</td>
0120: 
0121: <% End If %>
0122: </tr>
0123: <tr>
0124: <td>
0125: <% 	
0126: 
0127: If Side = "L" Then		
0128: 
0129: FirstRound()
0130: 
0131: %>
0132: </td>
0133: <td>
0134: 
0135: <% 
0136: SecondRound()
0137: %>
0138: 
0139: </td>
0140: <td>
0141: 
0142: <% 
0143: Sweet16()
0144: %>
0145: 
0146: </td>
0147: <td>
0148: 
0149: <% 
0150:  Elite8()
0151: %>
0152: 
0153: </td>
0154: </tr>	
0155: </table>
0156: 
0157: 
0158: <% Else 
0159: 
0160: 
0161: Elite8()
0162: 
0163: %>
0164: </td>
0165: <td>
0166: 
0167: <% 
0168: Sweet16()
0169: 
0170: %>
0171: 
0172: </td>
0173: <td>
0174: 
0175: <% 
0176: SecondRound()
0177: %>
0178: 
0179: </td>
0180: <td>
0181: 
0182: <% 
0183: FirstRound()
0184: %>
0185: 
0186: </td>
0187: </tr>	
0188: </table>
0189: 
0190: 
0191: 
0192: 
0193: <% End If
0194: 
0195: 
0196: 
0197: Function FirstRound()
0198: 
0199: %>
0200: 
0201: 
0202: <table cellspacing="2" border="1" cellpadding="0" width="<%= RoundWidth %>">
0203: 
0204: <tr>
0205: 
0206: 
0207: <td class="norm" width="10%"></td>
0208: <td class="norm" width="5%"></td>
0209: <td class="norm" width="40%"></td>
0210: <td class="norm" width="10%"></td>
0211: <td class="norm" width="35%"></td>
0212: 
0213: 
0214: </tr>
0215: <tr height="20"><td></td></tr>
0216: 
0217: <%  
0218: 
0219: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0220: 
0221:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0222: 				             "AND Region = '" & Region & "' " & _
0223: 							 "ORDER BY Display_Order"
0224: 							 
0225: 							 
0226: 				
0227: 	'			Response.Write("<BR>" & sqlString)						
0228: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0229: 				
0230: Kount = 0				
0231: 
0232: Do Until rsr.EOF
0233: 
0234: Kount = Kount + 1
0235: 				ID = Rsr("ID").Value
0236: 
0237: 				TeamName = rsr("Name").Value
0238: 
0239: 				F64Score = rsr("F64Score").Value
0240: 				F32pts = rsr("F32pts").Value
0241: 
0242: 				
0243: '				Response.Write(TeamName & "-" & F64Score & "<br>")
0244: 
0245: Seed = Right(ID,2)+0
0246: 
0247: If F32pts <> 99 Then
0248: Boldit = "<b>"
0249: bgcolor = "#D8D8D8"
0250: Else
0251: Boldit = ""
0252: bgcolor = ""
0253: End If
0254: 
0255: %>
0256: 		
0257: 	
0258: 				
0259: <tr >
0260: 
0261: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0262: <td></td>
0263: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= TeamName %></td>
0264: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= F64Score %></td>
0265: 
0266: 
0267: 				<%
0268: 				
0269: 		If Kount = 2 Then
0270: 			Kount = 0
0271: 			team2 = ID
0272: 			Args = "?team1=" & team1 &  "&team2=" & team2 & "&round=1"
0273: 			args = args & "&score1=" & score1 & "&score2=" & F64Score
0274: %>
0275: <td class="norm" align="center"><a href="BracketScorePost.asp<%= Args %>" class="button-40"><small><small>Post</a></td>
0276: 
0277: </tr>			
0278: 
0279: 
0280: </TR>
0281: <tr heigth="30"><td>&nbsp;</td><tr>
0282: <% Else
0283: 
0284: team1 = ID
0285: score1 = F64Score
0286: 
0287:  End If
0288: 				rsr.MoveNext
0289: 				Loop
0290: %>				
0291: </table>
0292: 
0293: <%
0294: End Function
0295: 
0296: Function SecondRound()
0297: 
0298: %>
0299: 
0300: 
0301: <table cellspacing="0" border="1" cellpadding="0" width="<%= RoundWidth %>">
0302: 
0303: <tr height="40">
0304: <td class="norm" width="10%"></td>
0305: <td class="norm" width="5%"></td>
0306: <td class="norm" width="40%"></td>
0307: <td class="norm" width="10%"></td>
0308: <td class="norm" width="35%"></td>
0309: </tr>
0310: 
0311: <%  
0312: 
0313: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0314: 
0315:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0316: 				             "AND Region = '" & Region & "' " & _
0317: 							 "AND F32Pts <> 99 " & _
0318: 							 "AND F64Score <> 0 " & _
0319: 							 "ORDER BY Display_Order"
0320: 							 
0321: 							 
0322: 				
0323: 	'			Response.Write("<BR>" & sqlString)						
0324: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0325: 
0326: Kount = 0				
0327: 
0328: Do Until rsr.EOF
0329: 
0330: Kount = Kount + 1
0331: 
0332: 				ID = Rsr("ID").Value
0333: 				F32Score = rsr("F32Score").Value
0334: 				F16pts = rsr("F16pts").Value				
0335: 				TeamName = rsr("Name").Value
0336: 
0337: Seed = Right(ID,2)+0
0338: 
0339: If F16pts <> 99 Then
0340: Boldit = "<b>"
0341: bgcolor = "#D8D8D8"
0342: Else
0343: Boldit = ""
0344: bgcolor = ""
0345: End If
0346: 
0347: 				
0348: 				%>
0349: 				
0350: <tr>
0351: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0352: <td></td>
0353: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= TeamName %></td>
0354: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= F32Score %></td>
0355: 
0356: 
0357: 				<%
0358: 				
0359: 		If Kount = 2 Then
0360: 			Kount = 0
0361: 			team2 = ID
0362: 			Args = "?team1=" & team1 &  "&team2=" & team2 & "&round=2"
0363: 			args = args & "&score1=" & score1 & "&score2=" & F32Score
0364: %>
0365: <td class="norm" align="center"><a href="BracketScorePost.asp<%= Args %>" class="button-40"><small><small>Post</a></td>
0366: </tr>
0367: <tr height="40"><td>&nbsp;</td></tr>
0368: 
0369: <% 
0370: 
0371: Else
0372: 
0373: team1 = ID
0374: score1 = F32Score
0375: 
0376: End If
0377: 				rsr.MoveNext
0378: 				Loop
0379: %>				
0380: 
0381: </TD>
0382: </TR>
0383: </table>
0384: 
0385: <%
0386: End Function
0387: 
0388: Function Sweet16()
0389: 
0390: %>
0391: 
0392: <table cellspacing="0" border="1" cellpadding="0" width="<%= RoundWidth %>">
0393: 
0394: 
0395: <tr>
0396: <td class="norm" width="10%"></td>
0397: <td class="norm" width="5%"></td>
0398: <td class="norm" width="40%"></td>
0399: <td class="norm" width="10%"></td>
0400: <td class="norm" width="35%"></td>
0401: </tr>
0402: 
0403: <%  
0404: 
0405: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0406: 
0407:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0408: 				             "AND Region = '" & Region & "' " & _
0409: 							 "AND F16Pts <> 99 " & _
0410: 							 "AND F32Score <> 0 " & _
0411: 							 "ORDER BY Display_Order"
0412: 							 
0413: 							 
0414: 				
0415: 	'			Response.Write("<BR>" & sqlString)						
0416: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0417: 
0418: Kount = 0				
0419: 
0420: Do Until rsr.EOF
0421: 
0422: Kount = Kount + 1
0423: 
0424: 				ID = Rsr("ID").Value
0425: 				F16Score = rsr("F16Score").Value
0426: 				F8pts = rsr("F8pts").Value				
0427: 				TeamName = rsr("Name").Value
0428: 
0429: Seed = Right(ID,2)+0
0430: 
0431: If F8pts <> 99 Then
0432: Boldit = "<b>"
0433: bgcolor = "#D8D8D8"
0434: Else
0435: Boldit = ""
0436: bgcolor = ""
0437: End If
0438: 
0439: 				
0440: 				%>
0441: 				
0442: <tr>
0443: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0444: <td></td>
0445: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= TeamName %></td>
0446: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= F16Score %></td>
0447: 
0448: 
0449: 				<%
0450: 				
0451: 		If Kount = 2 Then
0452: 			Kount = 0
0453: 			team2 = ID
0454: 			Args = "?team1=" & team1 &  "&team2=" & team2 & "&round=3"
0455: 			args = args & "&score1=" & score1 & "&score2=" & F16Score
0456: %>
0457: <td class="norm" align="center"><a href="BracketScorePost.asp<%= Args %>" class="button-40"><small><small>Post</a></td>
0458: </tr>
0459: <tr height="50"><td>&nbsp;</td></tr>
0460: 
0461: <% 
0462: 
0463: Else
0464: 
0465: team1 = ID
0466: score1 = F16Score
0467: 
0468: End If
0469: 				rsr.MoveNext
0470: 				Loop
0471: %>				
0472: 
0473: </TD>
0474: </TR>
0475: </table>
0476: 
0477: <%
0478: 
0479: End Function
0480: 
0481: Function Elite8()
0482: %>
0483: <table cellspacing="0" border="1" cellpadding="0" width="<%= RoundWidth %>">
0484: 
0485: <tr>
0486: <td class="norm" width="10%"></td>
0487: <td class="norm" width="5%"></td>
0488: <td class="norm" width="40%"></td>
0489: <td class="norm" width="10%"></td>
0490: <td class="norm" width="35%"></td>
0491: </tr>
0492: <tr height="60"><td class="norm" colspan="6" align="center" Valign="top"><big><big><i><b><%= MyRegionName %></td></tr>
0493: 
0494: <%  
0495: 
0496: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0497: 
0498:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0499: 				             "AND Region = '" & Region & "' " & _
0500: 							 "AND F8Pts <> 99 " & _
0501: 							 "AND F16Score <> 0 " & _							 
0502: 							 "ORDER BY Display_Order"
0503: 							 
0504: 							 
0505: 				
0506: 	'			Response.Write("<BR>" & sqlString)						
0507: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0508: 
0509: Do Until rsr.EOF
0510: 
0511: Kount = Kount + 1
0512: 
0513: 				ID = Rsr("ID").Value
0514: 
0515: 				TeamName = rsr("Name").Value
0516: 				F4pts = rsr("F4pts").Value	
0517: 
0518: 				F8Score = rsr("F8Score").Value
0519: 
0520: 				
0521: '				Response.Write(TeamName & "-" & F64Score & "<br>")
0522: 
0523: Seed = Right(ID,2)+0
0524: 
0525: Seed = Right(ID,2)+0
0526: 
0527: If F4pts <> 99 Then
0528: Boldit = "<b>"
0529: bgcolor = "#D8D8D8"
0530: Else
0531: Boldit = ""
0532: bgcolor = ""
0533: End If
0534: 				
0535: 				%>
0536: 				
0537: <tr>
0538: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0539: <td></td>
0540: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= TeamName %></td>
0541: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= F8Score %></td>
0542: 
0543: 
0544: <% If Kount = 2  then
0545: 
0546: 			Kount = 0
0547: 			team2 = ID
0548: 			Args = "?team1=" & team1 &  "&team2=" & team2 & "&round=4"
0549: 			args = args & "&score1=" & score1 & "&score2=" & F8Score
0550: %>
0551: <td class="norm" align="center"><a href="BracketScorePost.asp<%= Args %>" class="button-40"><small><small>Post</a></td>
0552: </tr>	
0553: <tr heigth="30"><td>&nbsp;</td><tr>
0554: 
0555: 
0556: <%
0557: 
0558: Else
0559: 
0560: team1 = ID
0561: score1 = F8Score
0562: 
0563: End If
0564: 				rsr.MoveNext
0565: 				Loop
0566: %>				
0567: 
0568: 
0569: 
0570: </TD>
0571: </TR>
0572: 
0573: </table>
0574: 
0575: <%
0576: 
0577: End Function
0578: 
0579: %>
0580: 
0581: <% Else ' F4 %>
0582: 
0583: <table cellspacing="0" border="0" cellpadding="0" width="250" >
0584: <tr height="50" Valign="center">
0585: <td class="norm" align="center" colspan="6"><big><b>Final 4</td>
0586: </tr>
0587: <tr>
0588: <td class="norm" width="10%"></td>
0589: <td class="norm" width="5%"></td>
0590: <td class="norm" width="40%"></td>
0591: <td class="norm" width="10%"></td>
0592: <td class="norm" width="35%"></td>
0593: </tr>
0594: <tr>
0595: 
0596: <%
0597: 
0598: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0599: 
0600:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0601: 				             "AND F4Pts <> 99 " & _
0602: 							 "ORDER BY ID"
0603: 							 
0604: 							 
0605: 				
0606: 	'			Response.Write("<BR>" & sqlString)						
0607: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0608: 
0609: Kount = 0
0610: 
0611: Do Until rsr.EOF
0612: 
0613: Kount = Kount + 1
0614: 
0615: 				ID = Rsr("ID").Value
0616: 
0617: 				TeamName = rsr("Name").Value
0618: 
0619: 				F2Pts = rsr("F2Pts").Value
0620: 
0621: 				F4Score = rsr("F4Score").Value
0622: 				
0623: Seed = Right(ID,2)+0
0624: 
0625: If F2pts <> 99 Then
0626: Boldit = "<b>"
0627: bgcolor = "#D8D8D8"
0628: Else
0629: Boldit = ""
0630: bgcolor = ""
0631: End If
0632: 
0633: %>
0634: 
0635: <tr>
0636: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0637: <td></td>
0638: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= TeamName %></td>
0639: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= F4Score %></td>
0640: 
0641: 
0642: 
0643: 
0644: <% If Kount = 2  then
0645: 
0646: 			Kount = 0
0647: 			team2 = ID
0648: 			Args = "?team1=" & team1 &  "&team2=" & team2 & "&round=5"
0649: 			args = args & "&score1=" & score1 & "&score2=" & F4Score
0650: %>
0651: <td class="norm" align="center"><a href="BracketScorePost.asp<%= Args %>" class="button-40"><small><small>Post</a></td>
0652: </tr>	
0653: <tr heigth="30"><td>&nbsp;</td><tr>
0654: 
0655: 
0656: <%
0657: 
0658: Else
0659: 
0660: team1 = ID
0661: score1 = F4Score
0662: 
0663: End If
0664: 
0665: 
0666: 
0667: 	rsr.MoveNext
0668: 				Loop
0669: 				
0670: 				
0671: %>
0672: </table>
0673: <table cellspacing="2" border="0" cellpadding="0" width="250" >
0674: <tr height="50" Valign="center">
0675: <td class="norm" align="center" colspan="6"><big><b>Championship Game</td>
0676: </tr>
0677: <tr>
0678: <td class="norm" width="10%"></td>
0679: <td class="norm" width="5%"></td>
0680: <td class="norm" width="40%"></td>
0681: <td class="norm" width="10%"></td>
0682: <td class="norm" width="35%"></td>
0683: </tr>		
0684: 
0685: <%
0686: 
0687: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0688: 
0689:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0690: 				             "AND F2Pts <> 99 " & _
0691: 													 
0692: 							 "ORDER BY ID"
0693: 							 
0694: 							 
0695: 				
0696: 		'\'		Response.Write("<BR>" & sqlString)						
0697: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0698: 				
0699: 				Kount = 0
0700: 
0701: Do Until rsr.EOF
0702: 
0703: Kount = Kount + 1
0704: 
0705: 				ID = Rsr("ID").Value
0706: 
0707: 				TeamName = rsr("Name").Value
0708: 				F1Pts = rsr("F1Pts").Value
0709: 
0710: 				F2Score = rsr("F2Score").Value
0711: 				
0712: Seed = Right(ID,2)+0
0713: 
0714: If F1pts <> 99 Then
0715: Boldit = "<b>"
0716: bgcolor = "#D8D8D8"
0717: Else
0718: Boldit = ""
0719: bgcolor = ""
0720: End If
0721: 
0722: %>
0723: 
0724: <tr>
0725: 
0726: 
0727: <td class="norm" align="right" height="20"><small><%= Seed %></td>
0728: <td></td>
0729: <td class="norm" bgcolor="<%= bgcolor %>"><%= Boldit %><%= TeamName %></td>
0730: <td class="norm" align="right" bgcolor="<%= bgcolor %>"><%= Boldit %><%= F2Score %></td>
0731: 
0732: <% If Kount = 2  then
0733: 
0734: 			Kount = 0
0735: 			team2 = ID
0736: 			Args = "?team1=" & team1 &  "&team2=" & team2 & "&round=6"
0737: 			args = args & "&score1=" & score1 & "&score2=" & F2Score
0738: %>
0739: <td class="norm" align="center"><a href="BracketScorePost.asp<%= Args %>"class="button-40"><small><small>Post</a></td>
0740: </tr>	
0741: <tr height="30"><td>&nbsp;</td><tr>
0742: 
0743: 
0744: <%
0745: 
0746: Else
0747: 
0748: team1 = ID
0749: score1 = F2Score
0750: 
0751: End If
0752: 
0753: 
0754: 
0755: 	rsr.MoveNext
0756: 				Loop
0757: 	
0758: 
0759: %>	
0760: 
0761: <%  End If %>
0762: 
0763: </tr>
0764: