Count Lines in Pages
Contents of Page: displaymenugen.asp
Number of Lines: 65
Last Modified: 2/22/2026 9:39:04 AM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 
0008: parent = Request.QueryString("parent")
0009: title = Request.QueryString("title")
0010: 
0011: BaseSiteURL = Session("BaseSiteURL")
0012: 
0013: 
0014: 	Set rs = Server.CreateObject("ADODB.Recordset")
0015: 	sqlString = "SELECT * FROM mmMenu "	& _
0016: 							"WHERE ParentID = " & parent & " " & _
0017: 							"AND Type <> 'X' " &_
0018: 							"ORDER BY NodeID "
0019: 							
0020: 							
0021: '	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0022: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0023: 
0024: %>
0025: 
0026: <html>
0027: 
0028: <head>
0029: <meta name="viewport" content="width=device-width">
0030: 	<meta http-equiv="Content-Language" content="en-us">
0031: 	<title>FOLGA - Generic Administrative Menu Display</title>
0032: 	<link href="mm.css" rel="stylesheet" type="text/css">
0033: </head>
0034: 
0035: 
0036: 
0037: <p><b><font face="Arial"><%= Title %></font></b></p>
0038: 
0039: 
0040: 
0041: <table cellspacing="1" border="0" cellpadding="0" width="100%" height="53">
0042:  
0043: 
0044: 
0045: 
0046: 		
0047: <%			Do Until rs.EOF	
0048: 
0049: 
0050: 	   actuallink =  rs("Link").Value  %>
0051: 
0052: 		<tr >
0053: <% If ActualLink <> "" Then %>
0054: 	    <td class="normbold" align="left" height="30" width="200"><a href="<%= actuallink %>""><%= rs("NodeName").Value %></a></td>
0055: <% Else %>
0056: 	    <td class="normbold" align="left" height="30" width="200"><%= rs("NodeName").Value %></td>
0057: <%	End If %>
0058: <% If BaseSiteURL = "default.asp" Then %>
0059: 	    <td class="normbold" align="left" height="30">&nbsp;<%= rs("Description").Value %></td></tr>
0060: <%  End If
0061:       rs.MoveNext
0062: 		Loop
0063: 
0064: 		rs.Close
0065: 		Set rs = Nothing	%></table></html>