<%
' Test script for ASP
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Freeware from Seiretto.com
' available at http://asp.thedemosite.co.uk
'mail_to = ""
' DON'T forget to change the mail_to email address below!!!
'    and thats all you need to change.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'----------------------------------------
' 
'----------------------------------------
Dim error
Dim ok, mail_to, emsg, html_end, fline, status, txt, txt2
Dim sfilename0, sfilename1, sfilename2, sfilename3, sfilename4, sfilename5, sfilename6
Dim limit, knt, xstart, body, cap
Dim html, html2, html3, html4, html5, html6
Dim member_info
Dim myMail
Dim xtitle, xfrom, xto, xfilename, xtxt, xsubject,xrecipname, xrecipemail, xattachment
Dim qnt
'----------------------------------------
' 
'----------------------------------------
limit = 10
xstart = 1
mail_to = "[email protected]"
fline = vbNewLine 
txt = ""
txt2 = ""
knt = 0
intTurn = 0
ok = 0
body = ""
cap = ""
html = ""
error=0
qnt=0
'----------------------------------------
' Load the html file
'----------------------------------------
sfilename0 = Server.MapPath("asbc_mensministry.txt")
set fso0 = Server.CreateObject("Scripting.FileSystemObject") 

if fso0.fileExists(sfilename0) then
	set myFile0 = fso0.OpenTextFile(sfilename0,1)
	
	body = ""
	qnt = 0

	Do While not myFile0.AtEndOfStream
		'txt = myFile0.ReadLine & vbNewLine 
		'body = body & txt
		qnt = qnt +1
		member_info = Split(myFile0.ReadLine, "~")
		response.write(qnt & "---->" & member_info(0) & "-->" & member_info(1) & "-->" & member_info(2) & "-->" & "<br>")

		call ad_type(member_info(0))

	loop 
	'myFile0.Close 
	'set myFile0 = nothing

	Response.Write "<p> Email loaded</p>"
	error = 0
else

	Response.Write "<p> Email file does not exist.</p>"
	error = 1
end if

set fso0 = nothing
myFile0.Close 
set myFile0 = nothing


'----------------------------------------
' 
'----------------------------------------
sub load_html1(xhtml)

'response.write "Filename----------------:"  & xhtml

sfilename1 = Server.MapPath(xhtml)
set fso1 = Server.CreateObject("Scripting.FileSystemObject") 

if fso1.fileExists(sfilename1) then
	set myFile1 = fso1.OpenTextFile(sfilename1,1)
	
	html1 = ""

	Do While not myFile1.AtEndOfStream
		 html1 = html1 & myFile1.ReadLine & vbNewLine 
	loop 
	
'	Response.Write "<p> The contactus2.html file was loaded</p>"
	error = 0
else

'	Response.Write "<p> The [contactus2.html file does not exist.</p>"
	error = 1
end if

set fso1 = nothing
myFile1.Close 
set myFile1 = nothing

call send1()
'Response.Write html

end sub



'----------------------------------------
' 
'----------------------------------------
sub load_html2(xhtml2)

'response.write "Filename----------------:"  & xhtml2

sfilename2 = Server.MapPath(xhtml2)
set fso2 = Server.CreateObject("Scripting.FileSystemObject") 

if fso2.fileExists(sfilename2) then
	set myFile2 = fso2.OpenTextFile(sfilename2,1)
	
	html2 = ""

	Do While not myFile2.AtEndOfStream
		 html2 = html2 & myFile2.ReadLine & vbNewLine 
	loop 
	
'	Response.Write "<p> The contactus2.html file was loaded</p>"
	error = 0
else

'	Response.Write "<p> The [contactus2.html file does not exist.</p>"
	error = 1
end if

set fso2 = nothing
myFile2.Close 
set myFile2 = nothing

call send2()
'Response.Write html

end sub



'----------------------------------------
' 
'----------------------------------------
sub load_html3(xhtml3)

'response.write "Filename----------------:"  & xhtml3

sfilename3 = Server.MapPath(xhtml3)
set fso3 = Server.CreateObject("Scripting.FileSystemObject") 

