Count Lines in Pages
Contents of Page: DES_Menu_Maint.asp
Number of Lines: 144
Last Modified: 2/20/2026 8:51:47 AM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!--#include file="include/constants.inc"-->
0004: <!--#include FILE="include/adovbs.inc" -->
0005: 
0006: 
0007: <%
0008: 
0009: 	XParentID = Trim(Request.QueryString("ParentID"))
0010: 	
0011: 
0012: 	
0013: 		Set rs = Server.CreateObject("ADODB.Recordset")
0014: 		
0015: If xParentID <> "" Then	
0016: 	
0017: 		sqlString = "SELECT * FROM mmMenu "	& _
0018: 							"WHERE ParentID = " & XParentID & " " & _
0019: 							"ORDER by NodeID "
0020: 							
0021: Else							
0022: 		
0023: 	sqlString = "SELECT * FROM mmMenu "	& _
0024: 							"WHERE Type <> 'z' " & _
0025: 							"ORDER BY ParentID, NodeID "
0026: 							
0027: End If	
0028: 	
0029: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0030: 	
0031: %>
0032: 
0033: <html>
0034: <head>
0035: <title>Chino DES - Navigation Menus Update</title>
0036: 	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0037: 	<link href="mm.css" rel="stylesheet" type="text/css">
0038: 	<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">	
0039: 	<script language="JavaScript" type="text/javascript">
0040: 		function deleteNode(id,ParentID)	{
0041: 			if (!confirm("Are you sure you want to delete this node?"))	{
0042: 				return;
0043: 			}
0044: 			window.location = "DESMenuDelete.asp?id="+id+"&ParentID="+ParentID;
0045: 		}
0046: 	</script>
0047: </head>
0048: 
0049: <body bgcolor="#ffffff">
0050: 
0051: 		<table border="0" cellpadding="0" cellspacing="0" width="900" >
0052: 								<td class="medium" align="LEFT" colspan="5">
0053: 									<button class="button-40" onclick="window.location.href = 'DESMenuEdit.asp?id=0&ParentID=<%= XParentID %>';"><small>Add New Menu Entry</button>
0054: 								</td>
0055: 								<td class="medium" align="LEFT" colspan="10">
0056: 								
0057: 								<button class="button-40" onclick="window.location.href = 'DES_Menu_Maint.asp';"><small>Show All Menu Entries</button>
0058: 								<button class="button-40" onclick="window.location.href = 'Display_Menu_Buttons.asp';"><small>Show Buttons</button>	
0059: 								<button class="button-40" onclick="window.location.href = 'displaymenugen.asp?parent=30&title=March%20Madness%20-%20Administration';"><small>Admin</button>									
0060: 
0061: 								
0062: <% IF XParentID <> "" Then %>
0063: &nbsp;&nbsp;<big><big>Editing for ParentID: <big><b><%= XParentID %>
0064: <% End If %>	
0065: </td>							
0066: 						</tr>
0067: 			<tr>
0068: 				<td>
0069: 						<tr bgcolor="#C46488" height="30">
0070: 							<td class="medium" align="center" width="3%">
0071: 								ID</td>						
0072: 							<td class="small" align="center" width="3%">
0073: 								Node</td>
0074: 							<td class="small" align="center" width="3%">
0075: 								Parent</td>
0076: 
0077: 							<td class="small" align="center" width="3%">
0078: 								Del</td>
0079: 							<td class="small" align="center" width="3%">
0080: 								Type</td>
0081: 							
0082: 							<td class="norm"  width="20%">
0083: 								Node Name</td>						
0084: 
0085: 							<td class="norm"  width="30%">
0086: 								Link</td>
0087: 							<td class="norm"  width="10%">
0088: 								Button</td>								
0089: 
0090: 						</tr>
0091: 			<% 			bgcolor = "#ffeeee"
0092: 			trbgcolor = "#A4A4A4"
0093: 			LastParentID = ""
0094: 					Do Until rs.EOF
0095: 					ParentID = rs("ParentID").Value
0096: 
0097: 					If LastParentID = "" Then
0098: 					LastParendID = ParentID
0099: 					End If
0100: 					If LastParentID <> ParentID Then
0101: 					   	LastParentID = ParentID
0102: 						If bgcolor = "#A4A4A4" Then
0103: 							bgcolor = "#ffffff"
0104: 						Else
0105: 								bgcolor = "#A4A4A4"
0106: 						End If	
0107: End If		%>
0108: 						<tr bgcolor="<%= bgcolor %>" height="22">
0109: 							<td class="normBOLD" align="center" height="17">
0110: 								<a href="DESMenuEdit.asp?id=<%= rs("ID").Value %>&ParentID=<%= XParentID %>"><%= rs("ID").Value %></a></td>
0111: 														
0112: 						<td class="norm" align="center" height="17">
0113: 								<%= rs("NodeID").Value %></td>
0114: 							<td class="norm" align="center"><a href="DES_Menu_Maint.asp?ParentID=<%= ParentID %>">
0115: 								<%= ParentID %></a></td>
0116: 
0117: 
0118: 							<td class="norm" align="center">
0119: 								<a href="javascript:deleteNode('<%= rs("ID").Value %>','<%= XParentID %>')" class="smallblueUndl">Del</a></td>	
0120: 							<td class="norm" align="center">
0121: 								<%= rs("Type").Value %></td>
0122: 							<td class="norm" align="left">
0123: 								<%= rs("NodeName").Value %></td>
0124: 
0125: 							<td class="smalldark" align="left">
0126: 								<%= rs("Link").Value %></td>
0127: 	
0128: 							<td class="smalldark" align="left">
0129: 								<%= rs("ImageID").Value %></td>
0130: 							</tr>
0131: 			<%		rs.MoveNext
0132: 					Loop
0133: 					rs.Close
0134: 					Set rs = Nothing	%>
0135: 						<tr>
0136: 							<td class="smalldark" align="center" colspan="7">
0137: 								<a href="DESMenuEdit.asp?id=0&ParentID=<%= XParentID %>" class="normundl">Add New Menu Entry</a></td>
0138: 						</tr>
0139: 				</td>
0140: 			</tr>
0141: 		</table>
0142: 
0143: </body>
0144: </html>