Home  |  About Us  |  Business Process  |  Clients  |  Feed Back |  Contact Us
 

 
 
 
<% Dim Msg If len(Request.form("Submit")) = 0 then %>
  * Fields Are Mandatory
 
  First Name *
  Last Name *
  Email Address *
  Salutation *
  Company Name
  Job Title
  Street Address
  City
  State
  Zip
  Country
  Telephone
  Fax
  Services
To make multiple selections:
On the PC, hold down the Control key while making your selections.
On the MAC, hold down Command while making your selections.
  Other
  Comments/Description
  How did you discover
our website?
 
<% else Call SendMail() %> <%=Msg%> <%end if %>
 
   
   
   
   
   

  Services  

Freight Forwarding  
Air Freight -
Ocean Freight -
Packing & Removal -
Logistic Services - 
   
Overland Transport  
   
Port Service  
Customs Clearance - 
Bonded Warehouse - 
   
   
 
 
<% Private Sub SendMail() Set Message = CreateObject("CDONTS.NewMail") Message.mailFormat = 0 Message.BodyFormat = 0 Message.From = Request.Form("txtemail_address") Message.To = "sumesh@aurigatechnologies.com" Message.Subject = "Feedback Form" BodyToSend =""_ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "
FeedBack
 
 First Name : "& Request.form("txtfirst_name") &"
 Last Name : "& Request.form("txtlast_name") &"
 Email Address : "& Request.form("txtemail_address") &"
 Salutation : "& Request.form("drpsalutation") &"
 Company Name : "& Request.form("txtcompany_name") &"
 Job Title : "& Request.form("txtjob_title") &"
 Street Address : "& Request.form("txtstreet_address") &"
 City : "& Request.form("txtcity") &"
 State : "& Request.form("txtstate") &"
 Zip : "& Request.form("txtzip") &"
 Country : "& Request.form("drpcountry") &"
 Telephone : "& Request.form("txttelephone") &"
 Fax : "& Request.form("txtfax") &"
 Services : "& Request.form("drpproducts") &"
 Other : "& Request.form("txtother") &"
 Comments/Description : "& Request.form("txtComments") &"
 How did you discover our website? : "& Request.form("drpDiscover") &"
" Message.Body = BodyToSend Message.Send If Err.Number = 0 Then 'Response.Write "

Thank You! At Bankers Technologies, our goal is to be accessible to our customers.
We look forward to hear from you.





" Msg="Thank You! At Pic Pac, our goal is to be accessible to our customers.
We look forward to hear from you." Else 'Response.Write "

Error: " & Err.Description& "
" Msg="Error :" & Err.Description End If Set Message = Nothing End Sub %>