<% Dim BodyToSend, Message If Request.Form("SendButton") <> "Send" or Request.Form("bodytext") = "" Then %> Welcome to Krebs
 
 
Home
contact
   
 
 
 
Home About us Products License Service Resource Contact us
 
   
 

 
 
Contact us
Contact us for further information:
  QUEST AGROTECH (M) SDN BHD (607415-D)  
  Suite 03-02,3rd Floor, Wisma TCL No. 470,  
  3rd Mile, Jalan Ipoh,  
  51200, Kuala Lumpur, Malaysia.  
     
  Tel : +0603-40400000, +0603-4048 1115/1116/1119  
  Fax: +603 40481113  
  krebsbiochemical@gmail.com
  
  info@krebsbiochemicals.com  
     
 
or
  
  
Contact us
" method="post" name="f1" id="f1">
Name:
Contact No:
Email :
Message :
 

 
     
 
     
         
  Copyright ©2010 Krebs Biochemicals (M) Sdn.Bhd. All rights reserved  
         
<% Else Set Message = Server.CreateObject("Persits.MailSender") Message.Host = "smtp.krebsbiochemicals.com" Message.From = Request.Form("bodytext") Message.AddAddress "info@krebsbiochemicals.com" Message.Subject = "Email message from www.krebsbiochemicals.com" BodyToSend = ("Name : ") & Request.Form("name") & vbcrlf & ("Contact Number :") & Request.Form("contactno") & vbcrlf & ("Email : ") & Request.Form("bodytext") & vbcrlf & ("Message :") & Request.Form("message") & vbcrlf & _ "" & vbCRLF & _ "---- This email sent by visitor from www.krebsbiochemicals.com website ----" Message.Body = BodyToSend On Error Resume Next Message.Send If Err.Number = 0 Then Response.Redirect "thanku.html" Else Response.Write "ERROR REPORT" & Err.Description End If Set Message = Nothing End If %>