Count Lines in Pages
Contents of Page: sidebar.asp
Number of Lines: 86
Last Modified: 11/29/2019 4:31:03 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 	eventid = Request.QueryString("eventid")
0008: 	user = Request.Cookies("user")
0009: 
0010: 	Set rs = Server.CreateObject("ADODB.Recordset")
0011: 	sqlString = "SELECT * FROM mmMenu "	& _
0012: 							"WHERE Link <> '' " & _
0013: 							"AND ParentID = 10 " & _
0014: 							"AND Type <> 'X' " &_
0015: 							"ORDER BY NodeID "
0016: 							
0017: 							
0018: '	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0019: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0020: %>
0021: 
0022: <html>
0023: 
0024: <head>
0025: 	<title>FOLGA Sidebar Menu</title>
0026: 	<link href="mm.css" rel="stylesheet" type="text/css">
0027: <target = "main">
0028:     <base target="main">
0029: </head>
0030: <body bgcolor="#ffffff" topmargin="0" marginheight="0">
0031: 
0032: <div align="left">
0033: 
0034: <table cellspacing="1" border="0" cellpadding="0" width="98%" height="53">
0035:  
0036: 
0037: 
0038: 
0039: 		
0040: <%			Do Until rs.EOF	
0041: 
0042:      ImageID = rs("ImageID").Value
0043:      Tipo = rs("Type").Value
0044:    If Tipo = "B" Then
0045: 	    Where = "_blank"
0046: 	   ElseIf Tipo = "O" Then
0047: 	      Where = "_top"
0048: 	   Else
0049: 	      Where = "main"
0050: 	   End If
0051: 	%>
0052: 		<tr >
0053: 	    <td class="normbold" align="left" height="25"><a style="text-decoration:none"  href="<%= rs("Link").Value %>" target = "<%= Where %>"><%= rs("NodeName").Value %></a>
0054: 			    <% If ImageID <> "" Then %>
0055: 	    <img border="0" src="<%= ImageID %> heigth="20" width="20"">
0056: 	    <% End If %>
0057: 		</td>
0058: 	</tr>
0059: <%	   
0060:       rs.MoveNext
0061: 		Loop
0062: 		
0063: 	  If user = "jt@folga.org" Or Session("loggedIn") = "Yes" Then
0064: 	  %>
0065: <tr>
0066: 	    <td class="normbold" align="left" height="27"><a href="displaymenu.asp?parent=30&title=March Madness - Administration"><br><br><br>Admin Menu</a></td>
0067: 	</tr>
0068: 
0069: <%
0070:         End If
0071: 		rs.Close
0072: 		Set rs = Nothing	%>
0073: </table>
0074: </div>
0075: 
0076: </html>
0077: 
0078: 
0079: 
0080: 
0081: 
0082: 
0083: 
0084: 
0085: 
0086: