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