<% recaptcha_challenge_field = Request("recaptcha_challenge_field") recaptcha_response_field = Request("recaptcha_response_field") recaptcha_public_key = "6Ld9OucSAAAAAKzscP4Qt0rvsxd9ArgxS-rYXKhx" ' your public key recaptcha_private_key = "6Ld9OucSAAAAAM5YaGQQ2_LSfWOQm8iuNiKccqzz" ' your private key ' returns the HTML for the widget function recaptcha_challenge_writer() recaptcha_challenge_writer = _ "" & _ "" & _ "" 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 %> <% if server_response <> "" or newCaptcha then %>

"/> Campo requerido.Formato no valido.

"/> Campo requerido.Formato no valido.Faltan caracteres.Exede el numero maximo de caracteres.

"/> Campo requerido.Invalid format.

"/> Campo requerido.Formato no valido.Faltan caracteres.Exede el numero maximo de caracteres.

"/> Campo requerido.Invalid format.

Selccione una opcion.

"/> Campo requerido.Invalid format.

<%=recaptcha_challenge_writer()%> <% if newCaptcha = False then %> las palabras no coinciden <% end if %>

<% else %> Correct! <%end if%>