Count Lines in Pages
Contents of Page: GameScoresList.asp
Number of Lines: 327
Last Modified: 9/7/2021 4:23:58 PM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <!-- #include FILE="include/ReturnPageSet.inc" -->
0006: <%
0007: 	user = Request.Cookies("user")	
0008: 	If user = "" Then Response.Redirect("login.asp?from=editprizes.asp")
0009: 	
0010: 		
0011: %>
0012: <html>
0013: 
0014: <head>
0015: <title>March Madness Contest - Update Prize Values</title>
0016: <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0017: <link href="mm.css" rel="stylesheet" type="text/css">
0018: 	<script language="JavaScript" type="text/javascript">
0019: 		function deleteNode(id)	{
0020: 			if (!confirm("Are you sure you want to delete this game score?"))	{
0021: 				return;
0022: 			}
0023: 			window.location = "GameScoreDelete.asp?id="+id;
0024: 		}
0025: 	</script>
0026: </head>
0027: 
0028: <body bgcolor="#FFFFFF" onLoad="document.node.M1.select()">
0029: 
0030: <table cellspacing="1" border="0" cellpadding="0" width="850">
0031: 
0032: <%
0033: 
0034: Set rs = Server.CreateObject("ADODB.Recordset")
0035: 	sqlString = "SELECT * FROM mmScores WHERE Season = " & Season & " and MMRound = 32 " & _
0036: 	             "ORDER BY ID"
0037: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0038: 
0039: %>
0040: 
0041:  
0042:   <tr height="25"><td class="normbold" colspan="2">2nd Round:  <a href="GameScoreEdit.asp?ID=0&MMRound=32">Add New</a></td>
0043:   </tr>
0044: 
0045: 
0046: 
0047: <%
0048: 
0049: Count = 0
0050: 
0051: 		Do Until rs.EOF
0052:        ID = rs("ID").Value
0053:         MMRound = rs("MMRound").Value
0054:         WTeamID = rs("WTeamID").Value
0055: 		LTeamID = rs("LTeamID").Value
0056: 		WScore  = rs("WScore").Value
0057: 		LScore  = rs("LScore").Value
0058: 	WTeamName = displayTeam(WTeamID) 	
0059: 	LTeamName = displayTeam(LTeamID)
0060: 
0061: Count = Count + 1
0062: If Count = 9 Then
0063: %>
0064: </tr><tr>
0065: <% End If 
0066: %>
0067: <td>
0068: <table cellspacing="1" border="2" cellpadding="3" width="115">
0069: <tr height="27">
0070:   <td class="norm" width="75%"><a href="GameScoreEdit.asp?ID=<%= ID %>"><%= WTeamName %><a></td>
0071:  <td class="norm" width="25%" Align="right"><B><%= WScore %></td>
0072:  </tr>
0073:   <tr height="27">
0074:   <td class="norm" width="75%"><%= LTeamName %></td>
0075:  <td class="norm" width="25%" Align="right"><B><a href="javascript:deleteNode('<%= rs("ID").Value %>')" class="smallblueUndl"><b><a href="javascript:deleteNode('<%= rs("ID").Value %>')" ><b><%= LScore %></a></a></td>
0076:     </tr>
0077: </table>
0078: </td>
0079: 
0080: <%
0081: 
0082:       rs.MoveNext
0083: 		Loop
0084: 		rs.Close
0085: 		Set rs = Nothing
0086: %>
0087: 
0088: <%
0089: 
0090: Set rs = Server.CreateObject("ADODB.Recordset")
0091: 	sqlString = "SELECT * FROM mmScores WHERE Season = " & Season & " and MMRound = 16 " & _
0092: 	             "ORDER BY ID"
0093: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0094: 
0095: %>
0096: 
0097:  
0098:   <tr height="25"><td class="normbold" colspan="2">Sweet 16:  <a href="GameScoreEdit.asp?ID=0&MMRound=16">Add New</a></td>
0099:   </tr>
0100: 
0101: 
0102: 
0103: <%
0104: 		Do Until rs.EOF
0105:        ID = rs("ID").Value
0106:         MMRound = rs("MMRound").Value
0107:         WTeamID = rs("WTeamID").Value
0108: 		LTeamID = rs("LTeamID").Value
0109: 		WScore  = rs("WScore").Value
0110: 		LScore  = rs("LScore").Value
0111: 	WTeamName = displayTeam(WTeamID) 	
0112: 	LTeamName = displayTeam(LTeamID)
0113: %>
0114: <td>
0115: <table cellspacing="1" border="2" cellpadding="3" width="110">
0116: <tr height="27">
0117:   <td class="norm" width="75%"><a href="GameScoreEdit.asp?ID=<%= ID %>"><%= WTeamName %><a></td>
0118:  <td class="norm" width="25%" Align="right"><b><%= WScore %></td>
0119:  </tr>
0120:   <tr height="27">
0121:   <td class="norm" width="75%"><%= LTeamName %></td>
0122:  <td class="norm" width="25%" Align="right"><b><a href="javascript:deleteNode('<%= rs("ID").Value %>')" ><b><%= LScore %></a></td>
0123:     </tr>
0124: </table>
0125: </td>
0126: 
0127: <%
0128: 
0129:       rs.MoveNext
0130: 		Loop
0131: 		rs.Close
0132: 		Set rs = Nothing
0133: %>
0134: 
0135: <%
0136: 
0137: Set rs = Server.CreateObject("ADODB.Recordset")
0138: 	sqlString = "SELECT * FROM mmScores WHERE Season = " & Season & " and MMRound = 8 " & _
0139: 	             "ORDER BY ID"
0140: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0141: 
0142: %>
0143: 
0144:  
0145:   <tr height="25"><td class="normbold" colspan="2">Elite 8:  <a href="GameScoreEdit.asp?ID=0&MMRound=8">Add New</a></td>
0146:   </tr>
0147: 
0148: 
0149: 
0150: <%
0151: 		Do Until rs.EOF
0152:        ID = rs("ID").Value
0153:         MMRound = rs("MMRound").Value
0154:         WTeamID = rs("WTeamID").Value
0155: 		LTeamID = rs("LTeamID").Value
0156: 		WScore  = rs("WScore").Value
0157: 		LScore  = rs("LScore").Value
0158: 	WTeamName = displayTeam(WTeamID) 	
0159: 	LTeamName = displayTeam(LTeamID)
0160: %>
0161: <td>
0162: <table cellspacing="1" border="2" cellpadding="3" width="110">
0163: <tr height="27">
0164:   <td class="norm" width="75%"><a href="GameScoreEdit.asp?ID=<%= ID %>"><%= WTeamName %><a></td>
0165:  <td class="norm" width="25%" Align="right"><b><%= WScore %></td>
0166:  </tr>
0167:   <tr height="27">
0168:   <td class="norm" width="75%"><%= LTeamName %></td>
0169:  <td class="norm" width="25%" Align="right"><b><a href="javascript:deleteNode('<%= rs("ID").Value %>')" ><b><%= LScore %></a></td>
0170:     </tr>
0171: </table>
0172: </td>
0173: 
0174: <%
0175: 
0176:       rs.MoveNext
0177: 		Loop
0178: 		rs.Close
0179: 		Set rs = Nothing
0180: %>
0181: 
0182: <%
0183: 
0184: Set rs = Server.CreateObject("ADODB.Recordset")
0185: 	sqlString = "SELECT * FROM mmScores WHERE Season = " & Season & " and MMRound = 4 " & _
0186: 	             "ORDER BY ID"
0187: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0188: 
0189: %>
0190: 
0191:  
0192:   <tr height="25"><td class="normbold" colspan="2">Final 4:  <a href="GameScoreEdit.asp?ID=0&MMRound=4">Add New</a></td>
0193:   </tr>
0194: 
0195: 
0196: 
0197: <%
0198: 		Do Until rs.EOF
0199:        ID = rs("ID").Value
0200:         MMRound = rs("MMRound").Value
0201:         WTeamID = rs("WTeamID").Value
0202: 		LTeamID = rs("LTeamID").Value
0203: 		WScore  = rs("WScore").Value
0204: 		LScore  = rs("LScore").Value
0205: 	WTeamName = displayTeam(WTeamID) 	
0206: 	LTeamName = displayTeam(LTeamID)
0207: %>
0208: <td>
0209: <table cellspacing="1" border="2" cellpadding="3" width="110">
0210: <tr height="27">
0211:   <td class="norm" width="75%"><a href="GameScoreEdit.asp?ID=<%= ID %>"><%= WTeamName %><a></td>
0212:  <td class="norm" width="25%" Align="right"><b><%= WScore %></td>
0213:  </tr>
0214:   <tr height="27">
0215:   <td class="norm" width="75%"><%= LTeamName %></td>
0216:  <td class="norm" width="25%" Align="right"><b><a href="javascript:deleteNode('<%= rs("ID").Value %>')" ><b><%= LScore %></a></td>
0217:     </tr>
0218: </table>
0219: </td>
0220: 
0221: <%
0222: 
0223:       rs.MoveNext
0224: 		Loop
0225: 		rs.Close
0226: 		Set rs = Nothing
0227: %>
0228: 
0229: <%
0230: 
0231: Set rs = Server.CreateObject("ADODB.Recordset")
0232: 	sqlString = "SELECT * FROM mmScores WHERE Season = " & Season & " and MMRound = 2 " & _
0233: 	             "ORDER BY ID"
0234: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0235: 
0236: %>
0237: 
0238:  
0239:   <tr height="25"><td class="normbold" colspan="2">Final 2:  <a href="GameScoreEdit.asp?ID=0&MMRound=2">Add New</a></td>
0240:   </tr>
0241: 
0242: 
0243: 
0244: <%
0245: 		Do Until rs.EOF
0246:        ID = rs("ID").Value
0247:         MMRound = rs("MMRound").Value
0248:         WTeamID = rs("WTeamID").Value
0249: 		LTeamID = rs("LTeamID").Value
0250: 		WScore  = rs("WScore").Value
0251: 		LScore  = rs("LScore").Value
0252: 	WTeamName = displayTeam(WTeamID) 	
0253: 	LTeamName = displayTeam(LTeamID)
0254: %>
0255: <td>
0256: <table cellspacing="1" border="2" cellpadding="3" width="110">
0257: <tr height="27">
0258:   <td class="norm" width="75%"><a href="GameScoreEdit.asp?ID=<%= ID %>"><%= WTeamName %><a></td>
0259:  <td class="norm" width="25%" Align="right"><b><%= WScore %></td>
0260:  </tr>
0261:   <tr height="27">
0262:   <td class="norm" width="75%"><%= LTeamName %></td>
0263:  <td class="norm" width="25%" Align="right"><b><a href="javascript:deleteNode('<%= rs("ID").Value %>')" ><b><%= LScore %></a></td>
0264:     </tr>
0265: </table>
0266: </td>
0267: 
0268: <%
0269: 
0270:       rs.MoveNext
0271: 		Loop
0272: 		rs.Close
0273: 		Set rs = Nothing
0274: 
0275: %>
0276: 
0277: <%
0278: 
0279: Set rs = Server.CreateObject("ADODB.Recordset")
0280: 	sqlString = "SELECT * FROM mmScores WHERE Season = " & Season & " and MMRound = 99 " & _
0281: 	             "ORDER BY ID"
0282: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0283: 
0284: %>
0285: 
0286:  
0287:   <tr height="25"><td class="normbold" colspan="2">Final 99:  <a href="GameScoreEdit.asp?ID=0&MMRound=99">Add New</a></td>
0288:   </tr>
0289: 
0290: 
0291: 
0292: <%
0293: 		Do Until rs.EOF
0294:        ID = rs("ID").Value
0295:         MMRound = rs("MMRound").Value
0296:         WTeamID = rs("WTeamID").Value
0297: 		LTeamID = rs("LTeamID").Value
0298: 		WScore  = rs("WScore").Value
0299: 		LScore  = rs("LScore").Value
0300: 	WTeamName = displayTeam(WTeamID) 	
0301: 	LTeamName = displayTeam(LTeamID)
0302: %>
0303: <td>
0304: <table cellspacing="1" border="2" cellpadding="3" width="110">
0305: <tr height="27">
0306:   <td class="norm" width="75%"><a href="GameScoreEdit.asp?ID=<%= ID %>"><%= WTeamName %><a></td>
0307:  <td class="norm" width="25%" Align="right"><b><%= WScore %></td>
0308:  </tr>
0309:   <tr height="27">
0310:   <td class="norm" width="75%"><%= LTeamName %></td>
0311:  <td class="norm" width="25%" Align="right"><b><a href="javascript:deleteNode('<%= rs("ID").Value %>')" ><b><a href="javascript:deleteNode('<%= rs("ID").Value %>')" ><b><%= LScore %></a></a></td>
0312:     </tr>
0313: </table>
0314: </td>
0315: 
0316: <%
0317: 
0318:       rs.MoveNext
0319: 		Loop
0320: 		rs.Close
0321: 		Set rs = Nothing
0322: %>
0323: 
0324: 
0325: 
0326: </body>
0327: </html>