Count Lines in Pages
Contents of Page: PropBetsGetEmails.asp
Number of Lines: 49
Last Modified: 8/22/2018 1:33:09 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <%
0005: EventID = 1
0006: %>
0007: <table border="1" width="90%" align="center">
0008: <tr><td>
0009: <%
0010: 	
0011: KCount = 0
0012: TCount = 0
0013: 	
0014:       
0015: 
0016: 	Set rs = Server.CreateObject("ADODB.Recordset")
0017: 
0018:     	sqlString = "SELECT * FROM PropEntries "	& _	
0019: 					"WHERE EventID = " & EventID		             
0020: 					
0021: 
0022: 	   rs.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0023: 
0024: 	Do Until rs.EOF 
0025:       EmailAddress = rs("EmailAddress").Value						
0026: Kount = Kount + 1
0027: 
0028:       
0029: 	  Response.Write(EmailAddress & ", ") 
0030: 	  
0031: 	  If KCount > 9 Then
0032: 	  Response.Write("<br>")
0033: 	  KCount = 0
0034: 	  End If
0035:       rs.MoveNext
0036: 		Loop
0037: 
0038: '	  Response.Write("<br>" & TCount)
0039: 		rs.Close
0040: 		Set rs = Nothing	%>
0041: </td></tr>
0042: </table>
0043: <input type="button" value="Go Back" class="norm"
0044:         onClick="history.back()" style="float: left">   
0045: <body bgcolor="#ffffff">
0046: <br>
0047: </body>
0048: 
0049: </html>