About Us Infrastructure Services Benificiaries Feedback Contact Us
Feedback
 
 

<% sAction = Request("FormAction") If sAction = "submit" Then Dim fldName : fldName = Request("Name") Dim fldDesignation : fldDesignation = Request("Designation") Dim fldEmail : fldEmail = Request("Email") Dim fldCompany : fldCompany = Request("Company") Dim fldWebsite : fldWebsite = Request("Website") Dim fldAddress1 : fldAddress1 = Request("Address1") Dim fldAddress2 : fldAddress2 = Request("Address2") Dim fldAddress3 : fldAddress3 = Request("Address3") Dim fldZipCode : fldZipCode = Request("ZipCode") Dim fldCity : fldCity = Request("City") Dim fldCountry : fldCountry = Request("Country") Dim fldPhone : fldPhone = Request("Phone") Dim fldFax : fldFax = Request("Fax") Dim fldComments : fldComments = Request("Comments") HTML = "
Name" & fldName & " 
Designation " & fldDesignation & " 
Email " & fldEmail & " 
Company" & fldCompany & " 
Web-site " & fldWebsite & " 
Address" & fldAddress1 & " 
 " & fldAddress2 & " 
  " & fldAddress3 & " 
Zip Code " & fldZipCode & " 
City " & fldCity & " 
Country " & fldCountry & " 
Phone " & fldPhone & " 
Fax " & fldFax & " 
Your Comments " & fldComments & " 
" 'Response.Write(HTML) Set myMail = Server.CreateObject("CDONTS.NewMail") myMail.From= "info@mayfaircro.com" myMail.To= "info@mayfaircro.com" myMail.Subject="Online inquiry...." myMail.BodyFormat=0 'CdoBodyFormatHTML myMail.MailFormat=0 'CdoMailFormatMime myMail.Body=HTML myMail.Send Set mymail=nothing Show_Msg Else Show_Form End If %>

Site Best Viewed in 800 x 600 Resolution, and Internet Explorer 4.0 + and Netscape 6.0 +
All Copyright © 2005 MAYFAIR
<% Sub Show_Form() %>
Please fill in the following information and press the Send button.
(all the fields marked by * are required)
   
Name*
Designation
Email*
Company
Web-site
Address
 
 
Zip Code
City
Country
Phone
Fax
Your Comments
   
   
<% End Sub Sub Show_Msg() %>
Your inquiry has been successfully submitted.
Our support team will revert back to you at earliest.
<% End Sub %>