Count Lines in Pages
Contents of Page: WC_Menu_Maint.asp
Number of Lines: 111
Last Modified: 8/22/2018 1:33:24 PM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!--#include file="include/constants.inc"-->
0004: <!--#include FILE="include/adovbs.inc" -->
0005: 
0006: <%
0007: '	user = Request.Cookies("user")
0008: '	If user <> "joe@lusogolf.org" And user <> "skesic@bridgesolutions.com" Then
0009: '		Response.Redirect("../login.asp?from=" & Server.URLEncode("admin/lgadmin.htm"))
0010: '	End If
0011: 
0012: '	Set rs = Server.CreateObject("ADODB.Recordset")
0013: '	sqlString = "SELECT * FROM mmMenu WHERE NodeID > 0 ORDER BY ParentID, NodeID"
0014: 'sqlString = "SELECT * FROM wcMenu "	& _
0015: ''							"WHERE Type <> 'Z' " & _  
0016: '							"ORDER BY ParentID, NodeID "
0017: 
0018: 	
0019: '	rs.Open "wcMenu", Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0020: '	rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0021: 	
0022: 	Set rs = Server.CreateObject("ADODB.Recordset")
0023: 	sqlString = "SELECT * FROM mmMenu "	& _
0024: 							"WHERE Type <> 'z' " & _
0025: 							"ORDER BY ParentID, NodeID "
0026: 							
0027: 							
0028: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0029: 	
0030: 	
0031: 		
0032: %>
0033: 
0034: <html>
0035: <head>
0036: <title>Admin - View Tables</title>
0037: 	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0038: 	<link href="mm.css" rel="stylesheet" type="text/css">
0039: 	<script language="JavaScript" type="text/javascript">
0040: 		function deleteNode(id)	{
0041: 			if (!confirm("Are you sure you want to delete this node?"))	{
0042: 				return;
0043: 			}
0044: 			window.location = "wcMenuDelete.asp?id="+id;
0045: 		}
0046: 	</script>
0047: </head>
0048: 
0049: <body bgcolor="#ffffff">
0050: 
0051: 		<table border="0" cellpadding="0" cellspacing="0" width="720" align="center">
0052: 			<tr><td class="bigblue" align="center">NodesTable</td></tr>
0053: 			<tr><td class="space" align="center">&nbsp;<a href="wcMenuEdit.asp?id=0" class="normundl">Add New Node</a>&nbsp;
0054:                                | <a href="wcadmin.asp">
0055:                                 Admin Menu</a></td></tr>
0056: 			<tr>
0057: 				<td>
0058: 					<table border="0" cellpadding="2" cellspacing="1" width="690">
0059: 						<tr bgcolor="#C46488">
0060: 							<td class="small" align="center" width="40" height="20">
0061: 								Node</td>
0062: 							<td class="small" align="center" width="150">
0063: 								Node Name</td>						
0064: 							<td class="small" align="center" width="40">
0065: 								Parent</td>
0066: 							<td class="small" align="center" width="40">
0067: 								Type</td>
0068: 							<td class="small" align="center" width="300">
0069: 								Link</td>
0070: 							<td class="small" align="center" width="40">
0071: 								Del</td>
0072: 						</tr>
0073: 			<% 	bgcolor = "#ffeeee"
0074: 					Do Until rs.EOF
0075: 						If bgcolor = "#ffeeee" Then
0076: 							bgcolor = "#ffffff"
0077: 						Else
0078: 								bgcolor = "#ffeeee"
0079: 						End If	%>
0080: 						<tr bgcolor="<%= bgcolor %>">
0081: 							<td class="smalldark" align="center">
0082: 								<a href="mmMenuEdit.asp?id=<%= rs("NodeID").Value %>" class="smallblueUndl"><%= rs("NodeID").Value %></a></td>
0083: 							<td class="smalldark" align="left">
0084: 								<%= rs("NodeName").Value %></td>
0085: 
0086: 							<td class="smalldark" align="center">
0087: 								<%= rs("ParentID").Value %></td>
0088: 							<td class="smalldark" align="center">
0089: 								<%= rs("Type").Value %></td>
0090: 							<td class="smalldark" align="left">
0091: 								<%= rs("Link").Value %></td>
0092: 							<td class="smalldark" align="center">
0093: 								<a href="javascript:deleteNode('<%= rs("NodeID").Value %>')" class="smallblueUndl">Del</a></td>
0094: 						</tr>
0095: 			<%		rs.MoveNext
0096: 					Loop
0097: 					rs.Close
0098: 					Set rs = Nothing	%>
0099: 						<tr>
0100: 							<td class="smalldark" align="center" colspan="7">
0101: 								<a href="mmMenuEdit.asp?id=0" class="normundl">Add New Node</a>&nbsp;
0102:                                | <a href="mmadmin.asp">
0103:                                 Admin Menu</a> </td>
0104: 						</tr>
0105: 					</table>
0106: 				</td>
0107: 			</tr>
0108: 		</table>
0109: 
0110: </body>
0111: </html>