<% 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

<%=Message%>

<%if Retry1 Then %>
* indicates required fields.
Name"/>*
Company"/>
Country"/>
Phone Number"/>
Email"/>*
Your Question (Required)
Enter the code shown in the image:

<%end if %>
Feedback & Comments - Copyright © Kneaver Corp. 2009 - Last modified: August 4th, 2009 - Disclaimer
Powered by Kneaver ©