Count Lines in Pages
Contents of Page: viewResultsTable.asp
Number of Lines: 196
Last Modified: 3/26/2023 9:25:20 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: <!-- #include FILE="include/ReturnPageSet.inc" -->
0007: 
0008: <%
0009: 	user = Request.Cookies("user")
0010: 	If user <> "jt@folga.org" And user <> "skesic@bridgesolutions.com" And user <> "dwmconsulting@yahoo.com" Then
0011: 		Response.Redirect("login.asp?from=" & Server.URLEncode("admin/admin.htm"))
0012: 	End If
0013: 	ShowAll = Request.QueryString("ShowAll")
0014: 	Region = Request.QueryString("Region")
0015: 	If Region = "" Then
0016: 	SelCrit = " AND Region <> '' "
0017: 	Else
0018: 	SelCrit = " AND Region = '" & Region & "' "
0019: 		If Region = "A" Then
0020: 		ColReg = 1
0021: 		ElseIf Region = "B" Then
0022: 		ColReg = 2
0023: 		ElseIf Region = "C" Then
0024: 		ColReg = 3
0025: 		Else	
0026: 		ColReg = 4
0027: 		End If
0028: 	End If
0029: 	If ShowAll = "Y" Then
0030: 	SelCrit = SelCrit & " "
0031: 	Else
0032: 	SelCrit = SelCrit &  " AND F1pts <> 99 "
0033: 	End If
0034: 	Dim dataString
0035: 	Dim fieldList
0036: 	tablename = "mmResults"
0037: '	season = "2003"
0038: 	tableFound = False
0039: 	If EmailToEdit = "GetFromForm" Then
0040: 	End If
0041: 	If tablename = "" Then Response.Redirect("admin.htm")	
0042: 	Set fs = CreateObject("Scripting.FileSystemObject")
0043: 	Set f = fs.OpenTextFile(Server.MapPath("\") & "\mm\tables.txt", 1, 0)
0044: 	Do While f.AtEndOfStream <> True
0045: 		retString = f.ReadLine
0046: 		dataString = Split(retString, ";")
0047: 		If dataString(0) <> "" Then
0048: 			If dataString(0) = tablename Then
0049: 				fieldList = Split(dataString(2), ",")
0050: 				indexname = dataString(1)
0051: 				tableFound = True
0052: 				Exit Do
0053: 			End If
0054: 		End If
0055: 	Loop
0056: 	f.Close
0057: 	If Not tableFound Then Response.Redirect("admin.htm")
0058: 
0059: ' Get Region Names
0060: 
0061: Dim Regs(4,2)
0062: 	Set rs = Server.CreateObject("ADODB.Recordset")
0063: 	sqlString = "SELECT * FROM mmRegionals WHERE Season = " & season & _
0064: 	             " ORDER BY Region"
0065: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0066: 
0067: 		Do Until rs.EOF
0068: 
0069: 		Regs(rs("Region").Value,1) = rs("RegionName").Value
0070: 		If rs("Region").Value = 1 Then
0071: 		Regs(1,2) = "A"
0072: 		ElseIf rs("Region").Value = 2 Then
0073: 		Regs(2,2) = "B"
0074: 		ElseIf rs("Region").Value = 3 Then
0075: 		Regs(3,2) = "C"
0076: 		ElseIf rs("Region").Value = 4 Then
0077: 		Regs(4,2) = "D"
0078: 		End If
0079: 		rs.MoveNext
0080: 		Loop
0081: 		rs.Close
0082: 		Set rs = Nothing
0083: 		 
0084: 
0085: 	Set rs = Server.CreateObject("ADODB.Recordset")
0086: 	sqlString = "SELECT * FROM " & tablename & " WHERE Season = " & season & _
0087: 	             SelCrit & _
0088: 	             "ORDER BY Region, Display_Order"
0089: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0090:  CurrentTime = Now()		
0091: %>
0092: 
0093: <html>
0094: <head>
0095: <meta name="viewport" content="width=device-width">
0096: <title>March Madness - Results / Standings Updates</title>
0097: 	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0098: 	<link href="mm.css" rel="stylesheet" type="text/css">
0099: 	<script language="JavaScript" type="text/javascript">
0100: 		function editEntry(form,act)	{
0101: 			if (act == "Delete")	{
0102: 				if (!confirm("Are you sure you want to delete this record?"))	{
0103: 					return;
0104: 				}
0105: 			}
0106: 			form.action.value = act;
0107: 			form.submit();
0108: 		}
0109: 	</script>
0110: </head>
0111: 
0112: <body bgcolor="#ffffff">
0113: 
0114: 		<table border="0" cellpadding="0" cellspacing="0" width="570">
0115: 
0116: 			<tr><td class="norm">&nbsp;<a href="displaymenugen.asp?parent=40&title=March%20Madness%20-%20Scores / Standings Update"><b>Return to Menu</b></a><br><br>
0117: 			|&nbsp;&nbsp;<a href="viewResultsTable.asp?Region=<%= Regs(1,2) %>"><b><big><%= Regs(1,1) %></big></b></a>
0118: 			&nbsp;&nbsp;(<a href="viewResultsTable.asp?ShowAll=Y&Region=<%= Regs(1,2) %>">All</a>)&nbsp;&nbsp;
0119: 			|&nbsp;&nbsp;<a href="viewResultsTable.asp?Region=<%= Regs(2,2) %>"><b><big><%= Regs(2,1) %></big></b></a>
0120: 			&nbsp;&nbsp;(<a href="viewResultsTable.asp?ShowAll=Y&Region=<%= Regs(2,2) %>">All</a>)&nbsp;&nbsp;
0121: 			|&nbsp;&nbsp;<a href="viewResultsTable.asp?Region=<%= Regs(3,2) %>"><b><big><%= Regs(3,1) %></big></b></a>
0122: 			&nbsp;&nbsp;(<a href="viewResultsTable.asp?ShowAll=Y&Region=<%= Regs(3,2) %>">All</a>)&nbsp;&nbsp;
0123: 			|&nbsp;&nbsp;<a href="viewResultsTable.asp?Region=<%= Regs(4,2) %>"><b><big><%= Regs(4,1) %></big></b></a>
0124: 			&nbsp;&nbsp;(<a href="viewResultsTable.asp?ShowAll=Y&Region=<%= Regs(4,2) %>">All</a>)&nbsp;&nbsp;
0125: 			|&nbsp;&nbsp;<a href="viewResultsTable.asp">All Still In</a>&nbsp;&nbsp;
0126: 
0127: 			|&nbsp;&nbsp;<a href="viewResultsTable.asp?ShowAll=Y">All</a>
0128: 				  <br><br>Standings Updated @  <font color="red"><%= STANDINGSUPDATED %></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
0129:                   &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Last Score Updated @ <font color="red"><%= SCORESUPDATED %></font><br><br></font>
0130: 			</td></tr>
0131: 			<tr height="35">
0132: 				<td>
0133: 					<table border="0" cellpadding="1" cellspacing="4" width="100%">
0134: 						<tr>
0135: 						<td></td><td></td>
0136: 			<%		For i = LBound(fieldList) To UBound(fieldList)	
0137: 			
0138: If fieldList(i) = "Name" Then %>
0139: 						<td class="normbold" align="center" width="100" bgcolor="##ffff66"><%= Regs(ColReg,1) %></td>
0140: <% Else	%>
0141: 							<td class="smalldark" align="right" width="<%= Width %>" bgcolor="#dddddd" height="15"><%= fieldList(i) %></td>
0142: <% End If %>
0143: 			<%		Next	%>
0144: 							<td class="smalldark" align="center" width="75" bgcolor="#dddddd">Action</td>
0145: 						</tr>
0146: 				
0147: 			<%	Do Until rs.EOF	
0148: 			
0149: 		SeedNo = Right(rs(dataString(1)).Value,2) + 0
0150: 			
0151: 			%>
0152: 				<tr height="28">
0153: <td class="norm"><%= rs("ID").Value %></td>
0154: 					<form action="calconeteampoints.asp?yr=<% =season %>&team=<%= rs(dataString(1)).Value %>&ShowAll=<%= ShowAll %>&Region=<%= Region %>" method="post">
0155: 						<input type="hidden" name="table" value="<%= tablename %>">
0156: 						<input type="hidden" name="<%= dataString(1) %>" value="<%= rs(dataString(1)).Value %>">
0157: 						<input type="hidden" name="action" value="">
0158: 						<td class="smalldark" align="right" width="25"><b><%= SeedNo %></b></td>
0159: 			<%		
0160: 			
0161: 			
0162: 			For i = LBound(fieldList) To UBound(fieldList)	
0163: Width = "30"			
0164: If fieldList(i) = "Name" Then
0165: 
0166: TeamName = rs(fieldList(i)).Value
0167: 
0168: Width = "100"
0169: End If			
0170: 			%>
0171: 							<td class="smallgreen" align="right">
0172: 								<input type="text" name="<%= fieldList(i) %>" value="<%= rs(fieldList(i)).Value %>" class="smallgreen" style="width:<%= Width %>px"></td>
0173: 			<%		Next	%>
0174: 							<td class="smalldark" align="right">
0175: 								<input type="button" value="<%= TeamName %>" onClick="javascript:editEntry(this.form,'Change')" class="norm" style="width:90px">
0176: 	</td>				
0177: </tr>
0178: 					</form>
0179: 			<%		rs.MoveNext
0180: 					Loop
0181: 					rs.Close
0182: 					Set rs = Nothing	
0183: 					
0184: X = MatchUpCount("D5", "D11", "D6", "D03", 2015)	
0185: 
0186: 					
0187: X = MatchUpCount("D5", "D11", "D6", "D13", 2015)	
0188: 					
0189: 					%>
0190: 					</table>
0191: 				</td>
0192: 			</tr>
0193: 		</table>
0194: 
0195: </body>
0196: </html>