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: 	Subject = Trim(Request.Form("Subject"))
0008: 	EntryNo = Trim(Request.Form("EntryNo"))
0009: 	FromEntryNo = Trim(Request.Form("FromEntryNo"))
0010: 	ThruEntryNo = Trim(Request.Form("ThruEntryNo"))	
0011: 	JustATest = Trim(Request.Form("JustATest"))	
0012: 	FromEmailAddress = Trim(Request.Form("FromEmailAddress"))	
0013: 	Message = Trim(Request.Form("Message"))
0014: 	RemindPick = Request.Form("RemindPick")	
0015: 	RemindBLPick = Request.Form("RemindBLPick")	
0016: 	SendDonation = Request.Form("SendDonation")
0017:     To2nd = Request.Form("To2nd")
0018:     ToSingle = Request.Form("ToSingle")
0019: 
0020: 	EMoption = Request.Form("EMoption")
0021:     Everyone = Request.Form("Everyone")
0022: 	
0023: 	
0024: LastNameGE = Trim(Request.Form("LastNameGE"))   
0025: 
0026: PlainEmails = ""
0027: 
0028: Session("LastNameGE") = LastNameGE
0029: Session("JustATest") = JustATest
0030: Session("FromEntryNo") = FromEntryNo
0031: Session("ThruEntryNo") = ThruEntryNo
0032: Session("FromEmailAddress") = FromEmailAddress
0033: 
0034: If EMoption = "Invitation" Then
0035: Response.Redirect("mminvitationemail.asp")
0036: End If
0037: 
0038:   CRLF = chr(13) & chr(10)
0039: 
0040: 
0041:     	Dim CurrPart(500,5)
0042:     
0043:   count = 0
0044:   
0045:   HaveSingle = "No"
0046:   
0047:     SendIt = "YES"
0048:     Format = "TEXT"
0049: 	Set rsm = Server.CreateObject("ADODB.Recordset")
0050:   
0051:   If EntryNo > "0" Then
0052: 	EMoption = "HaveSingle"
0053:   End If
0054:   If FromEntryNo > "0" Then
0055: 	EMoption = "HaveRange"
0056:   End If
0057: 
0058:      EmailSubject = "March Madness Contest -"
0059: 
0060:   	Select Case EMoption
0061: 
0062: 		 Case "HaveSingle"
0063: 
0064: 						
0065: 	  sqlString = "SELECT * FROM mmEntries " & _
0066: 							"WHERE ID = " & EntryNo 
0067: 		Case "HaveRange"
0068:    					
0069: 	  sqlString = "SELECT * FROM mmEntries " & _
0070: 							"WHERE ID >= " & FromEntryNo & " " & _
0071: 							"AND ID <= " & ThruEntryNo
0072: 
0073: 							
0074: 
0075:  		Case "Everyone" 
0076:  
0077:   
0078: 	    sqlString = "SELECT * FROM mmEntries " & _
0079: 				"WHERE Season = " & season & " " & _
0080:                  " AND Name >= '" & LastNameGE & "' "  & _
0081: 							"ORDER BY Name"
0082: 
0083:  		Case "RemindBLPick" 
0084:  
0085:   
0086: 	    sqlString = "SELECT * FROM mmEntries " & _
0087: 				"WHERE Season = " & season & " " & _
0088:                  " AND Name >= '" & LastNameGE & "' "  & _
0089: 							"ORDER BY Name"
0090: 
0091: 	    EmailSubject = "March Madness Contest - Reminder to make your Biggest Loser picks"
0092: 	    
0093: 	    Message = "You have not made your picks in the Biggerst Loser contest." & CRLF & CRLF
0094: 	    Message = Message & "Making picks in the Biggest Losers contest is included with your registration." & CRLF & CRLF
0095:         Message = Message & "Just go to http://www.folga.org/mm or http://www.folga.org/mm/mobile and click on Pick Biggest Losers to make your picks." & CRLF & CRLF	    
0096: 	    Message = Message & "Good Luck and Thank You for participating!"
0097: 
0098:  		Case "RemindPick" 
0099:  
0100:   
0101: 	    sqlString = "SELECT * FROM mmEntries " & _
0102: 				"WHERE Season = " & season & " " & _
0103:                  " AND Name >= '" & LastNameGE & "' "  & _
0104: 							"ORDER BY Name"
0105: 
0106:     EmailSubject = "March Madness Contest - Reminder to make your picks"
0107: 	    
0108: 	    Message = "You have not made all your picks in the Main Contest." & CRLF & CRLF
0109: 	    Message = Message & "You have until " & TourneyStart & " to make your picks." & CRLF & CRLF
0110:         Message = Message & "You can make/review your picks at http://www.folga.org/mm or http://www.folga.org/mm/mobile" & CRLF & CRLF	    
0111: 	    Message = Message & "Good Luck and Thank You for participating!"
0112: 
0113:  		Case "RemindS16Pick" 
0114:  
0115:   
0116:         sqlString = "SELECT * FROM mmEntries " & _
0117:     			"WHERE Season = " & season & " " & _
0118:                             "AND ( NumEntries > 1 or " & _
0119:                             " num2ndEntries > 0 ) " & _
0120: 							"ORDER BY Name"
0121: 
0122:     EmailSubject = "March Madness Contest - Reminder to make your Sweet 16 picks"
0123: 	    
0124: 	    Message = "You have not made all your picks in the Sweet 16 contest." & CRLF & CRLF
0125: 	    Message = Message & "You have until " & Tourney2ndStart & " to make your picks." & CRLF & CRLF
0126:         Message = Message & "You can make/review your picks at http://www.folga.org/mm or http://www.folga.org/mm/mobile" & CRLF & CRLF	    
0127: 	    Message = Message & "Good Luck and Thank You for participating!"
0128: 
0129: 					
0130: 
0131: 		Case "To2nd"
0132: 
0133:         sqlString = "SELECT * FROM mmEntries " & _
0134:     			"WHERE Season = " & season & " " & _
0135:                             "AND ( NumEntries > 1 or " & _
0136:                             " num2ndEntries > 0 ) " & _
0137: 							"ORDER BY Name"
0138: 
0139: 
0140:        Case "ToSingle"
0141: 
0142:         sqlString = "SELECT * FROM mmEntries " & _
0143:     			"WHERE Season = " & season & " " & _
0144:                             "AND NumEntries = 1 " & _
0145: 						    	"ORDER BY Name"
0146:  
0147:   
0148: 
0149:        Case "SendDonation"
0150: 
0151:          sqlString = "SELECT * FROM mmEntries " & _
0152:                             "WHERE Season = " & season & " " & _
0153:                             "AND PaidEntries < NumEntries "
0154: 
0155:      EmailSubject = "March Madness Contest - Reminder to send in your donation."
0156:      
0157:       Message = "We have not received your donation as of yet." & CRLF & CRLF	 
0158:         Message = Message & "Please go to http://folga.org/mm or http://www.folga.org/mm/mobile and click on Make your Donation." & CRLF & CRLF
0159:   Message = Message & "If your donation is in the mail, or if you already made your donation and I failed to process it, just ​reply to this email with the payment details​." & CRLF & CRLF		
0160: 	    Message = Message & "Thank you for your cooperation." & CRLF & CRLF
0161: 	    Message = Message & "Sincerely," & CRLF & CRLF		
0162: 	    Message = Message & "Joe Toledo" & CRLF & CRLF
0163: 
0164: 
0165:        Case  "SendS16Donation" 
0166: 
0167:          sqlString = "SELECT * FROM mmEntries " & _
0168:                             "WHERE Season = " & season & " " & _
0169:                             "AND Paid2ndEntries < Num2ndEntries "
0170: 
0171:     EmailSubject = "March Madness Contest - Reminder to send in your donation."
0172:      
0173:       Message = "We have not received your donation for the Sweet 16 contest as of yet." & CRLF & CRLF
0174:         Message = Message & "If your donation is not received your entry may be removed from the contest." & CRLF & CRLF	 
0175:         Message = Message & "Please go to http://folga.org/mm or http://www.folga.org/mm/mobile and click on Make your Donation." & CRLF & CRLF   
0176: 	    Message = Message & "Good Luck and Thank You for participating!" & CRLF & CRLF
0177: 	    Message = Message & "ps:  If your donation is IN THE MAIL, just reply to this email."
0178: 
0179:      Case "Sweet16Ready"
0180: 
0181: 	   EmailSubject = "March Madness Contest - Start making your picks for the Sweet 16 Contest"
0182: 
0183:   
0184: 	    sqlString = "SELECT * FROM mmEntries " & _
0185: 				"WHERE Season = " & season & " " & _
0186:                  " AND Name >= '" & LastNameGE & "' "  & _
0187: 							"ORDER BY Name"
0188: 
0189: 	    Message = "The Sweet 16 field is set!  If you submitted multiple entries into the Main Contest, you can start making your picks for the Sweet 16 Contest." & CRLF & CRLF
0190: 	    Message = Message & "You have until " & Tourney2ndStart & " to make your picks." & CRLF & CRLF
0191:         Message = Message & "You can make/review your picks at http://www.folga.org/mm or http://www.folga.org/mm/mobile" & CRLF & CRLF	   
0192: 	    Message = Message & "Good Luck and Thank You for participating!"
0193: 		
0194: 		Case "BracketsReady" 
0195:  
0196:   
0197: 	    sqlString = "SELECT * FROM mmEntries " & _
0198: 				"WHERE Season = " & season & " " & _
0199:                  " AND Name >= '" & LastNameGE & "' "  & _
0200: 							"ORDER BY Name"
0201: 
0202:     EmailSubject = "March Madness Contest - You can start making your picks"
0203: 	    
0204: 	    Message = "The brackets are set.  You can start making your picks." & CRLF & CRLF
0205: 	    Message = Message & "You have until " & TourneyStart & " to make your picks." & CRLF & CRLF
0206:         Message = Message & "You can make/review your picks at http://www.folga.org/mm or http://www.folga.org/mm/mobile" & CRLF & CRLF	    
0207: 	    Message = Message & "Good Luck and Thank You for participating!"
0208: 	
0209: 
0210:                             
0211:        End Select
0212: 
0213:    
0214:    
0215:    Response.Write("EMoption=" & EMoption & "<BR><BR>")
0216:    
0217:    Response.Write("SqlString = " & sqlString & "<br>")	
0218:  							
0219:    rsm.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0220: 	
0221: 
0222:    %>
0223: <html>
0224: 
0225: <head>
0226: <title></title>
0227: </head>
0228: 
0229: <body>
0230: 
0231: <table width="850"  border="2" cellspacing="2" cellpadding="7">
0232: <tr><td class="norm">   
0233: 
0234:  <%
0235: 
0236: 	Kount = 0
0237: 	
0238:    Do Until rsm.EOF
0239: 
0240:       EmailAddress = rsm("EmailAddress").Value
0241:       FirstName = rsm("FirstName").Value
0242:       LastName = rsm("Name").Value
0243:    	  val = rsm("NumEntries").Value
0244:       val2nd = rsm("Num2ndEntries").Value
0245:       RegNumber = rsm("RegNumber").Value	  
0246: 
0247: 
0248: 	  CurrPart(Kount,0) = EmailAddress
0249: 	  CurrPart(Kount,1) = FirstName
0250: 	  CurrPart(Kount,2) = RegNumber
0251: 	  CurrPart(Kount,3) = val
0252: 	  CurrPart(Kount,4) = val2nd
0253: 	  CurrPart(Kount,5) = LastName
0254: 	  Kount = Kount + 1
0255:  
0256:    rsm.MoveNext
0257: 	Loop
0258: 
0259:  
0260:  %>
0261: 
0262:  <% 
0263: 
0264: 	rsm.Close
0265: 	Set rsm = Nothing
0266: 
0267: 	LoopCount = 0
0268:  
0269: 	Do Until LoopCount = Kount
0270: 
0271: 	  EmailAddress = CurrPart(LoopCount,0) 
0272: 	  FirstName = CurrPart(LoopCount,1)
0273: 	  RegNumber = CurrPart(LoopCount,2)
0274: 	  val = CurrPart(LoopCount,3)
0275: 	  val2nd = CurrPart(LoopCount,4)
0276: 	  LastName = CurrPart(LoopCount,5)
0277: 	  LoopCount = LoopCount + 1
0278: 	  FullName = FirstName & " " & LastName
0279: 
0280:       bonus = val - 1
0281: 
0282: 	  val = CInt(Val)
0283:       if bonus < 0 then bonus = 0
0284:  
0285:       totval2nd = val2nd + ( bonus )
0286:    	  
0287:       If Right(EMoption,4) = "Pick" Then
0288:       
0289:          SendIt = "NO"
0290:      
0291: 		  	Select Case EMoption
0292: 
0293: 			Case "RemindPick"
0294: 
0295: 			MyContest = ""
0296: 
0297: 			myTourneyStart = TourneyStart 
0298: 
0299: 			Set rs = Server.CreateObject("ADODB.Recordset")
0300: 
0301: 			sqlString = "SELECT COUNT(ID)  as RegCount FROM mmPicks " & _
0302: 							"WHERE EmailAddress = '" & EmailAddress & "' " & _
0303: 							"AND Season = " & season & " " & _
0304: 							"AND Complete = 'Yes'"
0305: 							
0306: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0307: 
0308: 			totPicksMade = rs("RegCount").Value
0309: 			totPicksMade = CInt(totPicksMade)
0310: 
0311: 			rs.Close
0312: 			Set rs = Nothing
0313: 		 
0314:       		Set rsPicks = Server.CreateObject("ADODB.Recordset")
0315: 	        sqlString = "SELECT * FROM mmPicks " & _
0316: 							"WHERE EmailAddress = '" & EmailAddress & "' " & _
0317: 							"AND Season = " & season & " " & _
0318: 							"AND Complete = 'Yes'"
0319: 			rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0320: 	
0321: 	
0322: 
0323: '	     totPicksMade = rsPicks.RecordCount
0324: 
0325: '			Response.Write("<br>totPicksMade=" & totPicksMade & " Val=" & val)
0326: 	     
0327: 			If totPicksMade < val Then
0328: 				SendIt = "YES"
0329: 			End If
0330: 			rsPicks.Close
0331: 			set rsPicks = Nothing
0332: 
0333: 		Case "RemindS16Pick"
0334: 
0335: 			myTourneyStart = Tourney2ndStart 
0336: 
0337: 			MyContest = "Sweet 16"
0338: 
0339: 			Set rs = Server.CreateObject("ADODB.Recordset")
0340: 
0341: 			sqlString = "SELECT COUNT(ID)  as RegCount FROM mm2ndPicks " & _
0342: 							"WHERE EmailAddress = '" & EmailAddress & "' " & _
0343: 							"AND Season = " & season & " " & _
0344: 							"AND Complete = 'Yes'"
0345: 							
0346: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0347: 
0348: 			totPicks2ndMade = rs("RegCount").Value
0349: 
0350: 			totPicks2ndMade = CInt(totPicks2ndMade)
0351: 
0352: 			rs.Close
0353: 			Set rs = Nothing
0354: 
0355:      		Set rsPicks = Server.CreateObject("ADODB.Recordset")
0356: 	        sqlString = "SELECT * FROM mm2ndPicks " & _
0357: 							"WHERE EmailAddress = '" & EmailAddress & "' " & _
0358: 							"AND Season = " & season & " " & _
0359: 							"AND Complete = 'Yes'"
0360: 		    rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0361: 	
0362: 	
0363: 
0364: '	     totPicks2ndMade = rsPicks.RecordCount
0365: 	     
0366: 			If totPicks2ndMade < totval2nd Then
0367: 				SendIt = "YES"
0368: 			End If
0369: 			rsPicks.Close
0370: 			set rsPicks = Nothing
0371: 
0372: 		Case "RemindBLPick"
0373: 
0374: 
0375: 					Set rs = Server.CreateObject("ADODB.Recordset")
0376: 
0377: 		sqlString = "SELECT COUNT(ID)  as RegCount FROM mmBiggestLoser " & _
0378: 						"WHERE RegNumber = " & RegNumber & " " & _
0379: 						"AND Season = " & season
0380: 						
0381: 		rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0382: 
0383: 		totPicksMade = rs("RegCount").Value
0384: 		totPicksMade = CInt(totPicksMade)
0385: 
0386: 		rs.Close
0387: 		Set rs = Nothing
0388: 	 
0389:  
0390: 		If totPicksMade < 1 Then
0391: 			SendIt = "YES"
0392: 		End If
0393: 
0394: 
0395: 		End Select
0396: 		    
0397: 	    Format = "HTML"
0398: 
0399:      End If
0400: 
0401: 	 		If EMOption = "FirstTime" Then
0402: 
0403: 		
0404: 			Set rsPYPicks = Server.CreateObject("ADODB.Recordset")
0405: 	sqlString = "SELECT COUNT(ID) as RegCount FROM mmEntries " & _
0406: 							"WHERE FirstName = '" & FirstName & "' " & _
0407:                              "AND Name = '" & LastName & "' " & _
0408: 							"AND Season < " & season & " " 
0409: 	rsPYPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0410: 	
0411: 	
0412: 
0413: 	PYCount = rsPYPicks("RegCount").Value
0414:     rsPYPicks.Close
0415: 
0416: Response.Write("<br>FirstName=" & FirstName & " " & LastName & " Count=" & PYCount)
0417: 
0418: PYCount = CInt(PyCount)
0419: 
0420: If PYCount < 1 Then
0421: 
0422: SendIt = "YES"
0423: Else
0424: SendIt = "NO"
0425: End If
0426: End If
0427:     
0428:      
0429:      If SendIt = "YES" Then
0430: 
0431:      count = count + 1
0432: 	 
0433: 	 			 ThisEmail = FullName & " &#60;" & EmailAddress & "&#62;, "
0434: 				 
0435: 				 PlainEmails = PlainEmails & EmailAddress & ", "
0436: 				 
0437: 				 					Remainder = Count mod 99
0438: 					If Remainder = 0 Then
0439: 					Response.Write("<br><br>")
0440: 					End If
0441: 
0442:  ' Response.Write(EmailAddress & ", ")
0443:   Response.Write(ThisEmail)  
0444: 
0445: '      Response.Write("Email: " & EmailAddress & " - " & LastName & "<br>")
0446: %>
0447: 
0448: <% End If
0449: 
0450: '   objMail.From = "jt@lusogolf.org" 
0451:       EMailTo = EmailAddress
0452:       EMailBody = "Hi there,  " & CRLF & CRLF &  Message
0453: 
0454:      If JustATest <> "Yes" Then
0455:   
0456:  '       sendEmail EMailTo, "", "", EmailSubject, EmailBody, Format, FromEmailAddress
0457: 
0458:      End If
0459:   
0460: 
0461: 
0462:  '   End If
0463: 
0464: 	Loop
0465: 
0466: %>
0467: 
0468: <% 
0469: 
0470: 
0471: %>
0472: <tr><td><%= PlainEmails %></td></tr>
0473: <tr><td><input size="100" value="<%= EmailSubject %>"></input></td></tr>
0474: <tr><td class="norm">
0475: <textarea rows="15" name="message" cols="100"><%= EmailBody %></textarea></td></tr>
0476: <tr><td class="norm">Email Count:<b><%= count %></b>&nbsp;&nbsp;&nbsp;<input type="button" value="Return" class="norm" onClick="history.back(-1)"></td>
0477: </table>
0478: </body>
0479: </html>