if fso3.fileExists(sfilename3) then
	set myFile3 = fso3.OpenTextFile(sfilename3,1)
	
	html3 = ""

	Do While not myFile3.AtEndOfStream
		 html3 = html3 & myFile3.ReadLine & vbNewLine 
	loop 
	
'	Response.Write "<p> The contactus2.html file was loaded</p>"
	error = 0
else

'	Response.Write "<p> The [contactus2.html file does not exist.</p>"
	error = 1
end if

set fso3 = nothing
myFile3.Close 
set myFile3 = nothing

call send3()
'Response.Write html

end sub

'----------------------------------------
' 
'----------------------------------------
sub load_html4(xhtml4)

'response.write "Filename----------------:"  & xhtml4

sfilename4 = Server.MapPath(xhtml4)
set fso4 = Server.CreateObject("Scripting.FileSystemObject") 

if fso4.fileExists(sfilename4) then
	set myFile4 = fso4.OpenTextFile(sfilename4,1)
	
	html4 = ""

	Do While not myFile4.AtEndOfStream
		 html4 = html4 & myFile4.ReadLine & vbNewLine 
	loop 
	
'	Response.Write "<p> The contactus4.html file was loaded</p>"
	error = 0
else

'	Response.Write "<p> The [contactus4.html file does not exist.</p>"
	error = 1
end if

set fso4 = nothing
myFile4.Close 
set myFile4 = nothing

call send4()
'Response.Write html

end sub


'----------------------------------------
' 
'----------------------------------------
sub load_html5(xhtml5)

'response.write "Filename----------------:"  & xhtml5

sfilename5 = Server.MapPath(xhtml5)
set fso5 = Server.CreateObject("Scripting.FileSystemObject") 

if fso5.fileExists(sfilename5) then
	set myFile5 = fso5.OpenTextFile(sfilename5,1)
	
	html5 = ""

	Do While not myFile5.AtEndOfStream
		 html5 = html5 & myFile5.ReadLine & vbNewLine 
	loop 
	
'	Response.Write "<p> The contactus4.html file was loaded</p>"
	error = 0
else

'	Response.Write "<p> The [contactus4.html file does not exist.</p>"
	error = 1
end if

set fso5 = nothing
myFile5.Close 
set myFile5 = nothing

call send5()
'Response.Write html

end sub


'----------------------------------------
' 
'----------------------------------------
sub load_html6(xhtml6)

'response.write "Filename----------------:"  & xhtml6

sfilename6 = Server.MapPath(xhtml6)
set fso6 = Server.CreateObject("Scripting.FileSystemObject") 

if fso6.fileExists(sfilename6) then
	set myFile6 = fso6.OpenTextFile(sfilename6,1)
	
	html6 = ""

	Do While not myFile6.AtEndOfStream
		 html6 = html6 & myFile6.ReadLine & vbNewLine 
	loop 
	
'	Response.Write "<p> The contactus4.html file was loaded</p>"
	error = 0
else

'	Response.Write "<p> The [contactus4.html file does not exist.</p>"
	error = 1
end if

set fso6 = nothing
myFile6.Close 
set myFile6 = nothing

call send6()
'Response.Write html

end sub

'----------------------------------------
' 
'----------------------------------------
sub ad_type(xtype)

Select Case xtype


case "ASBC"
call ad_asbc()

case else
		document.write("No category selected..." & "<br>")
	end select
	
End sub


'----------------------------------------
' 
'----------------------------------------
Sub ad_asbc()

	xfrom = "ASBC MEN'S MINISTRY"
	'xSubject = "RETREAT 2010 - Registration Form and Agenda" 
	xSubject = "FATHER & DAUGHTER CRUISE 2010 - Sunday, July 18th @ 8:00am - Register Today!!" 

'	xhtml = "asbc_men.html"
'	xhtml2 = "golf.html"
'	xhtml3 = "choir.html"
	xhtml4 = "asbc_message_final.html"
'	xhtml5 = "event001.html"
'	xhtml6 = "asbc_agenda.html"
	xtxt = xSubject

