<%@ Language=VBScript %>
<%Response.Expires = 0
Response.Buffer = True
If Request.Form("feedback") = "Submit" then
CustName = Request.Form("Fname") & " " & Request.Form("Lname")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = CustName
If Request.Form("email") = "" then
Mailer.FromAddress = "info@magnificatpress.com"
Else
Mailer.FromAddress = Request.Form("email")
End If
Mailer.RemoteHost = "mail.magnificatpress.com"
Mailer.AddRecipient "Paul O'Connell", "info@magnificatpress.com"
Mailer.Subject = "Magnificat Press Feedback Form"
Mailer.BodyText = Request.Form("comments")
Mailer.RemoteHost = "mail.magnificatpress.com"
if Mailer.SendMail then
' Message sent sucessfully
Call PopBox ()
else
' Message send failure response.write ("Your message was not sent. ")
response.write ("There was an error sending your message: " & Mailer.Response)
end if
Else
Call Feedback ()
End If
%>
<%Sub Feedback ()%>
Magnificat Institute Press Contact Info
Contact Information
If you have any questions, comments, complaints, criticisms or suggestions in regard to our website or books, please contact us
at:
<%End Sub%>
<%Sub PopBox ()%>
Magnificat Institute Press Contact Info
Contact Information
If you have any questions, comments, compliants, criticisms or suggestions in regard to our website or books, please contact us at: