%mode=Request("mode")
if mode="mailit" then
ContactName=Request("txtContactName")
Company=Request("txtCompany")
Address1=Request("txtAddress1")
Address2=Request("txtAddress2")
Address3=Request("txtAddress3")
PostCode=Request("txtPostCode")
Tel=Request("txtTel")
Fax=Request("txtFax")
Email=Request("txtEmail")
Enquire=Request("txtEnquire")
str=""
str=str+"
"
str=str+"
"
str=str+"
Enquiry
"
str=str+"
"
str=str+"
"
str=str+"
"
str=str+"
Contact Name
"
str=str+"
:
"
str=str+"
"&ContactName&"
"
str=str+"
"
str=str+"
"
str=str+"
"
str=str+"
Company
"
str=str+"
:
"
str=str+"
"&Company&"
"
str=str+"
"
str=str+"
"
str=str+"
"
str=str+"
Address 1
"
str=str+"
:
"
str=str+"
"&Address1&"
"
str=str+"
"
str=str+"
"
str=str+"
"
str=str+"
Address 2
"
str=str+"
:
"
str=str+"
"&Address2&"
"
str=str+"
"
str=str+"
"
str=str+"
"
str=str+"
Address 3
"
str=str+"
:
"
str=str+"
"&Address3&"
"
str=str+"
"
str=str+"
"
str=str+"
"
str=str+"
Post Code
"
str=str+"
:
"
str=str+"
"&PostCode&"
"
str=str+"
"
str=str+"
"
str=str+"
"
str=str+"
Tel
"
str=str+"
:
"
str=str+"
"&Tel&"
"
str=str+"
"
str=str+"
"
str=str+"
"
str=str+"
Fax
"
str=str+"
:
"
str=str+"
"&Fax&"
"
str=str+"
"
str=str+"
"
str=str+"
"
str=str+"
E mail
"
str=str+"
:
"
str=str+"
"&Email&"
"
str=str+"
"
str=str+"
"
str=str+"
"
str=str+"
Enquiry Details
"
str=str+"
:
"
str=str+"
"&Enquire&"
"
str=str+"
"
str=str+"
"
if Email="" then
Email="info@percycontract.co.uk"
end if
set mail_Obg=createObject("CDONTS.newmail")
mail_Obg.From=Email
mail_Obg.To ="enquiries@percycontract.co.uk"
mail_Obg.Subject = "Enquiry"
mail_Obg.Bcc ="shangar@teranetlanka.com"
mail_Obg.BodyFormat=0
mail_Obg.MailFormat=0
mail_Obg.Body =str
mail_Obg.Importance=2
if session("mail")="false" then
mail_Obg.Send
session("mail")="true"
msg="Mail has been sent sucessfully!"
end if
'Response.Write str
set mail_Obg=nothing
'msg="Sorry,unable to send mail!"
end if
%>
Percy