'	call load_html1(xhtml)
'	call load_html2(xhtml2)
'	call load_html3(xhtml3)
 	call load_html4(xhtml4)
'	call load_html5(xhtml5)
'	call load_html6(xhtml6)
end sub

'----------------------------------------
' 
'----------------------------------------
sub send1()
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = xfrom
Mailer.FromAddress = "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com" 
Mailer.AddRecipient member_info(1),member_info(2)
Mailer.Subject = xtxt & vbCRLF 
Mailer.ContentType = "text/html"
'Mailer.BodyText   = html1

html1 = ""

html1 = html1 & "All Members & Friends - " & vbCRLF & vbCRLF
html1 = html1 & "To register for this event complete the following steps:" & vbCRLF 
html1 = html1 & "STEP 1 - Print and complete the attached form."  & vbCRLF  & vbCRLF 
html1 = html1 & "STEP 2 - Contact Jason, Dexter, or James for further instructions." & vbCRLF & vbCRLF 
'html1 = html1 & "STEP 2 - Bring completed form and payment to the multi-purpose after each service." & vbCRLF & vbCRLF 

'html1 = html1 & "VOLUNTEERS NEEDED!!"  & vbCRLF 
'html1 = html1 & "* URGENT request for volunteers to help with passing out" & vbCRLF  
'html1 = html1 & "  flyers and signing up attendees, if you can help" & vbCRLF 
'html1 = html1 & "  this Sunday meet brother Jason Scarborough, Event Coordinator in the" & vbCRLF  
'html1 = html1 & "  multi-purpose room after either service." & vbCRLF  
'html1 = html1 & "  email him at [email protected] as soon as possible." & vbCRLF & vbCRLF 

html1 = html1 & "NOTE:"  & vbCRLF 
html1 = html1 & "* Make Checks Payable To: Alfred Street Baptist Church, 301 S. Alfred Street, Alexandria, VA 22314" & vbCRLF & vbCRLF 
'html1 = html1 & "* Donations and sponsorships are accepted in the Multi-Purpose room." & vbCRLF & vbCRLF 
html1 = html1 & "* Contact:" & vbCRLF
html1 = html1 & "  - James Ross, Director, (703) 624-1399, [email protected]" & vbCRLF
html1 = html1 & "  - Dexter Bordes, President of Men's Ministry, (202) 557-6316, [email protected]" & vbCRLF
html1 = html1 & "  - Jason Scarborough, Event Coordinator, (469) 766-0337, [email protected]" & vbCRLF & vbCRLF
html1 = html1 & "* Feel free to forward this invite to all interested parties." & vbCRLF

html1 = html1 & vbCRLF & vbCRLF

html1 = html1 & "Thanks." & vbCRLF & vbCRLF
html1 = html1 & "Men's Ministry" & vbCRLF & vbCRLF

Mailer.BodyText = html1 

sfilename7 = Server.MapPath("Father_Daughter_Cruise_2010.pdf")
Mailer.AddAttachment(sfilename7)

'sfilename8 = Server.MapPath("2010_RETREAT_AGENDA.pdf")
'Mailer.AddAttachment(sfilename8)

if Mailer.SendMail then
 ' Response.Write "Mail sent..."
else
 ' Response.Write "Mail send failure. Error was " & Mailer.Response
end if

'response.write "<br>"
'response.write "------------------------------------------" & "<br>"
'response.write "FromName:-------->" & xtxt & "<br>"
'response.write "FromAddress:-------->" & xfrom & "<br>"
'response.write "AddRecipient:-------->" & member_info(1) & "-----" & member_info(2) & "<br>"
'response.write "Subject:-------->" & xSubject & "<br>"
'response.write "BodyText:-------->" & "html file" & "<br><br>"

end sub



'----------------------------------------
' 
'----------------------------------------
sub send2()
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = xfrom
Mailer.FromAddress = "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com" 
Mailer.AddRecipient member_info(1),member_info(2)
Mailer.Subject = "MEN'S RETREAT 2010 - Join the GOLF FELLOWSHIP April 30th, 2010 (Shotgun Start 7:30am) at Penderbrook.com." & vbCRLF 
Mailer.ContentType = "text/html"
Mailer.BodyText   = html2

