<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if (Request("hfAction")="send") then
strHTML = strHTML & "
"
strHTML = strHTML & "
COMPANY CONTACT FORM
"
strHTML = strHTML & "
"
strHTML = strHTML & "
Company Name:*
"&request("companyname")&"
"
strHTML = strHTML & "
Contact Name:*
"&request("fullname")&"
"
strHTML = strHTML & "
Email:*
"&request("email1")&"
"
strHTML = strHTML & "
Phone:*
"&request("phone")&"
"
strHTML = strHTML & "
Comments:
"&request("comments")&"
"
dim subject
if (request("location") = "1") then
subject = "U.S. company wants to provide benefits for its Canadian employees"
else
subject = "Canadian company wants to provide benefits for its U.S. employees"
end if
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.benefitpeople.ca"
Mail.Username = "info@benefitpeople.ca"
Mail.Password = "infobenefit"
Mail.From = request.Form("email1")
Mail.AddAddress "info@benefitpeople.ca"
Mail.Subject = subject
Mail.IsHTML = True
Mail.Body = "
" & strHTML & "
"
Mail.Send
end if
%>
BenefitPeople. Forms...
<%if (Request.Form("hfAction")="send") then%>
Thank you very much for using our services. We have
received your request.
One of our representatives will contact you.
For more information please contact us at:
<%end if%>
Benefit People
Park Place Corporate Centre
15 Wertheim Crt., Suite #802
Richmond Hill, Ontario
L4B 3H7
