Count Lines in Pages

Contents of Page: EditMessage.asp Number of Lines: 77 Last Modified: 2/18/2025 9:01:28 AM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 
0008: MessageID = Request.QueryString("ID")
0009: 
0010: 	Set rs = Server.CreateObject("ADODB.Recordset")
0011: 	sqlString = "SELECT * FROM mmMessageBoard WHERE ID = " & MessageID
0012: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0013: 	
0014: message =	rs("Message").Value
0015: PostedBy =	rs("PostedBy").Value
0016: 
0017: messageDate =	rs("MessageDate").Value 
0018: Testimonial =	rs("Testimonial").Value
0019: 
0020: If Testimonial = True Then
0021: ISChecked = "checked"
0022: Else
0023: ISChecked = ""
0024: End If
0025: 
0026: 'Message = Message & "XX"
0027: 
0028: %>
0029: 
0030: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
0031: 
0032: <html>
0033: <head>
0034: <meta name="viewport" content="width=device-width">
0035: 	<title>March Madness - Post Message</title>
0036: 	<link href="mm.css" rel="stylesheet" type="text/css">
0037: 	<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">	
0038: </head>
0039: 
0040: <body bgcolor="#ffffff" onload="document.postMsg.Message.focus()">
0041: 
0042: <form name="postMsg" method="post" action="processMessage_m.asp?ID=<%= MessageID %>">
0043: 	<table border="0" cellpadding="0" cellspacing="0" align="center" width="600">
0044: 
0045: 			<tr><td colspan="2" height="1" bgcolor="#eeeeee"><spacer type="block"></td></tr>
0046: 			  <tr>
0047:       <td  class="normbold" align="right"><font face="Arial" size="2" color="#008080"><b>Posted By:</b></font></td>
0048:       <td class="norm" ><%= PostedBy %></td>
0049:     </tr>
0050:   			  <tr>
0051:       <td  class="normbold" align="right"><font face="Arial" size="2" color="#008080"><b>Posted Date:</b></font></td>
0052:       <td class="norm" ><%= messageDate %></td>
0053:     </tr>
0054: 			<tr valign="top">
0055: 				<td class="normbold">Message:&nbsp;</td>
0056: 				<td class="norm">
0057: 					<textarea cols="70" name="Message" class="norm" rows="7"><%= Message %></textarea>
0058: 				</td>
0059: 			</tr>
0060: 
0061: 		  <tr> 	  
0062: 	 
0063: 	  <td class="normbold" align="right" width="25%"><font face="Arial" size="2" color="#008080"><b>Testimonial?</td>
0064: 	   <td><input type="checkbox"  name="Testimonial" value="Y" <%= ISChecked %> style="width:20; height:20"
0065:       class="norm" size="20"></td>
0066:     </tr>
0067: 			<td colspan="2" align="center" class="norm">
0068: 				&nbsp;<br>
0069: 				<input type="Submit" value="Post Message" style="background-color:#FAD2B8;" class="button-40">&nbsp;&nbsp;&nbsp;
0070: 				<input type="Button" value="Return" style="background-color:#FAD2B8;" onclick="window.close()" class="button_close">
0071: 			</td>
0072: 		</tr>
0073: 	</table>
0074: </form>
0075: 
0076: </body>
0077: </html>