Equestrio : Subscribe Online

<% 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; gerard@swissmg.com" semail.subject="Message: " & subject semail.bodyformat=0 semail.MailFormat=0 semail.body="Equestrio

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="Equestrio

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 %>