Count Lines in Pages
Contents of Page: DES_Menu_Maint.asp
Number of Lines: 151
Last Modified: 3/21/2026 1:09:46 PM
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: 							<td class="small" align="center" width="3%">
0077: 								Login?</td>
0078: 							<td class="small" align="center" width="3%">
0079: 								Del</td>
0080: 							<td class="small" align="center" width="3%">
0081: 								Type</td>
0082: 							
0083: 							<td class="norm"  width="20%">
0084: 								Node Name</td>						
0085: 
0086: 							<td class="norm"  width="30%">
0087: 								Link</td>
0088: 							<td class="norm"  width="10%">
0089: 								Button</td>								
0090: 
0091: 						</tr>
0092: 			<% 			bgcolor = "#ffeeee"
0093: 			trbgcolor = "#A4A4A4"
0094: 			LastParentID = ""
0095: 					Do Until rs.EOF
0096: 					ParentID = rs("ParentID").Value
0097: 		            NeedLogin = rs("NeedLogin").Value
0098: 					If NeedLogin <> False Then
0099: 					NeedLogin = "Y"
0100: 					Else
0101: 					NeedLogin = ""
0102: 					End If
0103: 					If LastParentID = "" Then
0104: 					LastParendID = ParentID
0105: 					End If
0106: 					If LastParentID <> ParentID Then
0107: 					   	LastParentID = ParentID
0108: 						If bgcolor = "#A4A4A4" Then
0109: 							bgcolor = "#ffffff"
0110: 						Else
0111: 								bgcolor = "#A4A4A4"
0112: 						End If	
0113: End If		%>
0114: 						<tr bgcolor="<%= bgcolor %>" height="22">
0115: 							<td class="normBOLD" align="center" height="17">
0116: 								<a href="DESMenuEdit.asp?id=<%= rs("ID").Value %>&ParentID=<%= XParentID %>"><%= rs("ID").Value %></a></td>
0117: 														
0118: 						<td class="norm" align="center" height="17">
0119: 								<%= rs("NodeID").Value %></td>
0120: 							<td class="norm" align="center"><a href="DES_Menu_Maint.asp?ParentID=<%= ParentID %>">
0121: 								<%= ParentID %></a></td>
0122: 						<td class="norm" align="center" height="17">
0123: 								<%= NeedLogin %></td>
0124: 
0125: 							<td class="norm" align="center">
0126: 								<a href="javascript:deleteNode('<%= rs("ID").Value %>','<%= XParentID %>')" class="smallblueUndl">Del</a></td>	
0127: 							<td class="norm" align="center">
0128: 								<%= rs("Type").Value %></td>
0129: 							<td class="norm" align="left">
0130: 								<%= rs("NodeName").Value %></td>
0131: 
0132: 							<td class="smalldark" align="left">
0133: 								<%= rs("Link").Value %></td>
0134: 	
0135: 							<td class="smalldark" align="left">
0136: 								<%= rs("ImageID").Value %></td>
0137: 							</tr>
0138: 			<%		rs.MoveNext
0139: 					Loop
0140: 					rs.Close
0141: 					Set rs = Nothing	%>
0142: 						<tr>
0143: 							<td class="smalldark" align="center" colspan="7">
0144: 								<a href="DESMenuEdit.asp?id=0&ParentID=<%= XParentID %>" class="normundl">Add New Menu Entry</a></td>
0145: 						</tr>
0146: 				</td>
0147: 			</tr>
0148: 		</table>
0149: 
0150: </body>
0151: </html>