Count Lines in Pages
Contents of Page: mmsidebar.asp
Number of Lines: 129
Last Modified: 2/19/2026 6:38:03 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 	MyEMail = Request.Cookies("user")
0008: 
0009: 	Set rs = Server.CreateObject("ADODB.Recordset")
0010: 	sqlString = "SELECT * FROM mmMenu "	& _
0011: 							"WHERE  ParentID = 10 " & _
0012: 							"AND Type <> 'X' " &_
0013: 							"ORDER BY NodeID "
0014: 							
0015: 							
0016: 
0017: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText	
0018: 
0019: 	Set rsm = Server.CreateObject("ADODB.Recordset")
0020:   
0021: 	sqlString = "SELECT * FROM MY4_Master " & _
0022: 	                     " WHERE  EmailAddress = '" & MyEMail & "' "						
0023: 							
0024: 	rsm.Open sqlString, conn2, adOpenStatic, adLockReadOnly, adCmdText
0025: 	
0026: 
0027: '    Response.Write(sqlString & "<br>")		
0028: 
0029:     If rsm.EOF Then
0030:     Name = "guest!"
0031:     Else
0032:     Name = rsm("FirstName").Value & " " & rsm("LastName").Value & "!"
0033:     End If
0034: 	
0035: %>
0036: 
0037: <html>
0038: 
0039: <head>
0040: 	<title>FOLGA Sidebar Menu</title>
0041: 	<link href="mm.css" rel="stylesheet" type="text/css">
0042: 		<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">
0043: 				<link href="https://mychinodes.org/des.css" rel="stylesheet" type="text/css">	
0044: <target = "main">
0045:     <base target="main">
0046: </head>
0047: 
0048: <table cellspacing="0" border="0" cellpadding="5" width="100%" align="center" height="53">
0049:  
0050: 
0051: <% If Name <> "guest!" Then %>
0052: <tr><td class="norm">Welcome, <b><%= Name %></b></td></tr>
0053: 
0054: <tr><td class="norm" align="center"><small>(<%= MyEmail %>)</td></tr>
0055: <% End If %>
0056: 		
0057: <%			Do Until rs.EOF	
0058: 
0059:      Description = rs("Description").Value
0060: 
0061: 	 If Description <> "jt@folga.org" Or ( MyEmail = "joetoledo@yahoo.com" or MyEmail = "jt@folga.org" ) Then
0062: 
0063: 	 Link = Trim(rs("Link").Value)
0064:      ImageID = rs("ImageID").Value
0065: 	 
0066: 	 	 
0067: 	 	   ButtonType = "button-40"
0068: 	   If ImageID <> "" Then
0069: 	     ButtonType = ImageID
0070: 	   End if
0071: 	   
0072: 	 
0073: 	NodeName =Trim(rs("NodeName").Value)
0074: 	TDClass = Trim( rs("TDClass").Value & " " )
0075:      Tipo = rs("Type").Value
0076: 	   If Tipo = "B" Then
0077: 	    Where = "_blank"
0078: 	   ElseIf Tipo = "O" Then
0079: 	      Where = "_top"
0080: 	   Else
0081: 	      Where = "main"
0082: 	   End If
0083: 
0084: 	   If TDClass = "" Then
0085: 	      TDClass = "norm"
0086: 	   End If
0087: 	   
0088: 	   	%>
0089: <% If Link = "" and NodeName = "" Then %>
0090: <tr height="7">
0091: <% else %>
0092: 	
0093: 		<tr>
0094: <% End If %>
0095: <% If Link = "" Then %>
0096: <td class="<%= TDClass %>" align="left" height="10"><b><% = NodeName %></b><td>
0097: <% Else %>
0098: 	    <td class="<%= TDClass %>" align="left" >
0099: 
0100: 					 <button class="<%= buttontype %>" onclick="window.open('<%= rs("Link").Value %>','<%= Where %>');"><big><%= NodeName  %></button>
0101: <% End If %>
0102: </td>
0103: 	</tr>
0104: 	
0105: 
0106: <%	
0107: 
0108: 	End If '  jt@folga
0109: 	
0110:       rs.MoveNext
0111: 		Loop
0112: 	
0113: 
0114: 
0115: 		rs.Close
0116: 		Set rs = Nothing	%>
0117: </table>
0118: </html>
0119: 
0120: 
0121: 
0122: 
0123: 
0124: 
0125: 
0126: 
0127: 
0128: 
0129: