<%
' 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, html, txt, txt2, sfilename1, limit, knt, xstart, body, cap
Dim member_info
Dim myMail
Dim xtitle, xfrom, xto, xfilename, xtxt, xsubject,xrecipname, xrecipemail
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
'----------------------------------------
sfilename1 = Server.MapPath("cli_email.txt")
set fso1 = Server.CreateObject("Scripting.FileSystemObject") 

if fso1.fileExists(sfilename1) then
	set myFile1 = fso1.OpenTextFile(sfilename1,1)
	
	body = ""
	qnt = 0

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

		call ad_type(member_info(0))

	loop 
	'myFile1.Close 
	'set myFile1 = nothing

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

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

set fso1 = nothing
myFile1.Close 
set myFile1 = nothing
'----------------------------------------
' 
'----------------------------------------
sub load_html(xhtml)

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

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

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

	Do While not myFile2.AtEndOfStream
		 html = html & 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 send()
'Response.Write html

end sub

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

Select Case xtype
'----------------------------------------
' GEBERAL BUSINESS
'----------------------------------------
case "BCC"
call ad_01()
case "BUSINESS"
call ad_01()
case "DCCC"

xSubject = "It was a pleasure to meet you the DCCC event. Let's get together soon to continue our discussion?" 
call ad_12()
case "EVENT01"
call ad_01()
case "FINANCE"
call ad_01()
case "Financial"
call ad_09()
case "Partnering"
call ad_01()
case "ITSERVICES"
call ad_01()
case "new"
call ad_01()
case "Prospect"
call ad_20()
case "SmartCEO"
xSubject = "It was a pleasure to meet you the SmartCEO event. Let's get together soon to continue our discussion?" 
call ad_12()
case "Supplier Diversity"
call ad_01()
case "SUPPLIERDIVERSITY"
call ad_01()
case "VENDOR OUTREACH SESSION"
call ad_01()
case "WBJ"
xSubject = "It was a pleasure to meet you the WBJ event. Let's get together soon to continue our discussion?" 
call ad_12()
case "Vets"
call ad_01()

'----------------------------------------
' GSA VENDORS
'----------------------------------------
case "520FABS"
call ad_01()
case "GSA"
call ad_01()
case "MOBIS"
call ad_01()
case "SECURITY"
call ad_01()
case "Software"
call ad_01()
case "TECHNOLOGY"
call ad_01()
case "TEMPSERVICES"
call ad_01()
case "WIRELESS"
call ad_01()
'----------------------------------------
' EVENTS
'----------------------------------------
case "AFGHAN-US-CHAMBER"
xSubject = "It was a pleasure to meet you the AFGHAN-US CHAMBER event. Let's get together soon to continue our discussion?"  
call ad_12()
'----------------------------------------
' HISPANIC
'----------------------------------------
case "LISTA"
xSubject = "It was a pleasure to meet you the LISTA event. Let's get together soon to continue our discussion?"  
call ad_12()
'----------------------------------------
' EVENT AFGHAN GSA
'----------------------------------------
case "AFGHAN-GSA-INTEGRATOR"
call ad_05()
'----------------------------------------
' RFP
'----------------------------------------
case "RFP"
call ad_06()
'----------------------------------------
' RFP_AFGHAN
'----------------------------------------
case "RFP_AFGHAN"
call ad_06a()
'----------------------------------------
' RFQ
'----------------------------------------
case "RFQ"
call ad_06()

'----------------------------------------
' ALLIANT
'----------------------------------------
case "ALLIANT"
call ad_06()
'----------------------------------------
' ALLIANCES
'----------------------------------------
case "Marketing"
call ad_13()
case "Partnering"
call ad_09()
case "VENTURE"
call ad_07()
'----------------------------------------
' ORGANIZATIONS
'----------------------------------------
case "Organization"
call ad_10()

case "ORGANIZATIONS"
call ad_10()

case "ASBC"
'call ad_asbc()
'----------------------------------------
' MEDICAL
'----------------------------------------
case "Pharmaceuticals"
'call ad_11()
'----------------------------------------
' FOSE
'----------------------------------------
case "FOSE"
call ad_fose()
'----------------------------------------
' SPECIFIC NAICS
'----------------------------------------
case "1117"
call ad_20()
'----------------------------------------
' SATELLITE2010
'----------------------------------------
case "Satellite2010"
call ad_Satellite2010()
'----------------------------------------
' VABIO
'----------------------------------------
case "VABIO"
call ad_vabio()
'----------------------------------------
' ROOFTOP
'----------------------------------------
case "ROOFTOP"
call ad_rooftop()

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

'----------------------------------------
' 
'----------------------------------------
Sub ad_01()
DIM random_subject_phrase, random_number
'----------------------------------------
' RANDOM MESSAGE FOR SUBJECT
'----------------------------------------
random_number = round(Second(Now)/10,0)
random_number = int(rnd*random_number)+1
			
Select Case random_number
	case 1
	random_subject_phrase = "Sign up for our FREE face-to-face federal sales and marketing review session."  
	case 2
	random_subject_phrase = "Let us monitor and prepare your E-BUY task orders."  
	case 3
	random_subject_phrase = "Do you have questions/comments about your GSA Schedule?"  
	case 4
	random_subject_phrase = "We can find your firm a GSA Schedule contract within 90 days."  
	case 5
	random_subject_phrase = "We prepare, modify, and market GSA Schedule."  
	case 6
	random_subject_phrase = "We can add additional SINs to your GSA Schedule."  
	case else
	random_subject_phrase = "We can add additional SINs to your GSA Schedule." 
end select
	xfrom = """cli - Federal Sales Support"" <[email protected]>" 
	 
	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = random_subject_phrase
	xhtml = "basic_ad.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_03()
	
	xfrom = "cli - Federal Sales & Marketing Services"
	
	xhtml = "basic_ad.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_04()
	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = "Hispanic market ---  Let us prepare and deliver your next proposal (RFP/RFQ/TASK ORDERS)." 
	xhtml = "basic_ad.html"
	xtxt = xSubject
	call load_html(xhtml)
end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_05()

	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = "AFGHAN integrator --- Let us prepare and deliver your next proposal (RFP/RFQ/TASK ORDERS)." 
	xhtml = "basic_ad.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_06()

	xfrom = "cli - Proposal Writing Services"
	xSubject = "Let us prepare and deliver your next proposal (RFP/RFQ/TASK ORDERS)." 
	xhtml = "basic_proposals.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_06a()
	
	xfrom = "cli - Proposal Writing Services"
	xSubject = "Let us prepare and deliver your next proposal (RFP/RFQ/TASK ORDERS)." 
	xhtml = "basic_proposals_afghan.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_07()

	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = "Let us help your portfolio clients sell their goods and services to the U.S. government!" 
	xhtml = "basic_vc.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_08()

	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = "Alliant ... Let us prepare and deliver your next proposal (RFP/RFQ/TASK ORDERS)." 
	xhtml = "basic_letter.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_09()

	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = "Let us prepare and deliver your next proposal (RFP/RFQ/TASK ORDERS)." 
	xhtml = "basic_letter.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_10()

	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = "Let us help your members find government contracts." 
	xhtml = "basic_letter.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_11()

	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = "Pharma ... Let us prepare and deliver your next proposal (RFP/RFQ/TASK ORDERS)." 
	xhtml = "basic_ad.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_12()

	xfrom = "cli - Federal Sales & Marketing Services"
	xhtml = "basic_marketing.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub


'----------------------------------------
' 
'----------------------------------------
Sub ad_13()

	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = "Need a little help finding U.S. government contracts?" 
	xhtml = "basic_marketing.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_20()

	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = "HOT CONTRACT ALERT! - (GSA Sol#)!" 
	xhtml = "basic_ad.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub
'----------------------------------------
' 
'----------------------------------------
Sub ad_asbc()

	xfrom = "ASBC MEN'S MINISTRY"
	xSubject = "Helping Hands -- Needed for a P.G. County Twin Mom !" 
	'xhtml = "asbc_mens_ministry.html"
	xhtml = "asbc_men.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub

'----------------------------------------
' 
'----------------------------------------
Sub ad_Satellite2010()

	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = member_info(1) & ", it was a pleasure to meet you at the SATELLITE2010 conference." 
	xhtml = "basic_satelite2010.html"
	xhtml = "basic_marketing.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub


'----------------------------------------
' 
'----------------------------------------
Sub ad_fose()

	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = member_info(1) & ", it was a pleasure to meet you at FOSE." 
	xhtml = "basic_fose.html"
xhtml = "basic_marketing.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub

'----------------------------------------
' 
'----------------------------------------
Sub ad_vabio()

	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = member_info(1) & ", it was a pleasure to meet you at the BIO Fly-In and/or VABIO Executive Dinner." 
	xhtml = "basic_vabio.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub

'----------------------------------------
' 
'----------------------------------------
Sub ad_rooftop()

	xfrom = "cli - Federal Sales & Marketing Services"
	xSubject = member_info(1) & ", it was a pleasure to meet you at the Rooftop networking event." 
	xhtml = "basic_rooftop.html"
xhtml = "basic_marketing.html"
	xtxt = xSubject
	call load_html(xhtml)

end sub



'----------------------------------------
' 
'----------------------------------------
sub send()
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   = html
'Mailer.AddAttachment "c:\websites\asbc\MENSRETREAT_files\2010_RETREAT_AGENDA"

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
%>