<% 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 your place" 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("SMTPsvg.Mailer") Mail.RemoteHost = mailHost 'message = replace(request("message"), VbCrLf, "
") 'message = clearUnSafeTags(message) message = clearUnSafeTags(request("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 & "

Powered by CJ ASP Feedback Form V1.0

" Mail.FromAddress = email Mail.FromName = name Mail.AddRecipient "electrofriends", adminEmailAddress message = message & vbcrlf & vbcrlf & "Place : " & subject & vbcrlf & "Site Rating : " & request("rating") subject = "Feedback from electrofriends" Mail.Subject = subject Mail.BodyText = message 'Mail.IsHTML = true success = false On Error Resume Next Mail.SendMail 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) Response.Redirect("http://electrofriends.com/feedback/tosent.html") else if errored then response.write("
") response.write(errorMessage) response.write("") response.write("
") end if %>
<% if showRating then %> <% end if %>
Name " size="25">
Email " size="25">
Place " size="25">
Site Rating
Message
 
<% end if %>