Count Lines in Pages
Contents of Page: SendEmailTop10.asp
Number of Lines: 229
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: 		Set rsp = Server.CreateObject("ADODB.Recordset")
0017: 	sqlString = "SELECT * FROM mmPrizes " & _
0018: 			"WHERE Season = " & season
0019: 	rsp.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0020: 
0021: 
0022: 
0023: 	Set rs = Server.CreateObject("ADODB.Recordset")
0024: 	sqlString = "SELECT * FROM mmTop10" & _
0025: 			" WHERE Season = " & yr & " " & _
0026: 			" ORDER BY ID" 
0027: '   Response.Write(sqlString)			
0028: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0029: 	totreg = 0
0030:    totentries = 0
0031:    totmade = 0
0032: %>
0033: <html>
0034: 
0035: <head>
0036: <title>March Madness - Send Email to Top 10</title>
0037: <link href="mm.css" rel="stylesheet" type="text/css">
0038: </head>
0039: 
0040: <body bgcolor="#ffffff">
0041: <%	bgcolor = "#e8e8e8"
0042: 		Do Until rs.EOF
0043: 		PicksID = rs("PicksID").value
0044: 		RegNumber = rs("RegNumber").value
0045:        TotalAmt = rs("TotalAmt").Value
0046:        Rank = rs("Rank").Value
0047:        Contest = rs("Contest").Value
0048: 			Set rsEntries = Server.CreateObject("ADODB.Recordset")
0049: 			sqlString = "SELECT * FROM mmEntries " & _
0050: 							"WHERE RegNumber = '" & RegNumber & "' " & _
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:  			EmailAddress = rsEntries("EmailAddress").Value 			
0064:  			State = rsEntries("State").Value
0065:           Zip = rsEntries("Zip").Value
0066:  			FirstName = rsEntries("FirstName").Value
0067:  			Name = rsEntries("Name").Value
0068:  			FullName = FirstName & " " & Name
0069: 
0070: 			val = rsEntries("NumEntries").Value
0071: 			paid = rsEntries("PaidEntries").Value
0072: 			val2 = rsEntries("Num2ndEntries").Value
0073: 			paid2 = rsEntries("Paid2ndEntries").Value
0074: 
0075: 			If val = paid And val2 = paid2 Then
0076: 			ItIsPaid = True
0077: 			Else
0078: 			ItIsPaid = False
0079: 			End If
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: If Contest = "MC" Then
0092: 
0093:  TotalAmount = rsp("MTop10").Value
0094: 
0095:  ContestName = "Main Contest"
0096:   If Rank > 5 Then
0097:  ContestPrize = "top 10%"
0098:  Else
0099:  ContestPrize = "top 5"
0100:  End If
0101:  
0102:  	Select Case Rank
0103: 			Case 1
0104: 				TotalAmount = rsp("M1").Value
0105: 			Case 2
0106: 				TotalAmount = rsp("M2").Value
0107: 			Case 3
0108: 				TotalAmount = rsp("M3").Value
0109: 			Case 4
0110: 				TotalAmount = rsp("M4").Value
0111: 			Case 5
0112: 				TotalAmount = rsp("M5").Value
0113: 		End Select
0114: 
0115: ElseIf Contest = "S16" Then
0116:  TotalAmount = rsp("STop10").Value
0117: 
0118:  
0119:  ContestName = "Sweet 16 Contest"
0120:  If Rank > 5 Then
0121:  ContestPrize = "top 10%"
0122:  Else
0123:  ContestPrize = "top 5"
0124:  End If
0125:  
0126:  	Select Case Rank
0127: 			Case 1
0128: 				TotalAmount = rsp("S1").Value
0129: 			Case 2
0130: 				TotalAmount = rsp("S2").Value
0131: 			Case 3
0132: 				TotalAmount = rsp("S3").Value
0133: 			Case 4
0134: 				TotalAmount = rsp("S4").Value
0135: 			Case 5
0136: 				TotalAmount = rsp("S5").Value
0137: 		End Select
0138: Else
0139: 
0140: 
0141:  ContestName = "Biggest Loser Contest"
0142:  ContestPrize = "top 5"
0143: 
0144:  	Select Case Rank
0145: 			Case 1
0146: 				TotalAmount = rsp("B1").Value
0147: 			Case 2
0148: 				TotalAmount = rsp("B2").Value
0149: 			Case 3
0150: 				TotalAmount = rsp("B3").Value
0151: 			Case 4
0152: 				TotalAmount = rsp("B4").Value
0153: 			Case 5
0154: 				TotalAmount = rsp("B5").Value
0155: 		End Select
0156: 
0157: End If
0158: 
0159: 
0160: 	    EmailSubject = "March Madness Contest - Congratulations!"
0161: 	    
0162: 	    Message = "<BR><BR>You have finished in the " & ContestPrize & " in the " & ContestName & " and won $" & TotalAmount & "!<br><br>"
0163: '	    Message = Message & "Your winnings are: $" & TotalAmt & "<br><br>"
0164:         Message = Message & "Please make sure that your name and address below is correct so that we can mail you your winnings."
0165:  '       Message = Message & "<br><br>Prizes of $50 or more will receive a VISA gift card.  All others will receive a Chevron gas card."
0166:         Message = Message & "<br><br>If the information below NOT correct, you MUST logon to http://www.folga.org/helpkody "
0167:         Message = Message & "and update your information by clicking on the <b>Edit My Profile</b> link.<br>"
0168:       Message = Message & "<br><b>Email Address:</b> " & EmailAddress & "  <b>Password:</b> " & Password
0169:       Message = Message & "<br>         <b>Name:</b> " & FullName
0170:       Message = Message & "<br>      <b>Address:</b> " & Address
0171:       Message = Message & "<br> <b>City St, Zip:</b> " & City & ", " & State & " " & Zip
0172: 
0173: 	    Message = Message & "<br><br>Thank You again for participating and choosing to make a difference."
0174: 	    
0175: 	    Format = "HTML"
0176: 
0177: 
0178:    If SendToEmail <> "" Then
0179:       EMailTo = SendToEmail
0180:       Else
0181:       EMailTo = EmailAddress
0182:       End If
0183: 
0184: 	  Response.Write("<br>========================================")
0185: 	  If ItIsPaid = False Then
0186:         Response.Write(" Not Paid ")
0187:       End If
0188: 	  Response.Write("========================================<br>")
0189: 	  
0190: 	  EMailBody = "Hi there " & FirstName & ", " &  Message
0191: 
0192:       Response.Write("Email: " & EmailTo & " - " & FullName & "<br>")
0193:       Response.Write("<br>" & EMailBody & "<br><br>")
0194: 
0195: '   objMail.From = "jt@lusogolf.org" 
0196: 
0197: 
0198:      If SendIt = "YES" Then
0199:   
0200:   If ItIsPaid = True Then
0201:   '      sendEmail EMailTo, "", "", EmailSubject, EmailBody, Format, ""
0202:   End If
0203: 
0204:      End If
0205:   
0206: 
0207: 	
0208: 	%>
0209: <%	   End If
0210:       rs.MoveNext
0211: 		Loop
0212: 		If bgcolor = "#e8e8e8" Then
0213: 				bgcolor = "#ffffff"
0214: 			Else
0215: 				bgcolor = "#e8e8e8"
0216: 			End If
0217: 
0218: 		rs.Close
0219: 		Set rs = Nothing	
0220: 
0221:      If SendIt = "YES" Then		
0222: 		%>
0223: 
0224: =======>  Emails Sent! <===========
0225: <% Else %>
0226: <a href="SendEmailTop10.asp?Send=YES"><b>Send emails to these people</b>.</a><br><br>
0227: <% End If %>
0228: </body>
0229: </html>