% @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 (An ISO 9001:2008 Company) |
|
.... Quality Rubber Products |
|
Bymer
Elastomers, J-52 MIDC Ambad ,Nashik-422 010 ,Maharashtra, India Email : sales@bymer.com, Phone : +91-253-2387523 / 6601061,Fax : +91-253-2380523 |
|
[ SEO Company of India ] |
|