<%@LANGUAGE="VBSCRIPT"%> <% recaptcha_challenge_field = Request("recaptcha_challenge_field") recaptcha_response_field = Request("recaptcha_response_field") recaptcha_public_key = "6LdvmgsTAAAAABeKkJ1kojWjv4fsZYOccLresBy1" ' your public key recaptcha_private_key = "6LdvmgsTAAAAAEJRPFRkL5ii1XigQpEVAZy-DJsU" ' 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 = XXXXXXXXXXXXXXXXXXX("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 %> Modulo per contattare Multimedia Group

 

Multimedia Group Srl
S. P. Valle del Mignone, Km 1.600 - 01016 Tarquinia (VT)
Tel. +39 0766-843006 Fax +39 0766-843007 e-mail: info@multimediaallestimenti.it

* Nome:
"/>
* Telefono:
"/>
* Titolo:
"/>
* e-mail:
"/>
* Azienda:
"/>
"/>
"/>
"/>
"/>

* Commenti:

<%=recaptcha_challenge_writer()%>