Count Lines in Pages
Contents of Page: DisplayEmailsWinners.asp
Number of Lines: 101
Last Modified: 4/2/2026 7:50:20 AM
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: 	PlainEmails = ""
0020: 
0021:    %>
0022: <html>
0023: 
0024: <head>
0025: <title></title>
0026: </head>
0027: <link href="mm.css" rel="stylesheet" type="text/css">
0028: <body>
0029:    <table cellspacing="0" border="1" cellpadding="5" width="95%">
0030:    <tr><td>
0031:    <%   
0032: 
0033: 	Kount = 0
0034: 
0035: 	
0036: 	Do Until rsm.EOF
0037: 
0038: 			RegNumber = rsm("RegNumber").Value
0039: 			CheckNo = rsm("CheckNo").Value
0040: 			If IsNull(CheckNo) = True Then
0041: 			CheckNo = ""
0042: 			End If
0043: 			 DonatedAmount = Cint(rsm("DonatedAmount").Value)
0044: 			
0045: 
0046: 			Set rsme = Server.CreateObject("ADODB.Recordset")
0047: 	sqlString = "SELECT * FROM MY4_Master " & _
0048: 							"WHERE RegNumber = '" & RegNumber & "' " 
0049: 	rsme.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0050: 
0051: 
0052: 		EmailAddress = rsme("EmailAddress").Value
0053: 		FFirstName = rsme("FirstName").Value
0054: 		LLastName = rsme("LastName").Value
0055: 		
0056: 		PlainEmails = PlainEmails & EmailAddress & ", "
0057: 		
0058: 		FullName = FFirstName & " " & LLastName
0059: 		
0060: 		PrintAddress = FFirstName & " " & LLastName & "<" & EmailAddress & ">"
0061: 		
0062: 			 ThisEmail = FullName & " &#60;" & EmailAddress & "&#62;, "
0063: 
0064: '		Response.Write(EmailAddress & " CheckNo=" & CheckNo & ", ")
0065: 
0066: 		If NoAddress = "" Or (NoAddress = "Y" And CheckNo = "" and DonatedAmount = 0) Then
0067: 
0068: 		Response.Write(ThisEmail)
0069: 
0070: '       Response.Write(FFirstName & " " & LLastName & " " & chr(60) & EmailAddress & chr(62) & ", " )
0071: 
0072: 		
0073: 		Kount = Kount + 1
0074: 
0075: 		End If
0076:  
0077:     rsm.MoveNext
0078: 	Loop
0079: 
0080: 
0081: 	rsm.Close
0082: 	Set rsm = Nothing
0083: 
0084: 
0085: %>
0086: </td></tr>
0087: <tr><td class="norm"><big><br><%= PlainEmails %><br>&nbsp;</td></tr>
0088: <tr><td>March Madness Contest to Benefit Cancer Research - Congratulations, you are a winner!</td></tr>
0089: <tr><td>You are receiving this email because you have an entry that finished "in the money."<br><br>
0090: 
0091: 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>
0092: 
0093: 
0094: Once again, congratulations and thanks for participating!<br><br>
0095: Joe Toledo
0096: </td></tr>
0097: 
0098: <tr><td>Total emails: <%= Kount %></td></tr>
0099: </table>
0100: </body>
0101: </html>