<%@LANGUAGE="VBSCRIPT"%>
<%
if (Request("Submit") = "Submit") then
set Mail = Server.CreateObject("Persits.MailSender")
set AutoResponse = Server.CreateObject("Persits.MailSender")
Mail.AddAddress ("info")
' Mail.AddBcc ("isantacruz")
Mail.Host = "mail.moroccointeriors.com"
Mail.From = Request("email")
Mail.FromName = Request("name")
Mail.Subject = "Contact - Morocco Interiors/Andalusian Floors"
temp_body = "Name: " & Request("name")
temp_body = temp_body & chr(13) & chr(10)
temp_body = temp_body & "Email: " & Request("email")
temp_body = temp_body & chr(13) & chr(10)
Mail.Body = temp_body
Mail.Send
AutoResponse.AddAddress (Request("email"))
AutoResponse.Host = "mail.moroccointeriors.com"
AutoResponse.From = "info"
AutoResponse.FromName = "Morocco Interiors"
AutoResponse.Subject = "Web Contact Form"
AutoResponse.Body = "This is an autoresponder, thank you for your request."
AutoResponse.Send
if (Err.Description <> "") then
Response.Redirect("http://moroccointeriors.com/thanks.html")
else
Response.Redirect("http://moroccointeriors.com/oops.html")
end if
end if
%>
Morocco Interiors: Subscribe
Please subscribe to our mailing list to
receive
e-mail notifications of
specials, updates, and
news. Additionally,
you
will learn of the arrival of
new containers from our
Casablanca
location.
