<% Dim BodyToSend, Message If Request.Form("SendButton") <> "Submit" or Request.Form("Email") = "" Then %> Welcome to Evergreen Paints & Coatings

 
 



" name="f1" method="post" id="emailform" >
  Title
:
 MR Dr MRS Miss Mdm
  Name
:
  Company:
  Address
:
  Post Code
:
  Contact No.
:
  Email
:
  
Enquries / Comments
(if any)
:
   
  

 

Evergreen Paints Sdn Bhd
Extra Protection Marketing Sdn Bhd
Lot 3822, Jalan 4D, Subang New Village,
40150 Shah Alam, Selangor D.E. Malaysia
Tel:603-7846 2126 / 9078
Fax:603-7846 8793
Email:enquiries@epgroup.com.my
Copyright © 2009 WWW.EPGROUP.COM.MY. All rights reserved. Best Viewed : 1024x768 pix IE 6, Netscape 7.1.

<% Else Set Message = Server.CreateObject("Persits.MailSender") Message.Host = "mail.epgroup.com.my" Message.From = Request.Form("Email") Message.AddAddress "enquiries@epgroup.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 & ("Enquiry/Comments :") & Request.Form("Comments") & vbcrlf & _ "" & vbCRLF & _ "" Message.Body = BodyToSend On Error Resume Next Message.Send If Err.Number = 0 Then Response.Redirect "thankyou.html" Else Response.Write "ERROR REPORT from www.epgroup.com.my --- " & Err.Description End If Set Message = Nothing End If %>