Count Lines in Pages
Contents of Page: messageboard_m.asp
Number of Lines: 131
Last Modified: 2/15/2026 1:23:37 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: 
0004: <!-- #include FILE="include/adovbs.inc" -->
0005: <!-- #include FILE="include/homeURL.inc" -->
0006: <!-- #include FILE="include/constants.inc" -->
0007: <!-- #include FILE="include/funcs.asp" -->
0008: 
0009: <%
0010: 
0011: 
0012: 
0013: 	user = Request.Cookies("user")
0014: 	yr = Request.QueryString("yr")
0015: 	
0016: 	If yr = "" Then
0017: 	  yr = season
0018: 	End If
0019:     LastYr = yr - 1 
0020:     NextYr = yr + 1
0021:     CurrentYr = season
0022: 	
0023: 	Set rs = Server.CreateObject("ADODB.Recordset")
0024: 	sqlString = "SELECT * FROM mmMessageBoard WHERE Season = " & yr & " ORDER BY ID DESC"
0025: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0026: 
0027: 
0028: 
0029: 
0030: %>
0031: 
0032: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
0033: 
0034: <html>
0035: <head>
0036: <meta name="viewport" content="width=device-width">
0037: 	<title>March Madness - Message Board</title>
0038: 	<link href="mm.css" rel="stylesheet" type="text/css">
0039: 	<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">	
0040: 	<script language="JavaScript">
0041: 		function postMessage()
0042: 		{
0043: 			x = 600;
0044: 			y = 300;
0045: 			var xpos = (screen.width - x)/2;
0046: 			var ypos = (screen.height - y)/2;
0047: 			var updateasp = "postMessage.asp";
0048: 			var w;
0049: 			w = window.open(updateasp,'update','width='+x+',height='+y+',top='+ypos+',left='+xpos);
0050: 		}	
0051: 	</script>
0052: 	<script language="JavaScript" type="text/javascript">
0053: 		function deleteNode(id)	{
0054: 			if (!confirm("Are you sure you want to delete this message?"))	{
0055: 				return;
0056: 			}
0057: 			window.location = "messagedelete.asp?id="+id;
0058: 		}
0059: 	</script>
0060: </head>
0061: 
0062: <body bgcolor="#ffffff">
0063: 
0064: 	<table border="0" cellpadding="1" cellspacing="2" width="100%" align="center">
0065: 			<tr bgcolor="#00cccc">
0066: 			<td class="norm" align="center" height="30" width="70%"><big><big><b>&nbsp;&nbsp;Message Board</td>
0067: <% If User <> "" Then %>
0068: 			<td class="norm" align="right">
0069: 				
0070: 				<button class="button-40" onclick="window.open('postMessage_m.asp','mobilemain');">Post</button>
0071: 			
0072: <% Else %>	
0073: 			<td class="normbold" align="right" ><font color="yellow">
0074: 	Must Sign In to post message</a>			
0075: <% End If %>				
0076: 			</td>
0077: 
0078: 		</tr>
0079: <%	
0080: 
0081: StartDate = "02/11/2018"
0082: StartDate = CDate(StartDate)
0083: 
0084: Count = 0
0085: 
0086: Do Until rs.EOF
0087: 
0088: ID =rs("ID").Value
0089: 
0090: If Count = 0 Then
0091: 	addCookie "MBLastView", ID
0092: 	Count = 1
0093: End If
0094: 
0095: 
0096: 
0097: 
0098: TimeStamp = rs("TimeStamp").Value
0099: 
0100: MessageDate = rs("MessageDate").Value
0101: If ID < 1430 Then
0102: DateToUse = MessageDate
0103: Else
0104: DateToUse = TimeStamp
0105: End If
0106: 
0107:  ' DateToUse = MessageDate & " " & TimeStamp
0108: 
0109: ' FormatDateTime(DateToUse, 2)
0110: 
0111: %>
0112: 			<tr bgcolor="#FFFAF0">
0113: 				<td class="norm" colspan="3">
0114: 										<span class="normbold">(<%= Trim(rs("PostedBy").Value) %>)</span> <small><font color="#d1d1d1"><%= DateToUse %></small>
0115: <% If user = "jt@folga.org" Then %>
0116: <a href="javascript:deleteNode('<%= rs("ID").Value %>')"><img src="images/S_B_DELE.gif" border="0"></a>				
0117: <% End If %>					
0118: 				</td>
0119: 			</tr>
0120: 			<tr bgcolor="#FFFAF0">
0121: 				<td class="norm" colspan="3"><big><%= rs("Message").Value %></td>
0122: 			</tr>
0123: 			<tr><td colspan="3" height=".5" bgcolor="#00cccc"><spacer type="block"></td></tr>
0124: <%		rs.MoveNext
0125: 	Loop
0126: 	rs.Close
0127: 	Set rs = Nothing	%>
0128: 	</table>
0129: 
0130: </body>
0131: </html>