<%@ Language=VBScript %> <%message="Contact Us" message=message&"" message=message&"" if Request("fname")<>"" then message=message&"" end if if Request("profession")<>"" then message=message&"" end if if Request("compname")<>"" then message=message&"" end if if Request("businesstype")<>"" then message=message&"" end if if Request("designation")<>"" then message=message&"" end if if Request("address1")<>"" then message=message&"" end if if Request("city")<>"" then message=message&"" end if if Request("state")<>"" then message=message&"" end if if Request("pincode")<>"" then message=message&"" end if if Request("country")<>"" then message=message&"" end if if Request("email")<>"" then message=message&"" end if if Request("telephone")<>"" then message=message&"" end if if Request("fax")<>"" then message=message&"" end if if Request("details")<>"" then message=message&"" end if message=message&"
SUBJECT : Enquiry from Website
Name "&Request("fname") if Request("lname")<>"" then message=message&" "&Request("lname") end if message=message&"
Profession "&Request("profession")&"
Company "&Request("compname")&"
Business Type"&Request("businesstype")&"
Designation "&Request("designation")&"
Address "&Request("address1") if Request("address2")<>"" then message=message&",
"&Request("address2") end if message=message&"
City "&Request("city")&"
State "&Request("state")&"
Pincode "&Request("pincode")&"
Country "&Request("country")&"
Email "&Request("email")&"
Telphone "&Request("telephone")&"
Fax "&Request("fax")&chr(10)&"
Details "&replace(replace(Request("details"),"'","''"),vbcrlf,"
")&"
" message=message&"" 'Response.Write(message) 'Response.End ' send mail to webmantra Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromAddress= Request("Email") Mailer.RemoteHost = "localhost" Mailer.ContentType = "text/html" Mailer.AddRecipient "Taj Support", "tajgroup@tajpharmaceuticals.com" Mailer.Subject = "Enquiry from Taj" Mailer.BodyText = message Mailer.Priority = 1 if Mailer.SendMail then Response.Redirect "/feedback sumit.htm" else Response.Write "Mail send failure. Error was " & Mailer.Response end if %>