Count Lines in Pages
Contents of Page: DisplayEmailsWinners.asp
Number of Lines: 96
Last Modified: 4/10/2024 2:44:18 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: NoAddress = Trim(Request.QueryString("NoAddress"))
0008:   
0009: 	Set rsm = Server.CreateObject("ADODB.Recordset")
0010:    	sqlString = "SELECT * FROM mmTop10" & _
0011: 			" WHERE Season = " & season & " " & _
0012: 			" AND Contest <> 'PP' " & _
0013: 			" ORDER BY Name" 
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: 			RegNumber = rsm("RegNumber").Value
0037: 			CheckNo = rsm("CheckNo").Value
0038: 			If IsNull(CheckNo) = True Then
0039: 			CheckNo = ""
0040: 			End If
0041: 			 DonatedAmount = Cint(rsm("DonatedAmount").Value)
0042: 			
0043: 
0044: 			Set rsme = Server.CreateObject("ADODB.Recordset")
0045: 	sqlString = "SELECT * FROM MY4_Master " & _
0046: 							"WHERE RegNumber = '" & RegNumber & "' " 
0047: 	rsme.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0048: 
0049: 
0050: 		EmailAddress = rsme("EmailAddress").Value
0051: 		FFirstName = rsme("FirstName").Value
0052: 		LLastName = rsme("LastName").Value
0053: 		
0054: 		FullName = FFirstName & " " & LLastName
0055: 		
0056: 		PrintAddress = FFirstName & " " & LLastName & "<" & EmailAddress & ">"
0057: 		
0058: 			 ThisEmail = FullName & " &#60;" & EmailAddress & "&#62;, "
0059: 
0060: '		Response.Write(EmailAddress & " CheckNo=" & CheckNo & ", ")
0061: 
0062: 		If NoAddress = "" Or (NoAddress = "Y" And CheckNo = "" and DonatedAmount = 0) Then
0063: 
0064: 		Response.Write(ThisEmail)
0065: 
0066: '       Response.Write(FFirstName & " " & LLastName & " " & chr(60) & EmailAddress & chr(62) & ", " )
0067: 
0068: 		
0069: 		Kount = Kount + 1
0070: 
0071: 		End If
0072:  
0073:     rsm.MoveNext
0074: 	Loop
0075: 
0076: 
0077: 	rsm.Close
0078: 	Set rsm = Nothing
0079: 
0080: 
0081: %>
0082: </td></tr>
0083: <tr><td>March Madness Contest to Benefit Cancer Research - Congratulations, you are a winner!</td></tr>
0084: <tr><td>You are receiving this email because you have an entry that finished "in the money."<br><br>
0085: 
0086: Please go to https://www.folga.org/mm and click on "Edit My Profile" and update your VenMo, Zelle, PayPal or mailing address so that I can send you your winnings.<br><br>
0087: 
0088: 
0089: Once again, congratulations and thanks for participating!<br><br>
0090: Joe Toledo
0091: </td></tr>
0092: 
0093: <tr><td>Total emails: <%= Kount %></td></tr>
0094: </table>
0095: </body>
0096: </html>