<% Dim semail Dim remail 'fname = Request("Name") 'email = Request("Email") 'subject = Request("Subject") 'message = Request("Message") fname = Request("name") email = Request("email") address = Request("address") city = Request("city") country = Request("country") zip = Request("zip") phone = Request("phone") fax = Request("fax") comments= Request("comments") tdy = Now() 'Response.write("Name: "+fname+"
") 'Response.write("Address: "+address+"
") 'Response.write("City: "+city+"
") 'Response.write("Country: "+country+"
") 'Response.write("Email: "+email+"
") if Request("action") <> "" Then set semail=server.createobject("CDONTS.NewMail") semail.from=email semail.to="arabia@equestrio.com" semail.subject="Message: " & subject semail.bodyformat=0 semail.MailFormat=0 semail.body="GenesisNext
Hi,

I would like to subscribe to Equestrio magazine. My details are follow:

Name: "&fname&"
Address: "&address&"
City: "&city&"
Country: "&country&"
Zip Code: "&zip&"
Phone: "&phone&"
Fax: "&fax&"
Email: "&email&"
Comments: "&comments&"
Date: "&tdy&"

Regards,
"&fname&"
" semail.send set semail=nothing set remail=server.createobject("CDONTS.NewMail") remail.from="arabia@equestrio.com" remail.to=email remail.subject="Thank you" remail.bodyformat=0 remail.MailFormat=0 remail.body="GenesisNext
Dear "&fname&"

Thanks for your request, we will get back to you soon.

We appreciate and thank for your interest in Equestrio and look forward for your kind response.

Thanking you and assuring you our best services always

Regards
Equestrio
" remail.send set remail=nothing 'response.Write("&status=success") Else 'response.Write("&status=failure") End If %>
Home About us Subscribe online Advertising Links Contact us  
       

 
Name *
Address
City
Country
ZIP
E-mail *
Telephone
Fax
Comments
 
         
  LCM PUBLISHING LLC 601 Sheik Essa Tower Sheik Zayed Road PO Box 50954, Dubai, UAE.
  Tel: +971 4 3432270 Fax: +971 4 3432280 Email: arabia@equestrio.com www.equestrio.com