Home
About Us
Products
Enquiry Form
Contact Us
 

 

 
<% if request("insert") ="mail" then Dim iMsg Set iMsg = CreateObject("CDO.Message") Dim iConf Set iConf = CreateObject("CDO.Configuration") Dim Flds Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" Flds.Update Set iMsg.Configuration = iConf iMsg.To = "info@transasiagroup.org" iMsg.From = request("txtEmail") iMsg.Subject = "Trade Form Enquiry Details" mybody = "Contact Person's Name : " & request("contactperson") & "
" mybody = mybody & "Company Name : " & request("name") & "
" mybody = mybody & "Company Address : " & request("address") & "
" mybody = mybody & "Contact No : " & request("phone") & "
" mybody = mybody & "Fax : " & request("fax") & "
" mybody = mybody & "EMail ID : " & request("email") & "
" mybody = mybody & "Website : " & request("website") & "
" mybody = mybody & "Requirements : " & request("description") & "
" iMsg.htmlBody = mybody iMsg.Send %>

Your Enquiry has been send to our Admin Team <% end if %>

 
Please provide us with the following information in order to contact you. Upon receipt of your information we will revert to you soon.

 

 
Contact Person
:
 
Company Name
:
 
Company Address
:
 
Telephone
:
 
Fax
:
 
E-mail
:
 
Website
:
 
Description & Specification of your requirements
:
 
 
 Trans Asia Corporation LTD. All rights reserved.