Count Lines in Pages
Contents of Page: viewConfigTable.asp
Number of Lines: 114
Last Modified: 8/22/2018 1:33:23 PM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 	user = Request.Cookies("user")
0008: 	If user <> "jt@folga.org" And user <> "skesic@bridgesolutions.com" Then
0009: 		Response.Redirect("login.asp?from=" & Server.URLEncode("admin/admin.htm"))
0010: 	End If
0011: 	Dim dataString
0012: 	Dim fieldList
0013: 	tablename = "mmConfig"
0014: '	season = "2003"
0015: 	tableFound = False
0016: 	If EmailToEdit = "GetFromForm" Then
0017: 	End If
0018: 	If tablename = "" Then Response.Redirect("admin.htm")	
0019: 	Set fs = CreateObject("Scripting.FileSystemObject")
0020: 	Set f = fs.OpenTextFile(Server.MapPath("\") & "\ncaa\tables.txt", 1, 0)
0021: 	Do While f.AtEndOfStream <> True
0022: 		retString = f.ReadLine
0023: 		dataString = Split(retString, ";")
0024: 		If dataString(0) <> "" Then
0025: 			If dataString(0) = tablename Then
0026: 				fieldList = Split(dataString(2), ",")
0027: 				indexname = dataString(1)
0028: 				tableFound = True
0029: 				Exit Do
0030: 			End If
0031: 		End If
0032: 	Loop
0033: 	f.Close
0034: 	If Not tableFound Then Response.Redirect("admin.htm")
0035: 
0036: 	Set rs = Server.CreateObject("ADODB.Recordset")
0037: 	sqlString = "SELECT * FROM " & tablename & " WHERE Season = " & season & _
0038: 	             " AND F1pts <> 99 " & _
0039: 	             "ORDER BY Region, Display_Order"
0040: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0041: 		
0042: %>
0043: 
0044: <html>
0045: <head>
0046: <title>Admin - View Tables</title>
0047: 	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0048: 	<link href="mm.css" rel="stylesheet" type="text/css">
0049: 	<script language="JavaScript" type="text/javascript">
0050: 		function editEntry(form,act)	{
0051: 			if (act == "Delete")	{
0052: 				if (!confirm("Are you sure you want to delete this record?"))	{
0053: 					return;
0054: 				}
0055: 			}
0056: 			form.action.value = act;
0057: 			form.submit();
0058: 		}
0059: 	</script>
0060: </head>
0061: 
0062: <body bgcolor="#ffffff">
0063: 
0064: 		<table border="0" cellpadding="0" cellspacing="0" width="100%">
0065: 			<tr><td class="bigblue" align="center"><%= tablename %></td></tr>
0066: 			<tr><td class="space">&nbsp;</td></tr>
0067: 			<tr>
0068: 				<td>
0069: 					<table border="0" cellpadding="0" cellspacing="1" width="100%">
0070: 						<tr>
0071: 			<%		For i = LBound(fieldList) To UBound(fieldList)	%>
0072: 							<td class="smalldark" align="center" width="80" bgcolor="#dddddd" height="15"><%= fieldList(i) %></td>
0073: 			<%		Next	%>
0074: 							<td class="smalldark" align="center" width="80" bgcolor="#dddddd">Action</td>
0075: 						</tr>
0076: 					<form action="editResultsTable.asp" method="post">
0077: 						<input type="hidden" name="table" value="<%= tablename %>">
0078: 						<input type="hidden" name="<%= dataString(1) %>" value="0">
0079: 						<input type="hidden" name="action" value="">
0080: 						<tr>
0081: 			<%		For i = LBound(fieldList) To UBound(fieldList)	%>
0082: 							<td class="smallgreen">
0083: 								<input type="text" name="<%= fieldList(i) %>" value="" class="smallgreen" size="50"></td>
0084: 			<%		Next	%>
0085: 							<td class="smalldark" align="center">
0086: 								<input type="button" value="Add" onClick="javascript:editEntry(this.form,'Add')" class="smalldark" style="width:35px"></td>
0087: 						</tr>
0088: 					</form>
0089: 			<%	Do Until rs.EOF	%>
0090: 					<form action="calconeteampoints.asp?yr=<% =season %>&team=<%= rs(dataString(1)).Value %>" method="post">
0091: 						<input type="hidden" name="table" value="<%= tablename %>">
0092: 						<input type="hidden" name="<%= dataString(1) %>" value="<%= rs(dataString(1)).Value %>">
0093: 						<input type="hidden" name="action" value="">
0094: 						<tr>
0095: 			<%		For i = LBound(fieldList) To UBound(fieldList)	%>
0096: 							<td class="smallgreen">
0097: 								<input type="text" name="<%= fieldList(i) %>" value="<%= rs(fieldList(i)).Value %>" class="smallgreen" style="width:75px"></td>
0098: 			<%		Next	%>
0099: 							<td class="smalldark" align="center">
0100: 								<input type="button" value="Chg" onClick="javascript:editEntry(this.form,'Change')" class="smalldark" style="width:35px">
0101: 							
0102: </tr>
0103: 					</form>
0104: 			<%		rs.MoveNext
0105: 					Loop
0106: 					rs.Close
0107: 					Set rs = Nothing	%>
0108: 					</table>
0109: 				</td>
0110: 			</tr>
0111: 		</table>
0112: 
0113: </body>
0114: </html>