<%@ Language=VBScript %> <% if Request.Form("frm_data") = "Submit Query" then frm_Description =trim(Request.form("Description")) frm_S_name=trim(Request.form("S_name")) frm_S_email=trim(Request.form("S_email")) frm_S_phone=trim(Request.form("S_phone")) frm_S_country=trim(Request.form("S_country")) frm_S_fax=trim(Request.form("S_fax")) frm_S_streetaddress=trim(Request.form("S_streetaddress")) frm_S_city=trim(Request.form("S_city")) frm_S_pin=trim(Request.form("S_pin")) frm_S_organization=trim(Request.form("S_organization")) order=Request.querystring("order") ' ############# mail program to_email = frm_S_email to_name = frm_S_name from_name = "info@johnbarrel.co.in" from_email = "info@johnbarrel.co.in,clquery@sstdesigns.com" adminmail_subject = "Wholesale Query for "&order Set cdoConfig = Server.CreateObject("CDO.Configuration") Const cdoBasic = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "mail.johnbarrel.net" cdoConfig.Fields.Item(sch & "smtpauthenticate") = cdobasic cdoConfig.fields.update Set osm= Server.CreateObject("CDO.Message") Set osm.Configuration = cdoConfig osm.From = to_name&"<"&to_email osm.To = from_name&"<"&from_email osm.Subject = adminmail_subject 'osm.BodyFormat = 0 'osm.MailFormat = 0 HTML = "" & NL HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
Wholesale:

   " HTML = HTML & "
Please Describe Your Requirements:"&frm_Description&"
Your Name :" HTML = HTML & ""&frm_S_name&"" HTML = HTML & "
Your E-Mail : " HTML = HTML & ""&frm_S_email&"" HTML = HTML & "
Phone :(Include Country/Area Code):" HTML = HTML & ""&frm_S_phone&"" HTML = HTML & "
Country :" HTML = HTML & ""&frm_S_country&"" HTML = HTML & "
Fax : " HTML = HTML & ""&frm_S_fax&"
Street Address : " HTML = HTML & ""&frm_S_streetaddress&"" HTML = HTML & "
City/State :" HTML = HTML & ""&frm_S_city&"" HTML = HTML & "
Zip/Postal Code: " HTML = HTML & ""&frm_S_pin&"" HTML = HTML & "
Organization/Company Name :" HTML = HTML & ""&frm_S_organization&"" HTML = HTML & "

" HTML = HTML & "" osm.htmlBody = HTML osm.Send Set osm = Nothing Response.Redirect("thank-you.html") end if %> Query
John Barrel
Manufacturer and Exporter of Audio and Video Products
Manufacturer and Exporter of Audio and  Video Productsabout usManufacturer and Exporter of Audio and  Video ProductsqualityManufacturer and Exporter of Audio and  Video ProductsclientsManufacturer and Exporter of Audio and  Video ProductsinfrastructureManufacturer and Exporter of Audio and  Video Products
Manufacturer and Exporter of Audio and  Video Products
Manufacturer and Exporter of Audio and  Video Products John Barrel Manufacturer and Exporter of Audio and  Video ProductsManufacturer and Exporter of Audio and  Video Products
John Barrel
home | contact | query | email  

Choose LanguageEspaolFrançaisDeutschItalianoPortuguêsEnglish
Manufacturer and Exporter of Audio and  Video Products
Send us Bulk Enquiries

Query

(* represents compulsory fields )

* Please Describe Your Requirements:
Organization / Company Name :
* Your Name :
* Your E-Mail :
* Phone : (Include Country Code)
Fax : (Include Country Code)
Street Address :
City/State :
Zip/Postal Model :
* Country :