if Mailer.SendMail then
 ' Response.Write "Mail sent..."
else
 ' Response.Write "Mail send failure. Error was " & Mailer.Response
end if

 

end sub


'----------------------------------------
' 
'----------------------------------------
sub send3()
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = xfrom
Mailer.FromAddress = "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com" 
Mailer.AddRecipient member_info(1),member_info(2)
Mailer.Subject = "MEN'S RETREAT 2010 - All men are welcome to sing with us, practice starts Wednesday, April 14th, 2010 at 7pm (Choir Room)." & vbCRLF 
Mailer.ContentType = "text/html"
Mailer.BodyText   = html3

if Mailer.SendMail then
 ' Response.Write "Mail sent..."
else
 ' Response.Write "Mail send failure. Error was " & Mailer.Response
end if

end sub



'----------------------------------------
' 
'----------------------------------------
sub send4()
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = xfrom
Mailer.FromAddress = "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com" 
Mailer.AddRecipient member_info(1),member_info(2)
Mailer.Subject = "**NEWS and EVENTS**" & vbCRLF 
Mailer.ContentType = "text/html"
Mailer.BodyText   = html4

'sfilename8 = Server.MapPath("Willis_Golf_Tournament_Save_The_Date.pdf")
'Mailer.AddAttachment(sfilename8)


if Mailer.SendMail then
 ' Response.Write "Mail sent..."
else
 ' Response.Write "Mail send failure. Error was " & Mailer.Response
end if

end sub

'----------------------------------------
' 
'----------------------------------------
sub send_earl()
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = xfrom
Mailer.FromAddress = "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com" 
Mailer.AddRecipient member_info(1),member_info(2)
Mailer.Subject = "Earl Stafford speaks at the 12th Annual Business Philanthropy Summit" & vbCRLF 
Mailer.ContentType = "text/html"
Mailer.BodyText   = html5

if Mailer.SendMail then
 ' Response.Write "Mail sent..."
else
 ' Response.Write "Mail send failure. Error was " & Mailer.Response
end if

end sub

'----------------------------------------
' 
'----------------------------------------
sub send6()
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = xfrom
Mailer.FromAddress = "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com" 
Mailer.AddRecipient member_info(1),member_info(2)
Mailer.Subject = "RETREAT AGENDA" & vbCRLF 
Mailer.ContentType = "text/html"
Mailer.BodyText   = html6

if Mailer.SendMail then
 ' Response.Write "Mail sent..."
else
 ' Response.Write "Mail send failure. Error was " & Mailer.Response
end if

end sub


'----------------------------------------
' 
'----------------------------------------
sub send_mens_retreat()
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = xfrom
Mailer.FromAddress = "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com" 
Mailer.AddRecipient member_info(1),member_info(2)
Mailer.Subject = xtxt & vbCRLF 
Mailer.ContentType = "text/html"
'Mailer.BodyText   = html1

html1 = ""

html1 = html1 & "All Members & Friends - " & vbCRLF & vbCRLF
html1 = html1 & "Be sure to complete your registration form and pick up your tickets in the multi-purpose room after each service." & vbCRLF & vbCRLF
html1 = html1 & "NOTES:" & vbCRLF 
html1 = html1 & "* Make Checks Payable To: Alfred Street Baptist Church, 301 S. Alfred Street, Alexandria, VA 22314" & vbCRLF
html1 = html1 & "* Donations and sponsorships are accepted in the Multi-Purpose room." & vbCRLF
html1 = html1 & "* Volunteers contact: Charles Monterio Sr. , [email protected], (703) 971-6650" & vbCRLF
html1 = html1 & "* Feel free to forward the registration form and agenda to all interested parties." & vbCRLF
html1 = html1 & vbCRLF & vbCRLF

html1 = html1 & "Thanks." & vbCRLF & vbCRLF
html1 = html1 & "Men's Ministry" & vbCRLF & vbCRLF

