Count Lines in Pages
Contents of Page: viewTables.asp
Number of Lines: 168
Last Modified: 8/22/2018 1:33:24 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" And user <> "dwmconsulting@yahoo.com" Then
0009: 		Response.Redirect("login.asp?from=" & Server.URLEncode("admin.htm"))
0010: 	End If
0011: 	Dim dataString
0012: 	Dim fieldList
0013: 	tableFound = False
0014: 	tablename = Request.QueryString("table")
0015: 	EmailToEdit = Request.QueryString("EmaiToEdit")
0016: 	If EmailToEdit = "GetFromForm" Then
0017: 	EmailToEdit = Request.Form("EmailAddress")
0018: 	End If
0019: 	If tablename = "" Then Response.Redirect("admin.htm")
0020: '	If tablename = "mmResults" Then season = 2003
0021: 	Set fs = CreateObject("Scripting.FileSystemObject")
0022: 	Set f = fs.OpenTextFile(Server.MapPath("\") & "\ncaa\tables.txt", 1, 0)
0023: 	Do While f.AtEndOfStream <> True
0024: 		retString = f.ReadLine
0025: 		dataString = Split(retString, ";")
0026: 		If dataString(0) <> "" Then
0027: 			If dataString(0) = tablename Then
0028: 				fieldList = Split(dataString(2), ",")
0029: 				indexname = dataString(1)
0030: 				tableFound = True
0031: 				Exit Do
0032: 			End If
0033: 		End If
0034: 	Loop
0035: 	f.Close
0036: 	If Not tableFound Then Response.Redirect("admin.htm")
0037: 	
0038: 	CellWidth = 75
0039: 	TableWidth = 100
0040: 
0041: 	Set rs = Server.CreateObject("ADODB.Recordset")
0042: 	If EmailToEdit = "" Then
0043: 	  If tablename <> "mmResults"  Then
0044: 		If tablename = "mmEntries" Then
0045: 			sqlString = "SELECT * FROM mmEntries WHERE Season = " & season & " ORDER BY Name"
0046: 		Else
0047: 			If tablename = "mmConfig" Then
0048: 				sqlString = "SELECT * FROM " & tablename & " ORDER BY Element"
0049: 				CellWidth=200
0050: 	            TableWidth = 85				
0051: 			Else
0052: 			   sqlString = "SELECT * FROM " & tablename & " WHERE Season = " & season
0053: 			End If
0054: 		End If
0055: 	  Else
0056: 		sqlString = "SELECT * FROM mmResults WHERE Season = " & season & " ORDER BY Region, Display_Order"
0057: 	  End If
0058: 	Else
0059: 		sqlString = "SELECT * FROM " & tablename & " WHERE Season = " & season & " AND EmailAddress = '" & EmailToEdit & "' "
0060: 	End If
0061: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0062: 		
0063: %>
0064: 
0065: <html>
0066: <head>
0067: <title>Admin - View Tables</title>
0068: 	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0069: 	<link href="mm.css" rel="stylesheet" type="text/css">
0070: 	<script language="JavaScript" type="text/javascript">
0071: 		function editEntry(form,act)	{
0072: 			if (act == "Delete")	{
0073: 				if (!confirm("Are you sure you want to delete this record?"))	{
0074: 					return;
0075: 				}
0076: 			}
0077: 			form.action.value = act;
0078: 			form.submit();
0079: 		}
0080: 	</script>
0081: </head>
0082: 
0083: <body bgcolor="#ffffff">
0084: 
0085: 		<table border="0" cellpadding="0" cellspacing="0" width="<%= TableWidth %>%">
0086: 		<tr><td class="norm" colspan="10"><a href="javascript:history.back()"><font face="Arial" size="2.5">&lt;&lt; Previous page</font></a></td></tr>
0087: 			<tr><td class="bigblue" align="center"><%= tablename %></td></tr>
0088: 			<tr><td class="space">&nbsp;</td></tr>
0089: 			<tr>
0090: 				<td>
0091: 					<table border="0" cellpadding="0" cellspacing="1" width="100%">
0092: 						<tr>
0093: 			<%		For i = LBound(fieldList) To UBound(fieldList)	
0094: 			        FieldLen = Len(fieldList(i))
0095: 			        If FieldLen < 4 and tablename <> "mmTeams" Then 
0096: 			           CellsWidth = 40
0097: 			           CellWidth = 27
0098: 			        ElseIF tablename <> "mmConfig" Then
0099: 			           CellsWidth = 80
0100: 			           CellWidth  = 75
0101: 			        End If
0102: 			
0103: 			%>
0104: 							<td class="smalldark" align="center" width="<%= CellsWidth %>" bgcolor="#dddddd" height="15"><%= fieldList(i) %></td>
0105: 			<%		Next	%>
0106: 							<td class="smalldark" align="center" width="<%= CellsWidth %>" bgcolor="#dddddd">Action</td>
0107: 						</tr>
0108: 					<form action="editTables.asp" method="post">
0109: 						<input type="hidden" name="table" value="<%= tablename %>">
0110: 						<input type="hidden" name="<%= dataString(1) %>" value="0">
0111: 						<input type="hidden" name="action" value="">
0112: 						<tr>
0113: 			<%		For i = LBound(fieldList) To UBound(fieldList)	
0114: 			        FieldLen = Len(fieldList(i))
0115: 			        If FieldLen < 4 and tablename <> "mmTeams" Then
0116: 			           CellsWidth = 40
0117: 			           CellWidth = 27
0118: 			        ElseIF tablename <> "mmConfig" Then
0119: 			           CellsWidth = 80
0120: 			           CellWidth  = 75
0121: 			        End If
0122: 			
0123: 			%>
0124: 							<td class="smallgreen">
0125: 								<input type="text" name="<%= fieldList(i) %>" value="" class="smallgreen" style="width:<%= CellWidth %>px"></td>
0126: 			<%		Next	%>
0127: 							<td class="smalldark" align="center">
0128: 								<input type="button" value="Add" onClick="javascript:editEntry(this.form,'Add')" class="smalldark" style="width:35px"></td>
0129: 						</tr>
0130: 					</form>
0131: 			<%	Do Until rs.EOF	%>
0132: 					<form action="editTables.asp" method="post">
0133: 						<input type="hidden" name="table" value="<%= tablename %>">
0134: 						<input type="hidden" name="<%= dataString(1) %>" value="<%= rs(dataString(1)).Value %>">
0135: 						<input type="hidden" name="action" value="">
0136: 						<tr>
0137: 			<%		For i = LBound(fieldList) To UBound(fieldList)	
0138: 			        FieldLen = Len(fieldList(i))
0139: 			        If FieldLen < 4 and tablename <> "mmTeams" Then
0140: 			           CellsWidth = 40
0141: 			           CellWidth = 32
0142: 			        ElseIF tablename <> "mmConfig" Then
0143: 			           CellsWidth = 80
0144: 			           CellWidth  = 75
0145: 			        End If
0146: 			%>
0147: 							<td class="smallgreen">
0148: 								<input type="text" name="<%= fieldList(i) %>" value="<%= rs(fieldList(i)).Value %>" class="smallgreen" style="width:<%= CellWidth %>px"></td>
0149: 			<%		Next	%>
0150: 							<td class="smalldark" align="center">
0151: 								<input type="button" value="Chg" onClick="javascript:editEntry(this.form,'Change')" class="smalldark" style="width:35px">
0152: 			<% If tablename = "mmEntries" Then %>			
0153: 								<input type="button" value="Upd" onClick="javascript:editEntry(this.form,'Update')" class="smalldark" style="width:35px">
0154: 			<% End If %>					
0155: 								<input type="button" value="Del" onClick="javascript:editEntry(this.form,'Delete')" class="smalldark" style="width:35px"></td>
0156: 						</tr>
0157: 					</form>
0158: 			<%		rs.MoveNext
0159: 					Loop
0160: 					rs.Close
0161: 					Set rs = Nothing	%>
0162: 					</table>
0163: 				</td>
0164: 			</tr>
0165: 		</table>
0166: 
0167: </body>
0168: </html>