<% If Request("submit") <> "" Then dim errors(4) errored = false if request("name") = "" then errors(0) = "Please enter your name" errored = true end if if request("email") = "" then errors(1) = "Please enter your email address" errored = true end if if request("email") <> "" and not IsEmail(request("email")) then errors(1) = "Your email address appears to be invalid" errored = true end if if request("subject") = "" then errors(2) = "Please enter a subject" errored = true end if if request("message") = "" then errors(3) = "Please enter a message" errored = true end if if not errored then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = mailHost message = replace(request("message"), VbCrLf, "
") message = clearUnSafeTags(message) subject = clearUnSafeTags(request("subject")) name = clearUnSafeTags(request("name")) email = clearUnSafeTags(request("email")) emailHtml = "
" emailHtml = emailHtml & "

The following submission was made on the " & date & " at " & time & "

" emailHtml = emailHtml & "" emailHtml = emailHtml & "" emailHtml = emailHtml & "" emailHtml = emailHtml & "" if request("rating") <> "" then emailHtml = emailHtml & "" end if emailHtml = emailHtml & "" emailHtml = emailHtml & "" emailHtml = emailHtml & "" emailHtml = emailHtml & "
Name" & name & "
Email" & email & "
Subject" & subject & "
Site Rating" & request("rating") & "
Message" & message & "

IP" & request.serverVariables("REMOTE_ADDR") & "
User Agent" & request.serverVariables("HTTP_USER_AGENT") & "
" emailHtml = emailHtml & "

Sent by University of Veterinary & Animal Sciences

" Mail.From = email Mail.FromName = name Mail.AddAddress adminEmailAddress Mail.Subject = subject Mail.Body = emailHtml Mail.IsHTML = true success = false On Error Resume Next Mail.Send if Err <> 0 then errors(4) = Err.Description errored = true else success = true end if end if end if if success then thankYouMessage = Replace(thankYouMessage, "%name%", name) thankYouMessage = Replace(thankYouMessage, "%email%", email) thankYouMessage = Replace(thankYouMessage, "%subject%", subject) thankYouMessage = Replace(thankYouMessage, "%message%", message) response.write(thankYouMessage) else if errored then response.write("
") response.write(errorMessage) response.write("
    ") for i = lbound(errors) to ubound(errors) if errors(i) <> "" then response.write("
  • " & errors(i) & "
    • ") end if next response.write("
") response.write("
") end if %>
"> <% if showRating then %> <% end if %>
 

We appreciate your comments and suggestions.
Name " > *
Email " > *
Subject " > *
Message *
   
  * Required fields  
<% end if %>