<%
If request.form("action")="Send E-mail" then
on error resume next
Set Mail = CreateObject("CDONTS.Newmail")
if err.number = 0 then
Mail.From = request.form("UserEmail")
Mail.To = "landandlit@bsu.edu"
Mail.Subject = request.form("subject")
Mail.Body = request.form("body")
Mail.Send
Set Mail = Nothing
%>
<%
Response.Redirect("success.asp")
else
Response.Redirect("failure.asp")
end if %>
|
<% Else %>
Contact Us
If you
have any questions or comments, please contact
us via the form below. Please understand that we do not have contact information for authors listed on this site. If you would like to contact the authors, direct your questions to the publishers' of the authors' books.
<% End If %>