"
message=message&"SUBJECT : Enquiry from Website |
"
if Request("fname")<>"" then
message=message&"Name | "&Request("fname")
if Request("lname")<>"" then
message=message&" "&Request("lname")
end if
message=message&" |
"
end if
if Request("profession")<>"" then
message=message&"Profession | "&Request("profession")&" |
"
end if
if Request("compname")<>"" then
message=message&"Company | "&Request("compname")&" |
"
end if
if Request("businesstype")<>"" then
message=message&"Business Type | "&Request("businesstype")&" |
"
end if
if Request("designation")<>"" then
message=message&"Designation | "&Request("designation")&" |
"
end if
if Request("address1")<>"" then
message=message&"Address | "&Request("address1")
if Request("address2")<>"" then
message=message&", "&Request("address2")
end if
message=message&" |
"
end if
if Request("city")<>"" then
message=message&"City | "&Request("city")&" |
"
end if
if Request("state")<>"" then
message=message&"State | "&Request("state")&" |
"
end if
if Request("pincode")<>"" then
message=message&"Pincode | "&Request("pincode")&" |
"
end if
if Request("country")<>"" then
message=message&"Country | "&Request("country")&" |
"
end if
if Request("email")<>"" then
message=message&"Email | "&Request("email")&" |
"
end if
if Request("telephone")<>"" then
message=message&"Telphone | "&Request("telephone")&" |
"
end if
if Request("fax")<>"" then
message=message&"Fax | "&Request("fax")&chr(10)&" |
"
end if
if Request("details")<>"" then
message=message&"Details | "&replace(replace(Request("details"),"'","''"),vbcrlf," ")&" |
"
end if
message=message&"
"
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
%>