Salve, riesco a far funzionare il codice ma il problema è che invia l'email anche se non fleggo il captcha. La differenza è che se fleggo nell'email ricevo anche il codice di verifica se non fleggo ricevo comunque l'email ma senza il codice captcha. Mi aiutate a capire dove sbaglio?
Grazie in anticipo
A
<%
Function recaptcha_check(respfield)
Dim objXML, secretkey, temp
secretkey = "_____________"
Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXML.open "POST", "https://www.google.com/recaptcha/api/siteverify?secret=" & secretkey & "&response=" & respfield & "&remoteip=" & Request.ServerVariables("REMOTE_ADDR"), False
objXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXML.send
temp = objXML.responseText
Set objXML = Nothing
If instr(temp, "success" & chr(34) & ": true") > 0 Then
recaptcha_check = True
Else
recaptcha_check = False
End If
End Function
%>
<script src='https://www.google.com/recaptcha/api.js'></script>
e nella pagina
<form id="ContactForm" NAME="form1" method="post" action="formcdosys_html_contatti.asp">
<input type="text" class="col-md-6 col-xs-12 name" name='nome' maxlength=50 value="" placeholder='<%=UtenteNome%> *'/>
<input type="text" class="col-md-6 col-xs-12 name" name='mail' maxlength=50 value="" placeholder='<%=UtenteEMail%> *'/>
<input type="text" class="col-md-6 col-xs-12 name" name='citta' maxlength=50 value="" placeholder='<%=UtenteCitta%> *'/>
<input type="text" class="col-md-6 col-xs-12 name" name='Telefono' maxlength=30 value="" placeholder='<%=UtenteTelefono%> *'/>
<textarea class="col-md-12 col-xs-12 Message" name='Messaggio' placeholder='<%=pagine166%> *'></textarea>
<div class="col-md-12 hr1">
<hr/>
</div>
<div class="col-md-12">
<div class="g-recaptcha" data-sitekey="_____________________________"></div>
</div>
<div class="col-md-12">
<input ID="button" type="submit" name="Submit" value="<%=pagine51%>" >
</div>
<%
Dim recaptcha_passed
recaptcha_passed = recaptcha_check(Request.Form("g-recaptcha-response"))
' Effettuo un controllo condizionale
If recaptcha_passed = False Then
' Errore di validazione ...
Response.Write "Codice sbagliato"
Else
Response.Write "Codice corretto"
End If
%>
</form>
