Count Lines in Pages
Contents of Page: SendEmailTop102nd.asp
Number of Lines: 162
Last Modified: 8/22/2018 1:33:15 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 	user = Request.Cookies("user")
0007: 	yr = Request.QueryString("yr")
0008:    SendIt = Request.QueryString("Send")
0009:    SendToEmail = Request.QueryString("Email")
0010:    OnlyIncomplete = Request.QueryString("MIA")
0011:    If SendIt <> "YES" Then
0012:      Sendit = "NO"
0013:    End If
0014: 	If yr = "" Then yr = season
0015: 
0016: 
0017: 	Set rs = Server.CreateObject("ADODB.Recordset")
0018: 	sqlString = "SELECT * FROM mm2ndTop10" & _
0019: 			" WHERE Season = " & yr & " " & _
0020: 			" ORDER BY ID" 
0021: '   Response.Write(sqlString)			
0022: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0023: 	totreg = 0
0024:    totentries = 0
0025:    totmade = 0
0026: %>
0027: <html>
0028: 
0029: <head>
0030: <title>March Madness - Send Email to Top 10 in Sweet 16</title>
0031: <link href="mm.css" rel="stylesheet" type="text/css">
0032: </head>
0033: 
0034: <body bgcolor="#ffffff">
0035: <%	bgcolor = "#e8e8e8"
0036: 		Do Until rs.EOF
0037: 		PicksID = rs("PicksID").value
0038:        TotalAmt = rs("TotalAmt").Value
0039: 			Set rsPicks = Server.CreateObject("ADODB.Recordset")
0040: 			sqlString = "SELECT * FROM mm2ndPicks " & _
0041: 							"WHERE ID = " & PicksID 
0042: 			rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0043: 	
0044: 			emailaddr = rspicks("EmailAddress").value
0045: 			EntryName = rspicks("EntryName").Value
0046:  		   rsPicks.Close
0047: 			set rsPicks = Nothing
0048: 			Set rsEntries = Server.CreateObject("ADODB.Recordset")
0049: 			sqlString = "SELECT * FROM mmEntries " & _
0050: 							"WHERE EmailAddress = '" & emailaddr & "' " & _
0051: 							"AND Season = " & season & " " 
0052:          IF OnlyIncomplete = "Y" Then
0053:              sqlString = sqlString & "AND Zip = '99999'"
0054:              Response.Write(sqlString & "<br>")
0055:           End If
0056: 			rsEntries.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0057:           If rsEntries.EOF Then
0058: ' Nothing happens
0059:           Else
0060:  			Password = rsEntries("Password").Value
0061: 	       City = rsEntries("City").Value
0062:  			Address = rsEntries("Address").Value 			
0063:  			State = rsEntries("State").Value
0064:           Zip = rsEntries("Zip").Value
0065:  			FirstName = rsEntries("FirstName").Value
0066:  			Name = rsEntries("Name").Value
0067:  			FullName = FirstName & " " & Name
0068: 
0069: 			val = rsEntries("NumEntries").Value
0070: 			paid = rsEntries("PaidEntries").Value
0071: 			val2 = rsEntries("Num2ndEntries").Value
0072: 			paid2 = rsEntries("Paid2ndEntries").Value
0073: 
0074: 			If val = paid And val2 = paid2 Then
0075: 			ItIsPaid = True
0076: 			Else
0077: 			ItIsPaid = False
0078: 			End If
0079: 
0080:   			rsEntries.Close
0081: 			set rsEntries = Nothing
0082: 		
0083: 			If bgcolor = "#e8e8e8" Then
0084: 				bgcolor = "#ffffff"
0085: 			Else
0086: 				bgcolor = "#e8e8e8"
0087: 			End If
0088: 
0089: 			totreg = totreg + 1
0090: 
0091: 
0092: 	    EmailSubject = "March Madness Sweet 16 Contest - Congratulations!"
0093: 	    
0094: 	    Message = "<BR><BR>You have finished in the top 10% in the March Madness Sweet 16 contest!<br><br>"
0095: '	    Message = Message & "Your winnings are: $" & TotalAmt & "<br><br>"
0096:         Message = Message & "Please make sure that your name and address below is correct so that we can mail you your winnings."
0097:         Message = Message & "<br><br>Prizes of $50 or more will receive a VISA gift card.  All others will receive a Chevron gas card."
0098:         Message = Message & "<br><br>If the information below NOT correct, you MUST logon to http://www.folga.org/helpkody "
0099:         Message = Message & "and update your information by clicking on the <b>Edit My Profile</b> link.<br>"
0100:       Message = Message & "<br><b>Email Address:</b> " & EmailAddr & "  <b>Password:</b> " & Password
0101:       Message = Message & "<br>         <b>Name:</b> " & FullName
0102:       Message = Message & "<br>      <b>Address:</b> " & Address
0103:       Message = Message & "<br> <b>City St, Zip:</b> " & City & ", " & State & " " & Zip
0104: 
0105: 	    Message = Message & "<br><br>Thank You again for participating and choosing to make a difference."
0106: 	    
0107: 	    Format = "HTML"
0108: 
0109:       If SendToEmail <> "" Then
0110:       EMailTo = SendToEmail
0111:       Else
0112:       EMailTo = EmailAddr
0113:       End If
0114: 
0115: 	  Response.Write("<br>========================================")
0116: 	  If ItIsPaid = False Then
0117:         Response.Write(" Not Paid ")
0118:       End If
0119: 	  Response.Write("========================================<br>")
0120: 
0121:       EMailBody = "Hi there " & FirstName & ", " &  Message
0122: 
0123:       Response.Write("Email: " & EmailTo & " - " & FullName & "<br>")
0124:       Response.Write("<br>" & EMailBody & "<br><br>")
0125: 
0126: '   objMail.From = "jt@lusogolf.org" 
0127: 
0128: 
0129:      If SendIt = "YES" Then
0130: 
0131:   If ItIsPaid = True Then
0132:         sendEmail EMailTo, "", "", EmailSubject, EmailBody, Format, ""
0133:   End If
0134:   
0135: 
0136:      End If
0137:   
0138: 
0139: 	
0140: 	%>
0141: <%	   End If
0142:       rs.MoveNext
0143: 		Loop
0144: 		If bgcolor = "#e8e8e8" Then
0145: 				bgcolor = "#ffffff"
0146: 			Else
0147: 				bgcolor = "#e8e8e8"
0148: 			End If
0149: 
0150: 		rs.Close
0151: 		Set rs = Nothing	
0152: 		
0153: 
0154:      If SendIt = "YES" Then		
0155: 		%>
0156: 
0157: =======>  Emails Sent! <===========
0158: <% Else %>
0159: <a href="SendEmailTop102nd.asp?Send=YES"><b>Send emails to these people</b>.</a><br><br>
0160: <% End If %>
0161: </body>
0162: </html>