Mailer.BodyText = html1 

sfilename7 = Server.MapPath("RegistrationForm2010.pdf")
Mailer.AddAttachment(sfilename7)

sfilename8 = Server.MapPath("2010_RETREAT_AGENDA.pdf")
Mailer.AddAttachment(sfilename8)

if Mailer.SendMail then
 ' Response.Write "Mail sent..."
else
 ' Response.Write "Mail send failure. Error was " & Mailer.Response
end if

'response.write "<br>"
'response.write "------------------------------------------" & "<br>"
'response.write "FromName:-------->" & xtxt & "<br>"
'response.write "FromAddress:-------->" & xfrom & "<br>"
'response.write "AddRecipient:-------->" & member_info(1) & "-----" & member_info(2) & "<br>"
'response.write "Subject:-------->" & xSubject & "<br>"
'response.write "BodyText:-------->" & "html file" & "<br><br>"

end sub


'----------------------------------------
' 
'----------------------------------------
sub send5()
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 
Mailer.FromName = xfrom
Mailer.FromAddress = "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com" 
Mailer.AddRecipient member_info(1),member_info(2)
Mailer.Subject = "14th ANNUAL (Eric M. Willis Memorial Golf Tournament) FRIDAY, SEPTEMBER 17, 2010/8:00AM Shotgun Start" & vbCRLF 
Mailer.ContentType = "text/html"
'Mailer.BodyText   = html1


html1 = ""

html1 = html1 & "All Members & Friends - " & vbCRLF & vbCRLF
html1 = html1 & "THE 14th ANNUAL - Eric M. Willis - Memorial Golf Tournament" & vbCRLF & vbCRLF
html1 = html1 & "FRIDAY, SEPTEMBER 17, 2010 (Tee Time 8:OOam Shotgun Start)" & vbCRLF & vbCRLF
html1 = html1 & "AGENDA" & vbCRLF
html1 = html1 & "--------------------------" & vbCRLF

html1 = html1 & "7AM Registration" & vbCRLF
html1 = html1 & "8AM Shotgun Start" & vbCRLF
html1 = html1 & "1PM Lunch" & vbCRLF & vbCRLF

html1 = html1 & "INCLUDES" & vbCRLF
html1 = html1 & "--------------------------" & vbCRLF

html1 = html1 & "18 Holes of Golf" & vbCRLF
html1 = html1 & "Golf Cart" & vbCRLF
html1 = html1 & "Lunch Buffett" & vbCRLF
html1 = html1 & "* * *" & vbCRLF
html1 = html1 & "Captain's Choice" & vbCRLF
html1 = html1 & "Team Contests" & vbCRLF
html1 = html1 & "Individual Contests" & vbCRLF
html1 = html1 & "Prizes" & vbCRLF
html1 = html1 & "Gifts" & vbCRLF
html1 = html1 & "* * *" & vbCRLF

html1 = html1 & "Proceeds Benefit the" & vbCRLF
html1 = html1 & "* Eric M. Willis Scholarship Fund" & vbCRLF
html1 = html1 & "* Preschool Scholarship Program" & vbCRLF
html1 = html1 & "* College Scholarship Program" & vbCRLF & vbCRLF

html1 = html1 & "REGISTRATION: Complete the attached form by September 1, 2010." & vbCRLF 
html1 = html1 & "CONTACT: Deacon Monterio: (703) 971-6650,[email protected]" & vbCRLF & vbCRLF 
html1 = html1 & "PASS IT ON: Feel free to forward this invite to all interested parties." & vbCRLF 

html1 = html1 & vbCRLF & vbCRLF

html1 = html1 & "Thanks." & vbCRLF 
html1 = html1 & "- Sports Ministry" & vbCRLF & vbCRLF

Mailer.BodyText = html1 

sfilename8 = Server.MapPath("Willis_Golf_Registration_Form.pdf")
Mailer.AddAttachment(sfilename8)

if Mailer.SendMail then
 ' Response.Write "Mail sent..."
else
 ' Response.Write "Mail send failure. Error was " & Mailer.Response
end if

end sub


%>