Google ReCaptcha - Classic ASP - ERROR

Dev Shed Forums Sponsor:

December 7th, 2012, 03:07 AM

shaunswales

Registered User

Join Date: Dec 2012

Posts: 1

Time spent in forums: 5 m 31 sec
Reputation Power: 0

Google ReCaptcha - Classic ASP - ERROR

Hello,

I got someone to add Google ReCaptcha to a form, however since they have added it when you complete the form it doesn't submit the data to the database if the Captcha is correct.

The added some code to the page which I think could be causing the error, please can you look at it and debug, if needed to pay someone to sort it I will but it needs fixing today:

Response.write(Cstr(recaptcha_response_field))

server_response = ""

newCaptcha = True

if (recaptcha_challenge_field <> "" or recaptcha_response_field <> "") then
server_response = recaptcha_confirm(recaptcha_challenge_field, recaptcha_response_field)
newCaptcha = False
end if

postToDB = False

' if form submitted
if killChars(request.querystring("s")) = "t" then
If Len(server_response)=0 then
If newCaptcha=true then
postToDB = true
End if
End if
End if

Response.write(Cstr(postToDB))

if postToDB = True then
....

December 7th, 2012, 04:17 PM

Doug G

Grumpier Old Moderator

Dev Shed God 19th Plane (14000 - 14499 posts)

Join Date: Jun 2003

Posts: 14,257

Time spent in forums: 1 Month 4 Weeks 18 h 51 m 19 sec
Reputation Power: 4445

Post the complete error message you get, and identify the line of code that's generating the error.

And use the forum CODE tags around posted code.

__________________
======
Doug G
======
It is a truism of American politics that no man who can win an election deserves to. --Trevanian, from the novel Shibumi

February 1st, 2013, 10:57 AM

jayvee88

Registered User

Join Date: Jan 2013

Posts: 2

Time spent in forums: 35 m 42 sec
Reputation Power: 0

I just found this code.. Put this on top of your asp page.. Just need some tweaks..

Code:

<%
  recaptcha_challenge_field  = Request("recaptcha_challenge_field")
  recaptcha_response_field   = Request("recaptcha_response_field")
  recaptcha_public_key       = "your_public_key" ' your public key
  recaptcha_private_key      = "your_private_key" ' your private key

  ' returns the HTML for the widget
  function recaptcha_challenge_writer()

  recaptcha_challenge_writer = _
  "<script type=""text/javascript"">" & _
  "var RecaptchaOptions = {" & _
  "   theme : 'red'," & _
  "   tabindex : 0" & _
  "};" & _
  "</script>" & _
  "<script type=""text/javascript"" src=""http://www.google.com/recaptcha/api/challenge?k=" & recaptcha_public_key & """></script>" & _
  "<noscript>" & _
    "<iframe src=""http://www.google.com/recaptcha/api/noscript?k=" & recaptcha_public_key & """ frameborder=""1""></iframe><>" & _
      "<textarea name=""recaptcha_challenge_field"" rows=""3"" cols=""40""></textarea>" & _
      "<input type=""hidden"" name=""recaptcha_response_field""value=""manual_challenge"">" & _
  "</noscript>"

  end function

  ' returns "" if correct, otherwise it returns the error response
  function recaptcha_confirm(rechallenge,reresponse)

  Dim VarString
  VarString = _
          "privatekey=" & recaptcha_private_key & _
          "&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _
          "&challenge=" & rechallenge & _
          "&response=" & reresponse

  Dim objXmlHttp
  Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
  objXmlHttp.open "POST", "http://www.google.com/recaptcha/api/verify", False
  objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  objXmlHttp.send VarString

  Dim ResponseString
  ResponseString = split(objXmlHttp.responseText, vblf)
  Set objXmlHttp = Nothing

  if ResponseString(0) = "true" then
    'They answered correctly
     recaptcha_confirm = ""
  else
    'They answered incorrectly
     recaptcha_confirm = ResponseString(1)
  end if

  end function

  server_response = ""
  newCaptcha = True
  if (recaptcha_challenge_field <> "" or recaptcha_response_field <> "") then
    server_response = recaptcha_confirm(recaptcha_challenge_field, recaptcha_response_field)
    newCaptcha = False
  end if

  %>

And here's on the html part..

Code:

  <html>
  <body>

  <% if server_response <> "" or newCaptcha then %>

    <% if newCaptcha = False then %>

      <!-- An error occurred -->
      Wrong!

    <% end if %>

    <!-- Generating the form -->
    <form action="recaptcha.asp" method="post">
      <%=recaptcha_challenge_writer()%>
    </form>

  <% else %>

    <!-- The solution was correct -->
    Correct!

  <%end if%>

  </body>
  </html>

Google ReCaptcha - Classic ASP - ERROR

Developer Shed Advertisers and Affiliates