<% recaptcha_challenge_field = Request("recaptcha_challenge_field") recaptcha_response_field = Request("recaptcha_response_field") recaptcha_public_key = "6LcAZgkTAAAAAEoLFPsw0GotlsuwhrbckvufjacF" ' your public key recaptcha_private_key = "6LcAZgkTAAAAAICJyy_tkLXLi3qLpJ40AQKB5ZjJ" ' 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 %> ~ Emporio del Sub ~ contatti ~

Contattaci

Ho letto e accetto l'Informativa sulla Privacy (ai sensi del "Codice in materia di protezione dei dati personali", D.Lgs. n. 196/2003)

<%=recaptcha_challenge_writer()%>

Informazioni di contatto

Indirizzo:

Lungomare A. Doria, 4
Porto Ercole (GR)
58019 Monte Argentario

Store / Uffici:

Tel. e Fax (+39) 0564 833486

Prenotazioni posti barca e preventivi

Tel. e Fax (+39) 0564 833486
Cell. (+39) 333 8973918 (Giuseppe Tocco)

Email:

info@emporiodelsub.it

PEC:

emporiodelsub@pec.it