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: 	Message = Trim(Request.Form("Message"))
0013: 	RemindPick = Request.Form("RemindPick")	
0014: 	SendDonation = Request.Form("SendDonation")
0015:     To2nd = Request.Form("To2nd")
0016:     ToSingle = Request.Form("ToSingle")
0017:     Everyone = Request.Form("Everyone")
0018:     
0019:     EMailSubject = Subject
0020:     
0021:   count = 0
0022:   
0023:   HaveSingle = "No"
0024:   
0025:     SendIt = "YES"
0026:     Format = "TEXT"
0027: 	Set rsm = Server.CreateObject("ADODB.Recordset")
0028:   
0029:   If EntryNo > "0" Then
0030:   
0031:        HaveSingle = "YES"							
0032: 	  sqlString = "SELECT * FROM mmEntries " & _
0033: 							"WHERE ID = " & EntryNo 
0034: 
0035: 							
0036:  End If
0037:    If FromEntryNo > "0" Then
0038:      If SendDonation <> "Y" Then
0039:        HaveSingle = "YES"		
0040:      End If       					
0041: 	  sqlString = "SELECT * FROM mmEntries " & _
0042: 							"WHERE ID >= " & FromEntryNo & " " & _
0043: 							"AND ID <= " & ThruEntryNo
0044: 
0045: 							
0046:    End If
0047:  
0048:   If HaveSingle <> "YES" Then
0049:   
0050:      If Everyone = "Y" Then
0051:   
0052: 	    sqlString = "SELECT * FROM mmEntries " & _
0053: 				"WHERE Season = " & season & " " & _
0054: 							"ORDER BY Name"
0055: 
0056:      End If							
0057: 
0058:      If To2nd = "Y" Then
0059: 
0060:         sqlString = "SELECT * FROM mmEntries " & _
0061:     			"WHERE Season = " & season & " " & _
0062:                             "AND ( NumEntries > 1 or " & _
0063:                             " num2ndEntries > 0 ) " & _
0064: 							"ORDER BY Name"
0065:       End If
0066: 
0067:      If ToSingle = "Y" Then
0068: 
0069:         sqlString = "SELECT * FROM mmEntries " & _
0070:     			"WHERE Season = " & season & " " & _
0071:                             "AND NumEntries = 1 " & _
0072: 						    	"ORDER BY Name"
0073:       End If
0074:   
0075: 
0076:   
0077:       If SendDonation = "Y" Then
0078: 
0079:   If To2nd <> "Y" Then
0080: 
0081:          sqlString = "SELECT * FROM mmEntries " & _
0082:                             "WHERE Season = " & season & " " & _
0083:                             "AND PaidEntries < NumEntries "
0084:   
0085:   Else
0086: 
0087:          sqlString = "SELECT * FROM mmEntries " & _
0088:                             "WHERE Season = " & season & " " & _
0089:                             "AND Paid2ndEntries < Num2ndEntries "
0090:   End If
0091:                             
0092:          If FromEntryNo > "0" Then                            
0093:              sqlString =  sqlString & "AND ID >= " & FromEntryNo & " AND ID <= " & ThruEntryNo & " "
0094:          End If
0095:                  
0096:                             
0097: 	        sqlString =  sqlString & "ORDER BY Name"
0098:       End If
0099:   
0100:       If RemindPick = "Y" Then
0101:    
0102:    	      sqlString = "SELECT * FROM mmEntries " & _
0103: 				"WHERE Season = " & season & " " & _
0104: 							"ORDER BY Name"
0105:       End If
0106:    
0107:    End If
0108:    
0109:    
0110:    Response.Write("JustATest=" & JustATest & "<BR><BR>")
0111:    
0112:    Response.Write("SqlString = " & sqlString & "<br>")	
0113:  							
0114:    rsm.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0115: 	
0116: 
0117: 
0118: 	
0119:    Do Until rsm.EOF
0120:  
0121:  
0122: 
0123:       EmailAddress = rsm("EmailAddress").Value
0124:       FirstName = rsm("FirstName").Value
0125:       LastName = rsm("Name").Value
0126:    	  val = rsm("NumEntries").Value
0127:       bonus = val - 1
0128:       if bonus < 0 then bonus = 0
0129:       val2nd = rsm("Num2ndEntries").Value	  
0130:       val2nd = val2nd + ( bonus )
0131:    	  
0132:       If RemindPick = "Y" Then
0133:       
0134:          SendIt = "NO"
0135:      
0136:   If To2nd <> "Y" Then
0137: 
0138: MyContest = ""
0139: 
0140: myTourneyStart = TourneyStart 
0141: 		 
0142:       			Set rsPicks = Server.CreateObject("ADODB.Recordset")
0143: 	           sqlString = "SELECT * FROM mmPicks " & _
0144: 							"WHERE EmailAddress = '" & EmailAddress & "' " & _
0145: 							"AND Season = " & season & " " & _
0146: 							"AND Complete = 'Yes'"
0147: 	     rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0148: 	
0149: 	
0150: 
0151: 	     totPicksMade = rsPicks.RecordCount
0152: 	     
0153: 	     If totPicksMade < val Then
0154: 	       SendIt = "YES"
0155: 	     End If
0156:         rsPicks.Close
0157: 	    set rsPicks = Nothing
0158: 
0159:   Else
0160: 
0161: myTourneyStart = Tourney2ndStart 
0162: 
0163: MyContest = "Sweet 16"
0164: 
0165:      			Set rsPicks = Server.CreateObject("ADODB.Recordset")
0166: 	           sqlString = "SELECT * FROM mm2ndPicks " & _
0167: 							"WHERE EmailAddress = '" & EmailAddress & "' " & _
0168: 							"AND Season = " & season & " " & _
0169: 							"AND Complete = 'Yes'"
0170: 	     rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0171: 	
0172: 	
0173: 
0174: 	     totPicksMade = rsPicks.RecordCount
0175: 	     
0176: 	     If totPicksMade < val2nd Then
0177: 	       SendIt = "YES"
0178: 	     End If
0179:         rsPicks.Close
0180: 	    set rsPicks = Nothing
0181: 
0182: 
0183:   End If
0184: 	    EmailSubject = "March Madness " & MyContest & " Contest - Reminder to make your picks"
0185: 	    
0186: 	    Message = "<BR><BR>You have not made all your picks in the " & MyContest & " contest.<br><br>"
0187: 	    Message = Message & "You have until " & myTourneyStart & " to make your picks.<br><br>"
0188:         Message = Message & "You can make/review your picks at http://www.folga.org/ncaa<br><br>"	    
0189: 	    Message = Message & "Good Luck and Thank You for participating!"
0190: 	    
0191: 	    Format = "HTML"
0192: 
0193:      End If
0194:      
0195:      If SendDonation = "Y" Then
0196:      
0197:      EmailSubject = "March Madness Contest - Reminder to send in your donation."
0198:      
0199:       Message = "<BR><BR>We have not received your donation as of yet.<br><br>"
0200:         Message = Message & "If your donation is not received your entry may be removed from the contest.<br><br>"	 
0201:         Message = Message & "Use this link http://www.folga.org/ncaa/makedonation.asp to make your donation.<br><br>"   
0202: 	    Message = Message & "Good Luck and Thank You for participating!<br><br>"
0203: 	    Message = Message & "ps:  If your donation is IN THE MAIL, just reply to this email."
0204: 	    
0205: 	    Format = "HTML"
0206: 
0207:      
0208:      End If
0209:      
0210:           If Everyone = "Y" Then
0211:   
0212: 
0213:             If Message = "" Then
0214:                Sendit = "No"
0215:             End If
0216: 
0217:          End If							
0218: 
0219:      If To2nd = "Y" Then
0220: 
0221:         If Message = "" Then
0222:           Sendit = "No"
0223:         End If
0224:      End If
0225:      
0226:      If SendIt = "YES" Then
0227: 
0228:       Response.Write("Email: " & EmailAddress & " - " & LastName & "<br>")
0229: 
0230: 
0231: '   objMail.From = "jt@lusogolf.org" 
0232:       EMailTo = EmailAddress
0233:       EMailBody = "Hi there " & FirstName & ", " &  Message
0234: 
0235:      If JustATest <> "Yes" Then
0236:   
0237:         sendEmail EMailTo, "", "", EmailSubject, EmailBody, Format, ""
0238: 
0239:      End If
0240:   
0241:      count = count + 1
0242: 
0243:     End If
0244: 
0245:     rsm.MoveNext
0246: 	 Loop
0247: 
0248: 
0249: 	rsm.Close
0250: 	Set rsm = Nothing
0251: 
0252:    Response.Write("Email Sent to " & count & " participants.<br><br>")
0253: 
0254:          Response.Write("Subject: " & EmailSubject & "<br>")	
0255:          Response.Write("<br>Body   :<br><br> " & EmailBody & "<br>")	
0256: %>
0257: <html>
0258: 
0259: <head>
0260: <title></title>
0261: </head>
0262: 
0263: <body>
0264: </body>
0265: </html>