 |
<%
' if the form is not submiting then run the form
newform = Request.Form("submit")
if newform <> "Submit" then
%>
<%
' else send the email
else
mailTo= Request.Form("mailTo") & "info@bellabisque.com"
Subject= Request.Form("Subject")
Message= Request.Form("Message")
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
Mailer.FromName = "Contact Form"
Mailer.FromAddress = "support@bellabisque.com"
Mailer.Subject = "New Contact Form - " & Subject
Mailer.BodyText = Message
'Modifying RemoteHost due to internal network changes. Should just be mail-fwd now.
'Mailer.RemoteHost = "mail-fwd.sbc-webhosting.net"
Mailer.RemoteHost = "mail-fwd"
Mailer.AddRecipient mailTo, mailTo
if Mailer.SendMail then
' Message sent sucessfully
response.write "Your message was sent to " & mailTo
else
' Message send failure
response.write "Your message was not sent. " response.write "The error was: " & Mailer.Response & " " end if Set Mailer = Nothing end if %> |