<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Dim recaptcha_secret, sendstring, objXML ' Secret key recaptcha_secret = "6Lcm_foSAAAAAFqf6p_OXiysrkSy7iU8pR2k53f8" sendstring = "https://www.google.com/recaptcha/api/siteverify?onload=onloadCallback&render=explicit&secret=" & recaptcha_secret & "&response=" & Request.form("g-recaptcha-response") Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP") objXML.Open "GET", sendstring, False objXML.Send dim result, oJSON, success, action, errorCapatcha, errorMsg result = (objXML.responseText) Set oJSON = New aspJSON oJSON.loadJSON(result) Set objXML = Nothing success = oJSON.data("success") if success = "True" then action = "go to next page" else action = "do nothing" end if END If %>

Свяжитесь с Нами