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 & "If your donation is not received your entry may be removed from the contest." & CRLF & CRLF	 
0159:         Message = Message & "Please go to http://folga.org/mm or http://www.folga.org/mm/mobile and click on Make your Donation." & CRLF & CRLF   
0160: 	    Message = Message & "Good Luck and Thank You for participating!" & CRLF & CRLF
0161: 	    Message = Message & "ps:  If your donation is IN THE MAIL, just reply to this email."
0162: 
0163: 
0164:        Case  "SendS16Donation" 
0165: 
0166:          sqlString = "SELECT * FROM mmEntries " & _
0167:                             "WHERE Season = " & season & " " & _
0168:                             "AND Paid2ndEntries < Num2ndEntries "
0169: 
0170:     EmailSubject = "March Madness Contest - Reminder to send in your donation."
0171:      
0172:       Message = "We have not received your donation for the Sweet 16 contest as of yet." & CRLF & CRLF
0173:         Message = Message & "If your donation is not received your entry may be removed from the contest." & CRLF & CRLF	 
0174:         Message = Message & "Please go to http://folga.org/mm or http://www.folga.org/mm/mobile and click on Make your Donation." & CRLF & CRLF   
0175: 	    Message = Message & "Good Luck and Thank You for participating!" & CRLF & CRLF
0176: 	    Message = Message & "ps:  If your donation is IN THE MAIL, just reply to this email."
0177: 
0178:      Case "Sweet16Ready"
0179: 
0180: 	   EmailSubject = "March Madness Contest - Start making your picks for the Sweet 16 Contest"
0181: 
0182:   
0183: 	    sqlString = "SELECT * FROM mmEntries " & _
0184: 				"WHERE Season = " & season & " " & _
0185:                  " AND Name >= '" & LastNameGE & "' "  & _
0186: 							"ORDER BY Name"
0187: 
0188: 	    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
0189: 	    Message = Message & "You have until " & Tourney2ndStart & " to make your picks." & CRLF & CRLF
0190:         Message = Message & "You can make/review your picks at http://www.folga.org/mm or http://www.folga.org/mm/mobile" & CRLF & CRLF	   
0191: 	    Message = Message & "Good Luck and Thank You for participating!"
0192: 		
0193: 		Case "BracketsReady" 
0194:  
0195:   
0196: 	    sqlString = "SELECT * FROM mmEntries " & _
0197: 				"WHERE Season = " & season & " " & _
0198:                  " AND Name >= '" & LastNameGE & "' "  & _
0199: 							"ORDER BY Name"
0200: 
0201:     EmailSubject = "March Madness Contest - You can start making your picks"
0202: 	    
0203: 	    Message = "The brackets are set.  You can start making your picks." & CRLF & CRLF
0204: 	    Message = Message & "You have until " & TourneyStart & " to make your picks." & CRLF & CRLF
0205:         Message = Message & "You can make/review your picks at http://www.folga.org/mm or http://www.folga.org/mm/mobile" & CRLF & CRLF	    
0206: 	    Message = Message & "Good Luck and Thank You for participating!"
0207: 	
0208: 
0209:                             
0210:        End Select
0211: 
0212:    
0213:    
0214:    Response.Write("EMoption=" & EMoption & "<BR><BR>")
0215:    
0216:    Response.Write("SqlString = " & sqlString & "<br>")	
0217:  							
0218:    rsm.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0219: 	
0220: 
0221:    %>
0222: <html>
0223: 
0224: <head>
0225: <title></title>
0226: </head>
0227: 
0228: <body>
0229: 
0230: <table width="850"  border="2" cellspacing="2" cellpadding="7">
0231: <tr><td class="norm">   
0232: 
0233:  <%
0234: 
0235: 	Kount = 0
0236: 	
0237:    Do Until rsm.EOF
0238: 
0239:       EmailAddress = rsm("EmailAddress").Value
0240:       FirstName = rsm("FirstName").Value
0241:       LastName = rsm("Name").Value
0242:    	  val = rsm("NumEntries").Value
0243:       val2nd = rsm("Num2ndEntries").Value
0244:       RegNumber = rsm("RegNumber").Value	  
0245: 
0246: 
0247: 	  CurrPart(Kount,0) = EmailAddress
0248: 	  CurrPart(Kount,1) = FirstName
0249: 	  CurrPart(Kount,2) = RegNumber
0250: 	  CurrPart(Kount,3) = val
0251: 	  CurrPart(Kount,4) = val2nd
0252: 	  CurrPart(Kount,5) = LastName
0253: 	  Kount = Kount + 1
0254:  
0255:    rsm.MoveNext
0256: 	Loop
0257: 
0258:  
0259:  %>
0260: 
0261:  <% 
0262: 
0263: 	rsm.Close
0264: 	Set rsm = Nothing
0265: 
0266: 	LoopCount = 0
0267:  
0268: 	Do Until LoopCount = Kount
0269: 
0270: 	  EmailAddress = CurrPart(LoopCount,0) 
0271: 	  FirstName = CurrPart(LoopCount,1)
0272: 	  RegNumber = CurrPart(LoopCount,2)
0273: 	  val = CurrPart(LoopCount,3)
0274: 	  val2nd = CurrPart(LoopCount,4)
0275: 	  LastName = CurrPart(LoopCount,5)
0276: 	  LoopCount = LoopCount + 1
0277: 	  FullName = FirstName & " " & LastName
0278: 
0279:       bonus = val - 1
0280: 
0281: 	  val = CInt(Val)
0282:       if bonus < 0 then bonus = 0
0283:  
0284:       totval2nd = val2nd + ( bonus )
0285:    	  
0286:       If Right(EMoption,4) = "Pick" Then
0287:       
0288:          SendIt = "NO"
0289:      
0290: 		  	Select Case EMoption
0291: 
0292: 			Case "RemindPick"
0293: 
0294: 			MyContest = ""
0295: 
0296: 			myTourneyStart = TourneyStart 
0297: 
0298: 			Set rs = Server.CreateObject("ADODB.Recordset")
0299: 
0300: 			sqlString = "SELECT COUNT(ID)  as RegCount FROM mmPicks " & _
0301: 							"WHERE EmailAddress = '" & EmailAddress & "' " & _
0302: 							"AND Season = " & season & " " & _
0303: 							"AND Complete = 'Yes'"
0304: 							
0305: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0306: 
0307: 			totPicksMade = rs("RegCount").Value
0308: 			totPicksMade = CInt(totPicksMade)
0309: 
0310: 			rs.Close
0311: 			Set rs = Nothing
0312: 		 
0313:       		Set rsPicks = Server.CreateObject("ADODB.Recordset")
0314: 	        sqlString = "SELECT * FROM mmPicks " & _
0315: 							"WHERE EmailAddress = '" & EmailAddress & "' " & _
0316: 							"AND Season = " & season & " " & _
0317: 							"AND Complete = 'Yes'"
0318: 			rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0319: 	
0320: 	
0321: 
0322: '	     totPicksMade = rsPicks.RecordCount
0323: 
0324: '			Response.Write("<br>totPicksMade=" & totPicksMade & " Val=" & val)
0325: 	     
0326: 			If totPicksMade < val Then
0327: 				SendIt = "YES"
0328: 			End If
0329: 			rsPicks.Close
0330: 			set rsPicks = Nothing
0331: 
0332: 		Case "RemindS16Pick"
0333: 
0334: 			myTourneyStart = Tourney2ndStart 
0335: 
0336: 			MyContest = "Sweet 16"
0337: 
0338: 			Set rs = Server.CreateObject("ADODB.Recordset")
0339: 
0340: 			sqlString = "SELECT COUNT(ID)  as RegCount FROM mm2ndPicks " & _
0341: 							"WHERE EmailAddress = '" & EmailAddress & "' " & _
0342: 							"AND Season = " & season & " " & _
0343: 							"AND Complete = 'Yes'"
0344: 							
0345: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0346: 
0347: 			totPicks2ndMade = rs("RegCount").Value
0348: 
0349: 			totPicks2ndMade = CInt(totPicks2ndMade)
0350: 
0351: 			rs.Close
0352: 			Set rs = Nothing
0353: 
0354:      		Set rsPicks = Server.CreateObject("ADODB.Recordset")
0355: 	        sqlString = "SELECT * FROM mm2ndPicks " & _
0356: 							"WHERE EmailAddress = '" & EmailAddress & "' " & _
0357: 							"AND Season = " & season & " " & _
0358: 							"AND Complete = 'Yes'"
0359: 		    rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0360: 	
0361: 	
0362: 
0363: '	     totPicks2ndMade = rsPicks.RecordCount
0364: 	     
0365: 			If totPicks2ndMade < totval2nd Then
0366: 				SendIt = "YES"
0367: 			End If
0368: 			rsPicks.Close
0369: 			set rsPicks = Nothing
0370: 
0371: 		Case "RemindBLPick"
0372: 
0373: 
0374: 					Set rs = Server.CreateObject("ADODB.Recordset")
0375: 
0376: 		sqlString = "SELECT COUNT(ID)  as RegCount FROM mmBiggestLoser " & _
0377: 						"WHERE RegNumber = " & RegNumber & " " & _
0378: 						"AND Season = " & season
0379: 						
0380: 		rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0381: 
0382: 		totPicksMade = rs("RegCount").Value
0383: 		totPicksMade = CInt(totPicksMade)
0384: 
0385: 		rs.Close
0386: 		Set rs = Nothing
0387: 	 
0388:  
0389: 		If totPicksMade < 1 Then
0390: 			SendIt = "YES"
0391: 		End If
0392: 
0393: 
0394: 		End Select
0395: 		    
0396: 	    Format = "HTML"
0397: 
0398:      End If
0399: 
0400: 	 		If EMOption = "FirstTime" Then
0401: 
0402: 		
0403: 			Set rsPYPicks = Server.CreateObject("ADODB.Recordset")
0404: 	sqlString = "SELECT COUNT(ID) as RegCount FROM mmEntries " & _
0405: 							"WHERE FirstName = '" & FirstName & "' " & _
0406:                              "AND Name = '" & LastName & "' " & _
0407: 							"AND Season < " & season & " " 
0408: 	rsPYPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0409: 	
0410: 	
0411: 
0412: 	PYCount = rsPYPicks("RegCount").Value
0413:     rsPYPicks.Close
0414: 
0415: Response.Write("<br>FirstName=" & FirstName & " " & LastName & " Count=" & PYCount)
0416: 
0417: PYCount = CInt(PyCount)
0418: 
0419: If PYCount < 1 Then
0420: 
0421: SendIt = "YES"
0422: Else
0423: SendIt = "NO"
0424: End If
0425: End If
0426:     
0427:      
0428:      If SendIt = "YES" Then
0429: 
0430:      count = count + 1
0431: 	 
0432: 	 			 ThisEmail = FullName & " &#60;" & EmailAddress & "&#62;, "
0433: 				 
0434: 				 PlainEmails = PlainEmails & EmailAddress & ", "
0435: 				 
0436: 				 					Remainder = Count mod 99
0437: 					If Remainder = 0 Then
0438: 					Response.Write("<br><br>")
0439: 					End If
0440: 
0441:  ' Response.Write(EmailAddress & ", ")
0442:   Response.Write(ThisEmail)  
0443: 
0444: '      Response.Write("Email: " & EmailAddress & " - " & LastName & "<br>")
0445: %>
0446: 
0447: <% End If
0448: 
0449: '   objMail.From = "jt@lusogolf.org" 
0450:       EMailTo = EmailAddress
0451:       EMailBody = "Hi there,  " & CRLF & CRLF &  Message
0452: 
0453:      If JustATest <> "Yes" Then
0454:   
0455:  '       sendEmail EMailTo, "", "", EmailSubject, EmailBody, Format, FromEmailAddress
0456: 
0457:      End If
0458:   
0459: 
0460: 
0461:  '   End If
0462: 
0463: 	Loop
0464: 
0465: %>
0466: 
0467: <% 
0468: 
0469: 
0470: %>
0471: <tr><td><%= PlainEmails %></td></tr>
0472: <tr><td><input size="100" value="<%= EmailSubject %>"></input></td></tr>
0473: <tr><td class="norm">
0474: <textarea rows="15" name="message" cols="100"><%= EmailBody %></textarea></td></tr>
0475: <tr><td class="norm">Email Count:<b><%= count %></b>&nbsp;&nbsp;&nbsp;<input type="button" value="Return" class="norm" onClick="history.back(-1)"></td>
0476: </table>
0477: </body>
0478: </html>