<% @LANGUAGE = "VBScript" %> <% Response.Buffer = True %> <% If Len(Request.Form("OK")) > 0 or Request.ServerVariables("REQUEST_METHOD") = "POST" then %> <% Dim id id=Server.URLEncode(Request.QueryString("id")) Dim rsubject rsubject=CV("Subject") Dim remail remail =CV("Email") Dim rname rname=CV("Name") Dim rtelephone rtelephone=CV("Telephone") Dim raddress raddress=CV("Address") Dim rmessage rmessage=CV("Message") If Not Err_Msg_Status Then '---------------------------------------------------------------- 'Start sending the cnfirmation email 'Declarte & Create the JMail(v4) message Object Dim msg set msg = Server.CreateOBject( "JMail.Message" ) 'Set logging to true to ease any potential debugging 'And set silent to true as we wish to handle our errors ourself 'Set priority msg.Logging = true msg.silent = true msg.priority = 1 'From msg.From="sales@bymer.com" msg.FromName ="Bymer Elastomers" ' To [do not use equals sign (=)] msg.AddRecipient remail,rname ' BCC for information msg.AddRecipientBCC "info@obiztek.com" 'Subject msg.Subject =" Your Inquiry on :- " & Date() 'Start composing the message msg.Body = ""&_ "==========================================================" & vbCrLf &_ " Bymer Elastomers(Bymer.com) > Inquiry Confirmation < " & vbCrLf &_ "==========================================================" & vbCrLf & vbCrLf &_ "We have received your inquiry wih the following details :- " & vbCrLf& vbCrLf &_ "- Subject ::" & rsubject & vbCrLf &_ "- Name ::" & rname & vbCrLf &_ "- Email ::" & remail & vbCrLf &_ "- Telephone ::" & rtelephone & vbCrLf &_ "- Address ::" & raddress & vbCrLf &_ "- Message ::" & rmessage & vbCrLf & vbCrLf &_ "We will come back to you soon,thanks." & vbCrLf & vbCrLf &_ "==========================================================" & vbCrLf &_ " Bymer Elastomer - Quality Rubber Products" & vbCrLf &_ "==========================================================" 'End composing the message ' Sending & checking for errors if any ( use the appropriate mail server mail.bymer.com or bymer.com ) if not msg.Send("bymer.com" ) then Response.write "
" & msg.log & "
" & vbCrLf else Call DOGO("doinquiry.asp") end if ' Sent 'Start sending the cnfirmation email End If End If %> Bymer Elastomers (Bymer.com) - Quality Moulded and Extruded Rubber Components - Inquiry Form
Company Logo
BYMER ELASTOMERS
(An ISO 9001:2008 Company)
.... Quality Rubber Products
INQUIRY FORM
 
Please tell us what are you looking for. Alternatively, if you prefer ,you may email us
Subject :-
 
<% If Request.QueryString("id")<>"" then %> <% else %> <% End if %>
You have selected <% =Request.QueryString("id") %>
Please specify

Action Desirable :-  
    
Send Catalogue/more information  Send Quotation 
Send Technical Representative Contact us soon 
 
Your Contact Details :-   
 
Name 

Email 

Telephone
Address 
(with company name) 
  
Please write your message :-   
  
Message
    
Ready for Sending ?   

  

 

 
Bymer Elastomers, J-52 MIDC Ambad ,Nashik-422 010 ,Maharashtra, India
Email : sales@bymer.com, Phone : +91-253-2387523 / 6601061,Fax : +91-253-2380523
Powered By :- www.obiztek.com
[ SEO Company of India ]

Top Arrow Back To Top