Count Lines in Pages
Contents of Page: sidebar_m.asp
Number of Lines: 160
Last Modified: 2/18/2025 9:23:57 AM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 
0008: Session("BaseSiteURL") = "mobile.asp"
0009: 
0010: 		emailaddress = Request.Cookies("user")
0011: 		MBLastViewed = Request.Cookies("MBLastView")
0012: 		If MBLastViewed <> "" Then
0013: 		MBLastViewed = CInt(MBLastViewed)
0014: 		End iF
0015: 
0016: 	Set rs = Server.CreateObject("ADODB.Recordset")
0017: 	sqlString = "SELECT * FROM mmEntries " & _
0018: 							"WHERE EmailAddress = '" & emailaddress & "' " & _
0019: 							"AND Season = " & season
0020: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0021:         if rs.EOF then
0022: LoggedIn = ""
0023:         Else
0024: LoggedIn = "Y"
0025:            EntryID = rS("ID").Value
0026:            Fname = rS("FirstName").Value
0027:            Lname = rs("Name").Value
0028:            Email = rs("EmailAddress").Value
0029:            numEntries = CInt(rs("NumEntries").Value)
0030:          num2ndEntries = CInt(rs("Num2ndEntries").Value)           
0031:         End If
0032: 
0033: 
0034: 
0035: 
0036: 	eventid = Request.QueryString("eventid")
0037: 	user = Request.Cookies("user")
0038: 
0039: 	Set rs = Server.CreateObject("ADODB.Recordset")
0040: 	sqlString = "SELECT * FROM mmMenu "	& _
0041: 							"WHERE Link <> '' " & _
0042: 							"AND ParentID = 88 " & _
0043: 							"AND Type <> 'X' " &_
0044: 							"ORDER BY NodeID "
0045: 							
0046: 		
0047: 'Response.write(SqlString & "<br>")							
0048: '	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0049: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0050: 
0051: 
0052: '--------------------------------------------------
0053: '  Get lastest message board postings
0054: 
0055: 	
0056: 	' Set rsmb = Server.CreateObject("ADODB.Recordset")
0057: 	' sqlString = "SELECT * FROM mmMessageBoard WHERE Season = " & season & " ORDER BY ID DESC"
0058: 	' rsmb.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0059: 
0060: ' NewMessages = 0
0061: 
0062: ' Do Until rsmb.EOF
0063: 
0064: ' MBID = rsmb("ID").Value
0065: ' 'Response.Write("<br>" & MBID & "+" & MBLastViewed & "+")
0066: ' If MBID > MBLastViewed Then
0067: ' NewMessages = NewMessages + 1
0068: ' End If
0069: ' rsmb.MoveNext
0070: 
0071: ' Loop
0072: ' rsmb.Close
0073: ' Set rsmb = Nothing
0074: 
0075: ' If NewMessages > 0 Then
0076: ' MSGText = "<small><font color=" & Chr(34) & "red" & Chr(34) & "> <sup> (" & NewMessages & ")</sup></font>"
0077: ' Else
0078: ' MSGText = ""
0079: ' End If
0080: 
0081: %>
0082: 
0083: <html>
0084: 
0085: <head>
0086: 	<title>FOLGA Sidebar Menu</title>
0087: 	<link href="mm.css" rel="stylesheet" type="text/css">
0088: 	<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">	
0089: </head>
0090: <body bgcolor="#ffffff" topmargin="0" marginheight="0">
0091: 
0092: 
0093: <table cellspacing="1" border="0" cellpadding="5" width="100%" height="53">
0094:  
0095: 
0096: 
0097: <% If LoggedIn = "Y" Then %>	
0098: <tr height="25"><td class="norm" align="center" valign="top"><big>	
0099: 	<font color="green"><big><i>Signed in as</I><B> <%= FName %>&nbsp;<%= Lname %>
0100: 	</td>
0101: </tr>
0102: <% End If %>
0103: 
0104: 
0105: 		
0106: <%			Do Until rs.EOF	
0107:      Description = rs("Description").Value
0108: 
0109: 	 If Description <> "jt@folga.org" Or ( Description = "jt@folga.org" And emailaddress = "jt@folga.org" ) Then
0110:      ImageID = rs("ImageID").Value
0111: 	 
0112: 	 	   ButtonType = "button-40"
0113: 	   If ImageID <> "" Then
0114: 	     ButtonType = ImageID
0115: 	   End if
0116: 	   
0117: 	 
0118: 	 NodeName = rs("NodeName").Value
0119: 
0120: 	 ' If NodeName = "Message Board" Then
0121: 	 ' NodeName = NodeName & MSGText
0122: 	 ' End If
0123:      Tipo = rs("Type").Value
0124:    If Tipo = "B" Then
0125: 	    Where = "_blank"
0126: 	   ElseIf Tipo = "O" Then
0127: 	      Where = "_top"
0128: 	   Else
0129: 	      Where = "mobilemain"
0130: 	   End If
0131: 	   
0132: 
0133: 	%>
0134: 		<tr >
0135: 	    <td class="normbold" align="center" valign="center">
0136: 		 <button class="<%= buttontype %>" onclick="window.open('<%= rs("Link").Value %>','<%= Where %>');"><big><%= NodeName  %></button>
0137: 
0138: 		</td>
0139: 	</tr>
0140: <%	   
0141: 		End If ' If jt@folga.org
0142:       rs.MoveNext
0143: 		Loop
0144: 		
0145: 		rs.Close
0146: 		Set rs = Nothing	%>
0147: </table>
0148: 
0149: 
0150: </html>
0151: 
0152: 
0153: 
0154: 
0155: 
0156: 
0157: 
0158: 
0159: 
0160: