Questions ?
Click here to e-mail us
|
 |
<%
if Request.QueryString("submit")="y" then
Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.Host = "mail.protechimmigration.com"
Mailer.From = Request.Form("txtYourEMail")
Mailer.FromName = Request.Form("txtYourName")
Mailer.Subject = "Have a look at this website"
Mailer.IsHTML = true
varEMailBody = "I just saw this website and I think this immigration company " & _
"can make our dreams for Canada come true. I thought it would be good for you " & _
"to have a look at this site. The website address is: www.protechimmigration.com.
" & _
"" & Request.Form("txtYourName") & ""
'send to friends
if Request.Form("txtYourName1")<>"" and Request.Form("txtYourEMail1")<>"" then
Mailer.Body = "Hi " & Request.Form("txtYourName1") & ",
" & varEMailBody
Mailer.AddAddress Request.Form("txtYourEMail1"), Request.Form("txtYourName1")
Mailer.Send
Mailer.Reset
end if
if Request.Form("txtYourName2")<>"" and Request.Form("txtYourEMail2")<>"" then
Mailer.Body = "Hi " & Request.Form("txtYourName2") & ",
" & varEMailBody
Mailer.AddAddress Request.Form("txtYourEMail2"), Request.Form("txtYourName2")
Mailer.Send
Mailer.Reset
end if
if Request.Form("txtYourName3")<>"" and Request.Form("txtYourEMail3")<>"" then
Mailer.Body = "Hi " & Request.Form("txtYourName3") & ",
" & varEMailBody
Mailer.AddAddress Request.Form("txtYourEMail3"), Request.Form("txtYourName3")
Mailer.Send
Mailer.Reset
end if
if Request.Form("txtYourName4")<>"" and Request.Form("txtYourEMail4")<>"" then
Mailer.Body = "Hi " & Request.Form("txtYourName4") & ",
" & varEMailBody
Mailer.AddAddress Request.Form("txtYourEMail4"), Request.Form("txtYourName4")
Mailer.Send
Mailer.Reset
end if
if Request.Form("txtYourName5")<>"" and Request.Form("txtYourEMail5")<>"" then
Mailer.Body = "Hi " & Request.Form("txtYourName5") & ",
" & varEMailBody
Mailer.AddAddress Request.Form("txtYourEMail5"), Request.Form("txtYourName5")
Mailer.Send
Mailer.Reset
end if
'send to protech
Mailer.From = "assessment@protechimmigration.com"
Mailer.FromName = "Protech Immigration"
Mailer.Subject = "Friend Referral from Website"
Mailer.IsHTML = true
Mailer.Body = "A visitor referred the site to his/her friends with following information:
" & _
"
Name: " & Request.Form("txtYourName") & _
"
EMail: " & Request.Form("txtYourEMail") & _
"
Phone: " & Request.Form("txtYourPhone") & _
"
Friends' Information
" & _
"| Name | Email | Phone | " & _
"| " & Request.Form("txtYourName1") & " | " & Request.Form("txtYourEMail1") & " | " & Request.Form("txtYourPhone1") & " | " & _
"| " & Request.Form("txtYourName2") & " | " & Request.Form("txtYourEMail2") & " | " & Request.Form("txtYourPhone2") & " | " & _
"| " & Request.Form("txtYourName3") & " | " & Request.Form("txtYourEMail3") & " | " & Request.Form("txtYourPhone3") & " | " & _
"| " & Request.Form("txtYourName4") & " | " & Request.Form("txtYourEMail4") & " | " & Request.Form("txtYourPhone4") & " | " & _
"| " & Request.Form("txtYourName5") & " | " & Request.Form("txtYourEMail5") & " | " & Request.Form("txtYourPhone5") & " | " & _
"
"
Mailer.AddAddress "assessment@protechimmigration.com", "Protech Immigration"
Mailer.Send
set Mailer = Nothing
Response.Write("EMails successfully sent. Thanks for your interest.
")
end if
%>
|
|
|
 |
| Canada's high tech industrialized economy provides its
citizens with a high standard of living, clean environment, safe streets, and
protected human rights.
Real rates of growth have averaged nearly 3.0% since 1993.
Canadians are proud that many different cultural &
ethnic groups live & work here in harmony.
|
 |
|
|
 |
|
|
