<% Dim BodyToSend, Message If Request.Form("SendButton") <> "Submit" or Request.Form("Email") = "" Then %> Welcome to ACTIONPACK BONDED SERVICES SDN BHD

 

 
  Office and Mailing Address :
No 5-1, Jalan 51/205, The Highway Centre,
46050 Petaling Jaya, Selangor Darul Ehsan,
Malaysia.
 
Tel
:
 +603-7785 7088 / 7785 9088
 
Fax
:
 +603-7782 0098
       
 


" NAME="f1" METHOD="post" ID="emailform" >
Title :
 MR Dr MRS Miss Mdm
Name :
Company Name :
Address :
Postal Code :
Contact No. :
(eg. 0321418973)
Email :
Comments
(if any) :
 
  

 


 


Copyright @ 2008 ACTIONPACK BONDED SERVICES SDN BHD. All Rights Reserved
<% Else Set Message = Server.CreateObject("Persits.MailSender") Message.Host = "mail.actionpackbonded.com.my" Message.From = Request.Form("Email") Message.AddAddress "guna@actionpackbonded.com.my" Message.Subject = "INQUIRY FORM" BodyToSend = ("Title:") & Request.Form("Title") & vbcrlf & ("Name : ") & Request.Form("company") & vbcrlf & ("Company Name : ") & Request.Form("Name") & vbcrlf & ("Address :") & Request.Form("Address") & vbcrlf & ("Postal Code : ") & Request.Form("Pcode") & vbcrlf & ("Contact No : ") & Request.Form("Contact") & vbcrlf & ("Email :") & Request.Form("Email") & vbcrlf & ("Comments :") & Request.Form("Comments") & vbcrlf & _ "" & vbCRLF & _ "---- ACTIONPACK BONDED SERVICES SDN BHD ----" Message.Body = BodyToSend On Error Resume Next Message.Send If Err.Number = 0 Then Response.Redirect "thankyou.html" Else Response.Write "ERROR REPORT from ACTIONPACK BONDED SERVICES SDN BHD --- " & Err.Description End If Set Message = Nothing End If %>