Count Lines in Pages
Contents of Page: displayemailsall.asp
Number of Lines: 56
Last Modified: 8/22/2018 1:32:40 PM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 
0007:   
0008: 	Set rsm = Server.CreateObject("ADODB.Recordset")
0009:         sqlString = "SELECT * FROM mmEntries " & _
0010:     			"WHERE Season = " & season & " " & _
0011:                             "AND ( NumEntries > 0 or " & _
0012:                             " num2ndEntries > 0 ) " & _
0013: 							"ORDER BY EmailAddress"
0014:  							
0015:    rsm.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0016: 
0017: 	Response.Write("SqlString = " & sqlString & "<br>")		
0018: 
0019:    %>
0020: <html>
0021: 
0022: <head>
0023: <title></title>
0024: </head>
0025: 
0026: <body>
0027:    <table cellspacing="0" border="1" cellpadding="5" width="95%">
0028:    <tr><td>
0029:    <%   
0030: 
0031: 	Kount = 0
0032: 
0033: 	
0034: 	Do Until rsm.EOF
0035: 
0036: 		Kount = Kount + 1
0037: 
0038: 		EmailAddress = rsm("EmailAddress").Value
0039: 
0040: 
0041: 		Response.Write(EmailAddress & ", ")
0042:  
0043:     rsm.MoveNext
0044: 	Loop
0045: 
0046: 
0047: 	rsm.Close
0048: 	Set rsm = Nothing
0049: 
0050: 
0051: %>
0052: </td></tr>
0053: <tr><td>Total emails: <%= Kount %></td></tr>
0054: </table>
0055: </body>
0056: </html>