<% ' if the form is not submiting then run the form newform = Request.Form("submit") if newform <> "Submit" then %>
FirstName
LastName:
DaytimePhone:
Subject:
Comments:
<% ' 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 %>