<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''
' Freeware from Seiretto.com
' available at http://asp.thedemosite.co.uk
' DON'T forget to change the mail_to email address below!!!
' and thats all you need to change.
''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim error, justadd, justread, justwrite, newline, ok
Dim knt, f, emsg, mail_to, r, o, c, other, html, html_end, txt, etxt
Dim greetings, part1, part2, part3
Dim member_info

justadd = 8
justread = 1
justwrite = 2
error = 0
knt = 0
ok = 0
mail_to = "[email protected]"
part1 = ""
part2 = ""
greetings = ""

newline = vbCrLF
hline = vbNewLine  
emsg = ""


'For Each f In Request.Form
'	If Request.Form(f) = "" Then 
'		error = 0
'	End If
'Next

'Response.Write "EMAIL -->" & Request.Form("Email") & "<br><br>"
'Response.Write "OPTION -->" & Request.Form("PICK1") & "<br><br>"

	'----------------------------------------
	'  Checking input values
	'----------------------------------------
	etxt = ""

	txt = Request.Form("Name")
	IF txt = "" THEN
		etxt = etxt & "- Blank Name<br>"
	END IF

	txt = Request.Form("Tel")
	IF txt = "" THEN
		etxt = etxt & "- Blank Telephone number<br>"
	END IF

	txt = Request.Form("Email") 
	IF txt = "" THEN
		etxt = etxt & "- Blank Email Address <br>"
	END IF

	txt = Request.Form("Email") 
	IF inStr(txt,"@") = 0 THEN
		etxt = etxt & "- Incomplete Email Address <br>"
	END IF

	txt = Request.Form("Email") 
	IF inStr(txt,".") = 0 THEN
		etxt = etxt & "- No period (.) found in Email Address <br>"
	END IF


	txt = Request.Form("Message") 
	

	IF inStr(txt,"@")>0 THEN
		etxt = etxt & "- No special characters @ allowed <br>"
	END IF

	txt = Request.Form("Message") 
	IF inStr(txt,"http") > 0 THEN
		etxt = etxt & "- No special characters allowed <br>"
	END IF

	txt = Request.Form("Message") 
	IF inStr(txt,".com") > 0 THEN
		etxt = etxt & "- No special characters allowed <br>"
	END IF

	txt = Request.Form("Message") 
	IF inStr(txt,"www") > 0 THEN
		etxt = etxt & "- No special characters allowed <br>"
	END IF

	txt = Request.Form("Message2") 
	IF inStr(txt,"@") > 0 THEN
		etxt = etxt & "- No special characters allowed <br>"
	END IF

	txt = Request.Form("Message2") 
	IF inStr(txt,"http") > 0 THEN
		etxt = etxt & "- No special characters allowed <br>"
	END IF

	txt = Request.Form("Message2") 
	IF inStr(txt,".com") > 0 THEN
		etxt = etxt & "- No special characters allowed <br>"
	END IF

	txt = Request.Form("Message2") 
	IF inStr(txt,"www") > 0 THEN
		etxt = etxt & "- No special characters allowed <br>"
	END IF


	txt = Request.Form("PICK1") & Request.Form("PICK2") & Request.Form("PICK3") & Request.Form("PICK4") & Request.Form("PICK5") & Request.Form("message")
	txt = txt & Request.Form("PICK01") & Request.Form("PICK02") & Request.Form("PICK03") & Request.Form("PICK04") & Request.Form("PICK05") & Request.Form("message2")

	IF txt = "" THEN
		etxt = etxt & "- No services were selected <br>"
	END IF








'----------------------------------------
'  if values are clean then continue
'----------------------------------------
if etxt = "" THEN

'Response.Write txt


	'PART1

	txt = ""

	part1 = Request.Form("PICK1")
 	if part1 = "" then
		'
	else
		txt = txt & part1 & "<br>"
	end if

	part1 = Request.Form("PICK2")
 	if part1 = "" then
		'
	else
		txt = txt & part1 & "<br>"
	end if

	part1 = Request.Form("PICK3")
	if part1 = "" then
		'
	else
		txt = txt & part1 & "<br>"
	end if
 

	part1 = Request.Form("PICK4")
	if part1 = "" then
		'
	else
		txt = txt & part1 & "<br>"
	end if
 
	part1 = Request.Form("PICK5")
	if part1 = "" then
		'
	else
		txt = txt & part1 & "<br>"
	end if


	part1 = Request.Form("Message")
	if part1 = "" then
		'
	else

			txt = txt & part1 & "<br>"
	end if
 
	if txt = "" then
		txt = " - No options selected" & "<br>"
	end if
 
	part1 = "<br><br>" & Request.Form("Name") & "<br>" & Request.Form("Tel") & "<br>" & Request.Form("Email") & "<br><br>"

	part1 = "SERVICES" & "<br>" & txt


'Response.Write part1


	'PART2

	txt = ""

	part2 = Request.Form("PICK01")
 	if part2 = "" then
		'
	else
		txt = txt & part2 & "<br>"
	end if

	part2 = Request.Form("PICK02")
 	if part2 = "" then
		'
	else
		txt = txt & part2 & "<br>"
	end if

	part2 = Request.Form("PICK03")
	if part2 = "" then
		'
	else
		txt = txt & part2 & "<br>"
	end if
 

	part2 = Request.Form("PICK04")
	if part2 = "" then
		'
	else
		txt = txt & part2 & "<br>"
	end if
 
	part2 = Request.Form("PICK05")
	if part2 = "" then
		'
	else
		txt = txt & part2 & "<br>"
	end if
 
	part2 = Request.Form("PICK06")
	if part2 = "" then
		'
	else
		txt = txt & part2 & "<br>"
	end if

	part2 = Request.Form("PICK07")
	if part2 = "" then
		'
	else
		txt = txt & part2 & "<br>"
	end if


	part2 = Request.Form("Message2")
	if part2 = "" then
		'
	else
		txt = txt & part2 & "<br>"
	end if


	if txt = "" then
		txt = " - No schedules selected" & "<br>"
	end if
 
 	part2 = "GSA SCHEDULE SERVICES" & "<br>" & txt

'PART3
part3 = "Warm regards."  & "<br><br>"
part3 = part3 & "Concept Labs Inc."  & "<br>"
part3 = part3 & "5375 Duke Street Suite 1010" & "<br>"
part3 = part3 & "Alexandria, VA 22304" & "<br>"
part3 = part3 & "Tel: 703.217.0153" & "<br>"
part3 = part3 & "Fax: 703.461.8724" & "<br><br>"
part3 = part3 & "Federal Sales & Marketing Specialist" & "<br>"

greetings = Request.Form("Name") & "<br>" & Request.Form("Tel") & "<br>" & Request.Form("Email") & "<br><br>"
greetings = greetings & "Thanks for completing our contact form. You requested the following services:" & "<br>"

		html = ""
		knt = 0
		txt = ""

		'----------------------------------------
		'
		'----------------------------------------
		Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
		Mailer.FromName   = "Concept Labs Inc. (cli)"
		Mailer.FromAddress= mail_to
		Mailer.RemoteHost = "smtp.rcn.com"
		Mailer.AddRecipient "Help Desk", "[email protected]"
		Mailer.AddRecipient Request.Form("Name"), Request.Form("Email")
		Mailer.Subject    = Request.Form("Name") & " - You requested the following Federal Sales & Marketing Support."  
	'	Mailer.Subject    = "Contact - " & Request.Form("Email") & "-" & Request.Form("PICK1") 
		Mailer.BodyText   = "<html><body><table><tr><td>" & greetings & "<br><br>" & part1 & "<br><br>" & part2 & "<br><br>" & part3 & "</td></tr></table></body></html>"
		Mailer.ContentType = "text/html"

		if Mailer.SendMail then
		  'Response.Write "Mail sent...<br><br>"
		else
		  'Response.Write "Mail send failure. Error was " & Mailer.Response
		end if
		
		response.redirect "a_thanks.html"
else 
		Response.Write "<p>Please click Back-Space on your browser and review each entry:</p>"
		Response.Write "<br>" & etxt
End if
%>