<% if request.QueryString("action") = 1 then MailText = "" MailText = MailText & "" MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & " " MailText = MailText & "
Queries:"&request.Form("txtQuery")&"
E-mail:"&request.Form("txtEmail")&"
"&request.Form("")&"
First Name:"&request.Form("txtFName")&"
Last Name:"&request.Form("txtLName")&"
Company:"&request.Form("txtCompany")&"
Street:"&request.Form("txtStreet")&"
ZIP / Town:"&request.Form("txtZip")&" / "&request.Form("txtTown")&"
Country:"&request.Form("txtCountry")&"
Phone:"&request.Form("txtPhone")&"
Fax:"&request.Form("txtFax")&"
Profession:"&request.Form("txtProfession")&"
" Dim MyCDO On Error resume Next Set MyCDO = Server.CreateObject("CDONTS.NewMail") MyCDO.From = rsMail.fields("MailFrom") MyCDO.To = "aroma@vsnl.com" MyCDO.Subject = "Contact Form" MyCDO.BodyFormat = 0 MyCDO.MailFormat = 0 MyCDO.Body = MailText MyCDO.Importance = 2 MyCDO.value("Reply-to")= request.Form("txtEmail") MyCDO.Send Set MyCDO = nothing response.Redirect("inquiry.asp?action=2") end if %> :: Aroma Chemical ::
 

<% if request.QueryString("action") = 2 then %> Thank you!

Your request has been submitted. Our customer care will get back to you soon. <% else %>
Please use this form to tell us your opinion, suggestion or criticism, or simply to get in touch with us

Queries:*
E-mail:*
First Name:*
Last Name:*
Company:
Street:
ZIP / Town:  
Country:
Phone:
Fax:
Profession:
* Required Field
<% end if %>