Count Lines in Pages
Contents of Page: PropsUpdateEmailsSend.asp
Number of Lines: 105
Last Modified: 8/22/2018 1:33:12 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: EventID = 1
0007: 
0008: 
0009: 		Set rs = Server.CreateObject("ADODB.Recordset")
0010: 		sqlString = "SELECT * FROM mmConfig WHERE Element = 'PROPSTANDINGSUPDATED'" 
0011:          rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0012: 		LastUpdate = Mid(rs("Value").Value,10,10)
0013: 		rs.Close
0014: 		Set rs = Nothing
0015: 
0016: 		
0017: 		Set rs = Server.CreateObject("ADODB.Recordset")
0018: 		sqlString = "SELECT * FROM mmConfig WHERE Element = 'PROPRESULTSENTERED'" 
0019:          rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0020: 		ResultsEntered = rs("Value").Value
0021: 		rs.Close
0022: 		Set rs = Nothing
0023: 
0024:    CRLF = chr(13) & chr(10)
0025: '   CRLF = "<BR>"
0026: 
0027: %>
0028: <table border="1" width="90%" align="center">
0029: <tr><td>
0030: <%
0031: 	
0032: KCount = 0
0033: TCount = 0
0034: 
0035:     MYEmail = "Joe Toledo<jt@folga.org>"
0036: 	
0037:  If ResultsEntered <> 37 Then     
0038: Subject = "PickASquare - Proposition Bets Pool Standings Update"
0039: Else
0040: Subject = "PickASquare - Proposition Bets Pool ** Final Standings **"
0041: End If
0042: 
0043: 
0044: '					" AND RegNumber = '1000'"
0045: 					
0046: 
0047: 	Set rs = Server.CreateObject("ADODB.Recordset")
0048: 
0049:     	sqlString = "SELECT * FROM PropEntries "	& _	
0050: 					"WHERE EventID = " & EventID & _
0051: 					" AND TieBreaker <> '' "
0052: 
0053: 	   rs.Open sqlString, conn3, adOpenStatic, adLockReadOnly, adCmdText
0054: 
0055: 	Do Until rs.EOF 
0056: 
0057: 		FirstName = rs("FirstName").Value
0058: 		Rank = rs("Rank").Value
0059: 		CorrectEntries = rs("CorrectEntries").Value
0060: 		EmailAddress = rs("EmailAddress").Value						
0061: 		Kount = Kount + 1
0062: 
0063: Message = "Hi there " & FirstName & "," & CRLF & CRLF
0064: 
0065: If ResultsEntered <> 37 Then
0066: Message = Message & "You have " & CorrectEntries & " correct entries out of " & ResultsEntered & " results."& CRLF & CRLF
0067: Message = Message & "Your current position in the standings is: " & Rank  & CRLF & CRLF
0068: Message = Message & "Good luck in your remaining picks!" &  CRLF & CRLF
0069: Message = Message & "P.S.: You can always get up to the minute standings here: "
0070: Message = Message & "http://www.pickasquare.net/propstandingsm.asp"
0071: Else
0072: Message = Message & "You had " & CorrectEntries & " correct entries out of " & ResultsEntered & CRLF & CRLF
0073: Message = Message & "Your final position in the standings was: " & Rank  & CRLF & CRLF
0074: Message = Message & "Thank you for participating!  Hope you enjoyed it."  & CRLF & CRLF
0075: Message = Message & "Next contests are: " & CRLF
0076: Message = Message & "March Madness: http://www.folga.org/mm"  & CRLF
0077: Message = Message & "FIFA 2014 World Cup: http://www.folga.org/wc"  & CRLF & CRLF
0078: Message = Message & "Both of these are fundraisers to benefit Kody Peraita." & CRLF & CRLF
0079: Message = Message & "Registration for these contests are already open. Visit the websites for more details."
0080: End If
0081: 
0082: 	sendEmail EmailAddress, "", "", Subject, Message, "TEXT", MyEmail 
0083: 
0084:       rs.MoveNext
0085: 		Loop
0086: 
0087: '	  Response.Write("<br>" & TCount)
0088: 		rs.Close
0089: 		Set rs = Nothing	
0090: 		
0091: Response.Write(Kount & " emails sent.")
0092: 
0093: Response.Write("<br>Subject:<br> " & Subject)
0094: Response.Write("<br>Message: " & Message)
0095: 
0096: 		%>
0097: </td></tr>
0098: </table>
0099: <input type="button" value="Go Back" class="norm"
0100:         onClick="history.back()" style="float: left">   
0101: <body bgcolor="#ffffff">
0102: <br>
0103: </body>
0104: 
0105: </html>