% 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 & "| 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&" |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Copyright © Charisma builders 2004-2005. All rights reserved | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||