| <%else
'Thanks this will goes to client
'on error resume next
dim Mail,body
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "www.genericmail.biz;64.106.225.60"
Mail.From= "admin@sundaramindustries.com"
Mail.Username="admin@sundaramindustries.com"
Mail.Password="sundaramindustries_admin"
Mail.AddAddress Request.Form("Contact_Email")
Mail.Subject ="Product Inquiry Form."
Mail.IsHTML =true
body=" Your Inquiry has been Received.
Thank You For Your Interest.
We will contact you as early as possible
"
body =body & "We Will Get Back To You As Soon As Possible.
From : Sundaram Industries
"
Mail.Body =body
Mail.Send
set Mail=nothing
'''''''''''''''''''''''''''''''''''''''''''
'this intimate to host feedback comes so n so....
dim Mail1,body1
Set Mail1= Server.CreateObject("Persits.MailSender")
Mail1.Host = "www.genericmail.biz;64.106.225.60"
Mail1.From= "admin@sundaramindustries.com"
Mail1.Username="admin@sundaramindustries.com"
Mail1.Password="sundaramindustries_admin"
Mail1.AddAddress "admin@sundaramindustries.com"
Mail1.AddReplyTo Request.Form("Contact_Email")
Mail1.Subject ="Product Inquiry Form."
Mail1.IsHTML =true
body1="Dear Sir
"
body1=body1& "
"
body1=body1 & "Name = " & Request.Form("Contact_Full") & "
"
body1=body1 & "Subject Title = " & Request.Form("Contact_Title") & "
"
body1=body1 & "Company Name = " & Request.Form("Contact_Organization") & "
"
body1=body1 & "Company Address = " & Request.Form("Contact_Adresse") & "
"
body1=body1 & "Country Zip Code = " & Request.Form("CP") & "
"
body1=body1 & "City = " & Request.Form("Contact_Ville") & "
"
body1=body1 & "State = " & Request.Form("Contact_Province") & "
"
body1=body1 & "Country = " & Request.Form("Contact_Pays") & "
"
body1=body1 & "Phone No. = " & Request.Form("Contact_Phone") & "
"
body1=body1 & "Fax No. = " & Request.Form("Contact_Fax") & "
"
body1=body1 & "Email Address = " & Request.Form("Contact_Email") & "
"
body1=body1 & "Website = " & Request.Form("Contact_URL") & "
"
body1=body1 & "Interest in Products = " & Request.Form("Interest in") & "
"
body1=body1 & "Remarks = " & Request.Form("note") & "
"
body1=body1 & "
"
body1=body1 & "Regards,
"
Mail1.Body =body1
Mail1.Send
set Mail1=nothing
%>
Your Message sent successfully.
We will revert to you soon.
<%
end if
%>
|
