<% option explicit %>
<% Response.buffer = true %>
<%
Dim ApplicationName
ApplicationName = "RSWebEdit"
%>
<%
Function IsSetAndFilled(a)
if ( not IsSet(Request.Form(a) ) ) Then
IsSetAndFilled = false
Exit Function
end if
if ( Len(Request.Form(a)) = 0 ) Then
IsSetAndFilled = false
Exit Function
end if
IsSetAndFilled = true
End Function
Dim Message
Message = ""
Dim Retry1
Retry1 = true
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Retry1 = false
if not IsSetAndFilled("Body" ) Then
Message = Message + " Body is empty"
Retry1 = true
end if
if not IsSetAndFilled("Email" ) Then
Message = Message + " Email is empty"
Retry1 = true
end if
if not IsSetAndFilled("Name" ) Then
Message = Message + " Name is empty"
Retry1 = true
end if
Dim URL
URL = ""
if ( IsSet(Request.Form("URL") ) ) Then
URL = Request.Form( "URL")
end if
if not retry1 then
Dim HTTPHelper
set HTTPHelper = CreateObject("RSWebHelper.RSWebHelper1")
Dim resultString
resultString = HTTPHelper.FetchURL("http://protectwebform.com/verify/29344_jth61p5r3z9q_" + Request.ServerVariables("UserHostAddress") + "/" + Request.Form("protectwebformcode") + "/")
If InStr(resultString,"") Then
Message = "The image code you have provided does not match the actual one. Hit the 'back' button of your browser and input the correct code please."
Retry1 = true
end if
end if
end if
if not retry1 then
Dim FBody
Fbody = ""
FBody = Fbody & "A Comment was sent for page " & URL & " of site " & "kneaver.com" ' Request.Form( "WebRoot")
FBody = Fbody & chr(13) & chr(10)
FBody = Fbody & "By " & Request.Form( "Name") & " with email " & Request.Form( "Email")& " PH:" & Request.Form( "Phone")
FBody = Fbody & chr(13) & chr(10)
FBody = Fbody & "Company " & Request.Form( "Company") & " in " & Request.Form( "Country")
FBody = Fbody & chr(13) & chr(10)
FBody = FBody + Request.Form( "Body")
Dim FSubject
FSubject = "Question from " & Request.Form( "Name")
Err.Clear
Dim SendMail
Set SendMail = CreateObject("RSSendMail.RSSendMail.1")
'Response.write Err.Number & " " & Err.Description
Err.Clear
Dim Ret
ret = SendMail.SendMail( "feedback_robot@kneaver.com", "Feedback Robot", "website_feedback@kneaver.com", "Website Feedback", "", FSubject,FBody,"","","")
'Response.write Err.Number & " " & Err.Description
Err.Clear
Message = "Your comment was sent"
Retry1 = false
End If
End if
%>
Kneaver | Submit Feedback
