Count Lines in Pages
Contents of Page: mmsendemailpostbl.asp
Number of Lines: 183
Last Modified: 8/22/2018 1:32:57 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: 
0009: LastNameGE = Session("LastNameGE")
0010: 
0011: JustATest = Session("JustATest")
0012: FromEntryNo = Session("FromEntryNo")
0013: ThruEntryNo = Session("ThruEntryNo")
0014: FromEmailAddress = Session("FromEmailAddress")
0015: 
0016: 
0017: If  1 = 1 Then
0018: 
0019:     	Dim CurrPart(500,4)
0020:     
0021:   count = 0
0022:   
0023:   HaveSingle = "No"
0024:   
0025:     SendIt = "YES"
0026:     Format = "TEXT"
0027: 	Set rsm = Server.CreateObject("ADODB.Recordset")
0028: 
0029:    If FromEntryNo > "0" Then
0030:       					
0031: 	  sqlString = "SELECT * FROM mmEntries " & _
0032: 	  				        "WHERE Season = " & season & " " & _
0033: 				            "AND NumEntries > 0 " & _
0034: 							"AND ID >= " & FromEntryNo & " " & _
0035: 							"AND ID <= " & ThruEntryNo
0036: 
0037: 							
0038:    Else
0039:   
0040: 	    sqlString = "SELECT * FROM mmEntries " & _
0041: 				"WHERE Season = " & season & " " & _
0042:                  " AND Name >= '" & LastNameGE & "' "  & _
0043: 				 " AND NumEntries > 0 " & _
0044: 							"ORDER BY Name"
0045: 
0046:      End If							
0047: 
0048: 
0049:    
0050:    
0051:    Response.Write("JustATest=" & JustATest & "<BR><BR>")
0052:    
0053:    Response.Write("SqlString = " & sqlString & "<br>")	
0054:  							
0055:    rsm.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0056: 	
0057: 
0058:    %>
0059: <html>
0060: 
0061: <head>
0062: <title></title>
0063: </head>
0064: 
0065: <body>
0066:    <table cellspacing="0" border="1" cellpadding="5" width="400" align="center">
0067:    
0068:    <%   
0069: 
0070: 	Kount = 0
0071: 
0072: 	MyContest = "Biggest Loser"
0073: 
0074: 
0075:    Do Until rsm.EOF
0076: 
0077:       RegNumber = rsm("RegNumber").Value
0078:       EMailAddress = rsm("EMailAddress").Value
0079:       FirstName = rsm("FirstName").Value
0080:       LastName = rsm("Name").Value
0081:    	  val = rsm("NumEntries").Value
0082:       val2nd = rsm("Num2ndEntries").Value	  
0083: 
0084: 
0085: 	  CurrPart(Kount,0) = RegNumber
0086: 	  CurrPart(Kount,1) = FirstName
0087: 	  CurrPart(Kount,2) = LastName
0088:       CurrPart(Kount,3) = EMailAddress
0089: 	  Kount = Kount + 1
0090:  
0091:    rsm.MoveNext
0092: 	Loop
0093: 
0094: 
0095: 	rsm.Close
0096: 	Set rsm = Nothing
0097: 
0098: 	LoopCount = 0
0099:  
0100: 	Do Until LoopCount = Kount
0101: 
0102: 	  RegNumber = CurrPart(LoopCount,0) 
0103: 	  FirstName = CurrPart(LoopCount,1)
0104: 	  LastName = CurrPart(LoopCount,2)
0105: 	  EmailAddress = CurrPart(LoopCount,3)
0106: 
0107: 	  LoopCount = LoopCount + 1
0108: 
0109: 
0110:         SendIt = ""
0111: 
0112: 		Set rs = Server.CreateObject("ADODB.Recordset")
0113: 
0114: 		sqlString = "SELECT COUNT(ID)  as RegCount FROM mmBiggestLoser " & _
0115: 						"WHERE RegNumber = " & RegNumber & " " & _
0116: 						"AND Season = " & season
0117: 						
0118: 		rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0119: 
0120: 		totPicksMade = rs("RegCount").Value
0121: 		totPicksMade = CInt(totPicksMade)
0122: 
0123: 		rs.Close
0124: 		Set rs = Nothing
0125: 	 
0126:  
0127: 		If totPicksMade < 1 Then
0128: 			SendIt = "YES"
0129: 		End If
0130: 
0131: 	    EmailSubject = "March Madness " & MyContest & " Contest - Reminder to make your picks"
0132: 	    
0133: 	    Message = "<BR><BR>You have not made your selections in the " & MyContest & " contest.<br><br>"
0134: 	    Message = Message & "Making selections in the Biggest Losers contest is included with your registration.<br><br>"
0135:         Message = Message & "Just go to http://www.folga.org/ncaa and click on <b>Pick Biggest Losers</b> to make your selections.<br><br>"	    
0136: 	    Message = Message & "Good Luck and Thank You for participating!"
0137: 	    
0138: 	    Format = "HTML"
0139: 
0140:     
0141:      If SendIt = "YES" Then
0142: 
0143: '      Response.Write("Email: " & EmailAddress & " - " & LastName & "<br>")
0144: %>
0145: <tr>
0146: <td width="100"><%= LastName %></td>
0147: <td width="80"><%= FirstName %></td>
0148: <td width="200"><%= EmailAddress %></td>
0149: <% If To2nd <> "Y" Then %>
0150: <td width="30"><%= val %></td><td width="30"><%= totpicksmade %></td>
0151: <% Else %>
0152: <td width="30"><%= Bonus %></td><td width="30"><%= val2nd %></td><td width="30"><%= totpicks2ndmade %></td></tr>
0153: <% End If
0154: 
0155: '   objMail.From = "jt@lusogolf.org" 
0156:       EMailTo = EmailAddress
0157:       EMailBody = "Hi there " & FirstName & ", " &  Message
0158: 
0159:      If JustATest <> "Yes" Then
0160:   
0161:  '       sendEmail EMailTo, "", "", EmailSubject, EmailBody, Format, FromEmailAddress
0162: 
0163:      End If
0164:   
0165:      count = count + 1
0166: 
0167:     End If
0168: 
0169: 	Loop
0170: 
0171: %>
0172: </table>
0173: <% 
0174:    Response.Write("Email Sent to " & count & " participants.<br><br>")
0175: 
0176:          Response.Write("Subject: " & EmailSubject & "<br>")	
0177:          Response.Write("<br>Body   :<br><br> " & EmailBody & "<br>")	
0178: 
0179: End If  ' 1 = 2
0180: 
0181: %>
0182: </body>
0183: </html>