Count Lines in Pages

Contents of Page: main.asp Number of Lines: 63 Last Modified: 8/22/2018 1:32:49 PM 
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 	Set rs = Server.CreateObject("ADODB.Recordset")
0008: 	sqlString = "SELECT * FROM mmMessageBoard WHERE Season = " & season & " ORDER BY ID DESC"
0009: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0010: %>
0011: 
0012: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
0013: 
0014: <html>
0015: <head>
0016: 	<title>March Madness - Message Board</title>
0017: 	<link href="mm.css" rel="stylesheet" type="text/css">
0018: 
0019: 	<script language="JavaScript">
0020: 		function postMessage()
0021: 		{
0022: 			x = 400;
0023: 			y = 400;
0024: 			var xpos = (screen.width - x)/2;
0025: 			var ypos = (screen.height - y)/2;
0026: 			var updateasp = "postMessage.asp";
0027: 			var w;
0028: 			w = window.open(updateasp,'update','width='+x+',height='+y+',top='+ypos+',left='+xpos);
0029: 		}	
0030: 	</script>
0031: 
0032: </head>
0033: 
0034: <body bgcolor="#ffffff">
0035: 
0036: 	&nbsp;<br>
0037: 	
0038: 	<table border="0" cellpadding="2" cellspacing="0" align="center" width="550">
0039: 		<tr bgcolor="#577fbe">
0040: 			<td class="medlightb" align="left" height="25">&nbsp;&nbsp;Message Board</td>
0041: 			<td class="norm" align="right">
0042: 				<a href="javascript:postMessage()" class="smallundl">Click Here To Post Message</a>&nbsp;&nbsp;
0043: 			</td>
0044: 		</tr>
0045: <%	Do Until rs.EOF	%>
0046: 			<tr bgcolor="#FFFAF0">
0047: 				<td class="normbold" colspan="2">
0048: 					<%= FormatDateTime(rs("MessageDate").Value, 2) %>&nbsp;
0049: 					<span class="smallbold">(<%= Trim(rs("From").Value) %>)</span>
0050: 				</td>
0051: 			</tr>
0052: 			<tr bgcolor="#FFFAF0">
0053: 				<td class="norm" colspan="2"><%= rs("Message").Value %></td>
0054: 			</tr>
0055: 			<tr><td colspan="2" height="1" bgcolor="#00cccc"><spacer type="block"></td></tr>
0056: <%		rs.MoveNext
0057: 	Loop
0058: 	rs.Close
0059: 	Set rs = Nothing	%>
0060: 	</table>
0061: 
0062: </body>
0063: </html>