Count Lines in Pages
Contents of Page: my4sidebar.asp
Number of Lines: 122
Last Modified: 2/21/2024 9:49:14 AM
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 ( Link <> '' or NodeName <> '' ) " & _
0012: 							"AND ParentID = 10 " & _
0013: 							"AND Type <> 'X' " &_
0014: 							"ORDER BY NodeID "
0015: 							
0016: 							
0017: 
0018: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText	
0019: 
0020: 	Set rsm = Server.CreateObject("ADODB.Recordset")
0021:   
0022: 	sqlString = "SELECT * FROM MY4_Master " & _
0023: 	                     " WHERE  EmailAddress = '" & MyEMail & "' "						
0024: 							
0025: 	rsm.Open sqlString, conn2, adOpenStatic, adLockReadOnly, adCmdText
0026: 	
0027: 
0028: '    Response.Write(sqlString & "<br>")		
0029: 
0030:     If rsm.EOF Then
0031:     Name = "guest!"
0032:     Else
0033:     Name = rsm("FirstName").Value & " " & rsm("LastName").Value & "!"
0034:     End If
0035: 	
0036: %>
0037: 
0038: <html>
0039: 
0040: <head>
0041: 	<title>FOLGA Sidebar Menu</title>
0042: 	<link href="mm.css" rel="stylesheet" type="text/css">
0043: <target = "main">
0044:     <base target="main">
0045: </head>
0046: 
0047: <table cellspacing="1" border="0" cellpadding="0" width="100%" align="center" height="53">
0048:  
0049: 
0050: 
0051: <tr><td class="norm">Welcome, <b><%= Name %></b></td></tr>
0052: <% If Name <> "guest!" Then %>
0053: <tr><td class="norm" align="center"><small>(<%= MyEmail %>)</td></tr>
0054: <% End If %>
0055: 		
0056: <%			Do Until rs.EOF	
0057: 	 Link = rs("Link").Value
0058:      ImageID = rs("ImageID").Value
0059: 	NodeName =rs("NodeName").Value
0060: 	TDClass = Trim( rs("TDClass").Value & " " )
0061:      Tipo = rs("Type").Value
0062: 	   If Tipo = "B" Then
0063: 	    Where = "_blank"
0064: 	   ElseIf Tipo = "O" Then
0065: 	      Where = "_top"
0066: 	   Else
0067: 	      Where = "main"
0068: 	   End If
0069: 
0070: 	   If TDClass = "" Then
0071: 	      TDClass = "norm"
0072: 	   End If
0073: 	   
0074: 	   	%>
0075: 		<tr height="26" >
0076: <% If Link = "" Then %>
0077: <td class="<%= TDClass %>" align="left" height="10"><b><% = NodeName %></b><td>
0078: <% Else %>
0079: 	    <td class="<%= TDClass %>" align="left" ><a style="text-decoration:none"  href="<%= Link %>" target = "<%= Where %>"><%= rs("NodeName").Value %></a>&nbsp;
0080: <% End If %>
0081: 	    <% If ImageID <> "" Then %>
0082: 	    <img border="0" src="<%= ImageID %>">
0083: 	    <% End If %></td>
0084: 	</tr>
0085: <%	   
0086:       rs.MoveNext
0087: 		Loop
0088: 	
0089: 	  If MyEMail = "jt@folga.org" Then
0090: 	  %>
0091: <tr>
0092: 	    <td class="normbold" align="left" height="24"><a href="displaymenu.asp?parent=30&title=March Madness - Administration"><br><big>Admin Menu</a></td>
0093: 	</tr>
0094: 
0095: <%
0096:         End If
0097: 
0098: 		
0099: 	  If MyEMail = "dwmconsulting@yahoo.comx" Or  MyEMail = "jt@folga.org" Then
0100: 	  %>
0101: <tr>
0102: 	    <td class="normbold" align="left" height="24"><a href="displaymenugen.asp?parent=40&title=March%20Madness%20-%20Scores%20/%20Standings%20Update"><br>Scores/Standings<br>Update</a></td>
0103: 	</tr>
0104: 
0105: <%
0106:         End If
0107: 
0108: 		rs.Close
0109: 		Set rs = Nothing	%>
0110: </table>
0111: </html>
0112: 
0113: 
0114: 
0115: 
0116: 
0117: 
0118: 
0119: 
0120: 
0121: 
0122: