<% Dim stat stat = Request.QueryString("stat") if stat = "1" then Dim MyCDONTSMail2 Dim HTML dim YourName dim Industry dim Company dim CompanyType dim CompanyURL dim Desig dim Email dim Telephone dim Fax dim Address dim City dim Pin dim Country dim InquireAsCategory dim Subject dim Products dim FuncPrac dim TechPrac dim Remarks dim Howatsite dim Advertise dim conference dim searchEng dim newsgroup dim another_page dim referred dim Informative dim EasilyNavigable dim Interactive dim RateWebsite dim arrTechPrac Yourname = Request.Form("Name") Industry = Request.Form("Industry") Company = Request.Form("Company") CompanyType = Request.Form("CompanyType") CompanyURL = Request.Form("CompanyURL") Desig = Request.Form("Desig") Email = Request.Form("Email") Telephone = Request.Form("Telephone") Fax = Request.Form("Fax") Address = Request.Form("Address") City = Request.Form("City") Pin = Request.Form("Pin") Country = Request.Form("Country") InquireAsCategory = Request.Form("InquireAsCategory") Subject = Request.Form("Subject") Products = Request.Form("Products") 'arrTechPrac = Split(arrProducts) 'Response.Write(Products) FuncPrac = Request.Form("FuncPrac") 'arrFuncPrac = Split(arrFuncPrac) 'Response.Write(FuncPrac) TechPrac = Request.Form("TechPrac") 'arrTechPrac = Split(arrTechPrac) 'Response.Write(TechPrac) Remarks = Request.Form("Remarks") Interactive = Request.Form("Interactive") EasilyNavigable = Request.Form("EasilyNavigable") Informative = Request.Form("Informative") RateWebsite = Request.Form("RateWebsite") Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail") 'HTML = "" HTML = HTML & "" HTML = "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail") HTML = "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" dim displayInfo Howatsite = Request.Form("Howatsite") if Howatsite = "C" then Howatsite = "Advertisment" displayInfo = Request.Form("Advertise") end if if Howatsite = "D" then Howatsite = "conference" displayInfo = Request.Form("conference") end if if Howatsite = "E" then Howatsite = "searchEng" displayInfo = Request.Form("searchEng") end if if Howatsite = "F" then Howatsite = "newsgroup" displayInfo = Request.Form("newgroup") end if if Howatsite = "G" then Howatsite = "another_page" displayInfo = Request.Form("another_page") end if if Howatsite = "H" then Howatsite = "referred" displayInfo = Request.Form("referred") end if HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
Sender's Name: "&Yourname&"
Company: "&Company&"
Company Type: "&CompanyType&"
Industry: "&Industry&"
Company URL: "&CompanyURL&"
Title / Designation: "&Desig&"
Email: "&Email&"
Telephone: "&Telephone&"
Fax: "&Fax&"
Address: "&Address&"
City: "&City&"
Pin: "&Pin&"
Country: "&Country&"
Inquiry as: "&InquireAsCategory&"
Subject: "&Subject&"
Products: "&Products&"
Functional Practices: "&FuncPrac&"
Technical Practices: "&TechPrac&"
Remarks: "&Remarks&"
  
How did you come upon this site ?:  
"&Howatsite&""&displayInfo&"
  
Was the Website Informative: "&Informative&"
Was the Website Easily Navigable: "&EasilyNavigable&"
Was the Website Interactive: "&Interactive&"
Rate the Website: "&RateWebsite&"
" HTML = HTML & "" HTML = HTML & "" MyCDONTSMail2.From= "info@aurovision.com" MyCDONTSMail2.To="info@aurovision.com" MyCDONTSMail2.Subject="Feedback from Aurovision.com" MyCDONTSMail2.BodyFormat=0 MyCDONTSMail2.MailFormat=0 MyCDONTSMail2.Body=HTML MyCDONTSMail2.Send set MyCDONTSMail2=nothing Response.Redirect("thankyou.htm") else %> Charisma Builders - Contact Us
Home | Sales Info | Contact Us  
Residential
 
GO
Commercial
 
GO
 
 
 
    FOR ALL CHARISMA BUILDERS PROJECTS, PLEASE CONTACT  
     
Charisma Builders
 
Kamal Kunj, First Floor, Central Avenu Road.
Chembur, Mumbai - 400 071.
 
 
TEL: +91 (22) 25282252 | +91 (22) 25285598 | +91 (22) 25286842
        +91 (22) 55978082/ 83/ 8
FAX: +91 (22) 5283579
 
 
  Email Us At: sales@charismabuilders.com | info@charismabuilders.com
   
 Copyright © Charisma builders 2004-2005. All rights reserved