Count Lines in Pages
Contents of Page: displaymenu.asp
Number of Lines: 70
Last Modified: 2/22/2026 9:29:46 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: 
0012: 	Set rs = Server.CreateObject("ADODB.Recordset")
0013: 	sqlString = "SELECT * FROM mmMenu "	& _
0014: 							"WHERE ParentID = " & parent & " " & _
0015: 							"AND Type <> 'X' " &_
0016: 							"ORDER BY NodeID "
0017: 							
0018: 							
0019: '	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0020: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0021: 
0022: %>
0023: 
0024: <html>
0025: 
0026: <head>
0027: 	<meta http-equiv="Content-Language" content="en-us">
0028: 	<title>FOLGA Sidebar Menu</title>
0029: 	<link href="mm.css" rel="stylesheet" type="text/css">
0030: <target = "main">
0031:     <base target="main">
0032: </head>
0033: 
0034: 
0035: 
0036: <p><b><font face="Arial"><%= Title %>-<%= SYSisMobile %>-<%= Session("BaseSiteURL") %></font></b></p>
0037: 
0038: 
0039: 
0040: <table cellspacing="1" border="0" cellpadding="0" width="800" height="53">
0041:  
0042: 
0043: 
0044: 
0045: 		
0046: <%			Do Until rs.EOF	
0047: 
0048: 
0049:      Tipo = rs("Type").Value
0050: 	   If Tipo = "B" Then
0051: 	    Where = "_blank"
0052: 	   Else
0053: 	    Where = "main"
0054: 	   End If
0055: 
0056: 	   actuallink =  rs("Link").Value  %>
0057: 
0058: 		<tr >
0059: <% If actuallink = "" Then %>
0060: <td class="<%= TDClass %>" align="left" height="10" width="20%"><b><%= rs("NodeName").Value %></b><td></tr>
0061: <% Else %>
0062: 	    <td class="normbold" align="left" height="23" width="30%"><a href="<%= actuallink %>" target = "<%= Where %>"><%= rs("NodeName").Value %></a></td>
0063: 	    <td class="normbold">&nbsp;<%= rs("Description").Value %></td></tr>
0064: <% End If %>
0065: <%	   
0066:       rs.MoveNext
0067: 		Loop
0068: 
0069: 		rs.Close
0070: 		Set rs = Nothing	%></table></html>