Count Lines in Pages

Contents of Page: PropEntriesList.asp Number of Lines: 100 Last Modified: 8/22/2018 1:33:09 PM 
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: 
0007: <%
0008:    	EventID = Request.QueryString("EventID")
0009: %>
0010: 
0011: <html>
0012: 
0013: <head>
0014: 	<meta http-equiv="Content-Language" content="en-us">
0015: 	<title>PickASquare - Proposition Bets Participants List</title>
0016: 	<link href="mm.css" rel="stylesheet" type="text/css">
0017: 
0018: </head>
0019: 
0020: 
0021: <table size="400">
0022: <tr bgcolor="#FFFFFF">
0023: <td colspan="5"><a href="javascript:history.back()"><font face="Arial" size="2"><b>&lt;&lt; Previous page</b></font></a><br></td>
0024: </TR>
0025: <tr bgcolor="#FFFFFF">
0026: <td class="norm" colspan="5" align="center">(Click on name to see their selections)<br></td>
0027: </tr>
0028: <tr bgcolor="#FFFAF0">
0029: <td class="smalldark" width="5%" >&nbsp;</td>
0030: <td class="normbold" width="40%">Name</td>
0031: <td class="normbold" align="left" width="55%">City, St</td>
0032: 
0033: <%
0034: K = 0
0035: Do Until K >= Kount
0036: K = K + 1
0037: y = " " & K
0038: Y = Right(y,2)
0039: %>
0040: <td class="norm" width="2%" align="center" bgcolor="#D8D8D8"><%= Y %></td>
0041: <%
0042: Loop
0043: %>
0044: </tr>
0045: <%
0046: 	Set rs = Server.CreateObject("ADODB.Recordset")
0047: 	sqlString = "SELECT * FROM PropEntries WHERE EventID = " & EventID & " ORDER BY LastName, FirstName"
0048: 	rs.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0049: 	
0050: 
0051: 
0052: Count = 0
0053: 
0054: bgcolor="#D8D8D8"
0055: 
0056: EmailBody = ""
0057: TotCount = 0
0058:  
0059: Do Until rs.EOF	
0060: 
0061: If bgcolor="#D8D8D8" Then
0062: bgcolor="#ffffff"
0063: Else
0064: bgcolor="#D8D8D8"
0065: End If
0066: TotCount = TotCount + 1
0067: 
0068: 	RegNumber = rs("RegNumber").Value
0069: 	FirstName = rs("FirstName").Value
0070: 	LastName = rs("LastName").Value
0071: 	CitySt = rs("CitySt").Value
0072: 	FullName = LastName & ", " & FirstName 
0073: 
0074: %>
0075: 	<tr bgcolor="<%= bgcolor %>">
0076: 	    <td class="smalldark" align="right"><%= TotCount %></td>
0077: 	    <td class="normbold" align="left" height="20"><a href="PropPicksDisplay2.Asp?RegNumber=<%= RegNumber %>&EventID=<%= EventID %>"><%= FullName %></a></td>
0078: 	    <td class="norm" align="left"><%= CitySt %></td>
0079: 
0080: </tr>
0081: 
0082: <%	  
0083: 
0084: 
0085: 	 rs.MoveNext
0086: 	 Loop
0087: 
0088: %>
0089: 
0090: </table>
0091: </html>
0092: 
0093: 
0094: 
0095: 
0096: 
0097: 
0098: 
0099: 
0100: