<%@ Language="VBScript" %> MAXPERIAL SDN. BHD.

<% Session("plvalid") = false if Request.Form("dummy") = "SendMail" then session("plvalid") = true SendMail %>

Thank You
 
MAXPERIAL SDN. BHD.
 

Enquiry form has succesfully sent to Administrator.


<% Response.End end if %> <%if Session("plvalid") = false then %>

Tell us what you think about our web site, our products, our organization, or anything else that comes to mind. We welcome all of your comments and suggestions.

Tell us how to get in touch with you:

Name
E-mail
Tel
Fax
Address

 

Please send me more information about...

 
 
<% Sub SendMail() set myMail = Server.CreateObject("CDONTS.NewMail") if len(trim(Request.Form("SubjectOther"))) > 0 then SubjectOther = Request.Form("SubjectOther") else SubjectOther = "------" end if body = "-----------------------------------------------------" & chr(13) body = body & "This message is generate upon the user enquiry form." & chr(13) body = body & "-----------------------------------------------------" & chr(13) & chr(13) & chr(13) body = body & "Comments" & chr(13) body = body & "--------" & chr(13) & Request.Form("Comments") & chr(13) & chr(13) body = body & "Name : " & Request.Form("Name") & chr(13) body = body & "E-mail : " & Request.Form("UserEmail") & chr(13) body = body & "Tel : " & Request.Form("UserTel") & chr(13) body = body & "Fax : " & Request.Form("UserFax") & chr(13) body = body & "Address : " & Request.Form("Address") & chr(13) mymail.from = trim(Request.Form("UserEmail")) mymail.to = "maxperial@maxperial.com" mymail.bcc = "lth5007@yahoo.com" mymail.subject = "MAXPERIAL Enquiry" & Subject mymail.body = body mymail.send set mymail = nothing End Sub %> <%end if%>