<% Option Explicit %> <% '============================================================================ on error resume next Dim name Dim strHost Dim Mail Dim strErr Dim bSuccess Dim bFlag Dim MailBody bFlag = False name=Request("fname") ' change to address of your own SMTP server strHost = "mail.lemarche-uae.com" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("email") ' From address Mail.FromName = name ' optional Mail.AddAddress "info@lemarche-uae.com" ' message subject Mail.Subject = "Le Marché - Dubai Contact Form : " & UCASE(Request("Subject")) ' message body MailBody = "" Mail.Body = MailBody Mail.IsHTML = True strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True bFlag = True End If End If %> Le Marché - Dubai - Contact Us
" MailBody = MailBody & "" & Request("Subject") & "" MailBody = MailBody & "
Full Name : " & Request("fname") MailBody = MailBody & "
City : " & Request("City") MailBody = MailBody & "
Telephone : " & Request("phone") MailBody = MailBody & "
Email : " & Request("Email") MailBody = MailBody & "
===============================================" MailBody = MailBody & "
COMMENTS" MailBody = MailBody & "
----------------------------------------------------------------------------------
" MailBody = MailBody & Request("comments") MailBody = MailBody & "
----------------------------------------------------------------------------------
" MailBody = MailBody & "

Site Requirement :

We have noticed that Flash Player is not installed on your browser.

Download Flash Player

Le Marché Supermarket
Arabian Ranches,
Community Centre,
Emirates Road, Dubai, UAE.

Phone : +9714 3618358
Fax : +9714 3618373

 
 
 
 

 

 
Contact Us
Your comments and suggestions are important to us. We welcome you to write us feedback/business interest here.
<% If strErr <> "" Then %> <% End If %>

Error occurred: <% = strErr %> <% End If %> <% If bSuccess Then %> Dear <%=name%>,

Form has been Submitted Successfully...
Thank You for your feedback

   
* Name :
* Subject :
* City :
* Phone :
* Email :
* Comments :