Count Lines in Pages

Contents of Page: mmConfig_Maint.asp Number of Lines: 83 Last Modified: 3/21/2019 6:24:04 PM 
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!--#include file="include/constants.inc"-->
0004: <!--#include FILE="include/adovbs.inc" -->
0005: 
0006: <%
0007: 	Set rs = Server.CreateObject("ADODB.Recordset")
0008: 	sqlString = "SELECT * FROM mmConfig "	& _
0009: 							"ORDER BY Element "
0010: 							
0011: 							
0012: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0013: 	
0014: 	
0015: linkfield = "Link" & language
0016: 		
0017: %>
0018: 
0019: <html>
0020: <head>
0021: <title>Admin - View Tables</title>
0022: 	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0023: 	<link href="mm.css" rel="stylesheet" type="text/css">
0024: 	<script language="JavaScript" type="text/javascript">
0025: 		function deleteNode(id)	{
0026: 			if (!confirm("Are you sure you want to delete configuration element?"))	{
0027: 				return;
0028: 			}
0029: 			window.location = "mmConfigDelete.asp?id="+id;
0030: 		}
0031: 	</script>
0032: </head>
0033: 
0034: <body bgcolor="#ffffff">
0035: 
0036: 		<table border="0" cellpadding="0" cellspacing="0" width="500">
0037: 			<tr><td class="norm" align="center" colspan="10">&nbsp;<a href="mmConfigEdit.asp?id=0" class="normundl">Add New Config Element</a>&nbsp;
0038:                                | <a href="mmAdmin.asp">
0039:                                 Admin Menu</a> | <a href="mmDashboard.asp">Dashboard</a></td></tr>
0040: <tr>
0041: 							<td class="normbold" height="21" align="right" width="23%">Element</td>
0042: 							<td class="normbold" align="center" width="2%">=</td>
0043: 							<td class="normbold" align="left" width="20%">Value</td>
0044: 							<td class="normbold" align="center" width="5%">=</td>							
0045: 					
0046: 						</tr>
0047: 			<% 	bgcolor = "#BDBDBD"
0048: 					Do Until rs.EOF
0049: 					Description = rs("Description").Value
0050: 						If bgcolor = "#BDBDBD" Then
0051: 							bgcolor = "#ffffff"
0052: 						Else
0053: 								bgcolor = "#BDBDBD"
0054: 						End If	%>
0055: 						<tr bgcolor="<%= bgcolor %>" height="23">
0056: 
0057: 							<td class="norm" align="right">
0058: 								<a href="mmConfigEdit.asp?id=<%= rs("ID").Value %>"><%= rs("Element").Value %></a>
0059: 								<% If Description <> "" Then %>
0060: 								<br><small><i><%= Description %>
0061: 								<% End If %>
0062: 								</td>
0063: 								<td  class="norm" align="center">=</td>
0064: 							<td class="norm" align="left"><b><%= rs("Value").Value %></b></td>
0065: 							<td class="norm" align="center">
0066: 								<a href="javascript:deleteNode('<%= rs("ID").Value %>')" class="smallblueUndl">Del</a></td>
0067: 
0068: 						</tr>
0069: 			<%		rs.MoveNext
0070: 					Loop
0071: 					rs.Close
0072: 					Set rs = Nothing	%>
0073: 						<tr>
0074: 							<td class="norm" align="center" colspan="7">
0075: 								<a href="mmConfigEdit.asp?id=0" class="normundl">Add New Config Element</a>&nbsp;
0076:                                </td>
0077: 						</tr>
0078: 				</td>
0079: 			</tr>
0080: 		</table>
0081: 
0082: </body>
0083: </html>