| <%
function a2zVerifyCheck(sVerificationCode,a2zVerifyWebmasterId)
set a2zVerifyCheckHttp=server.CreateObject("Microsoft.XMLHTTP")
dim sUrl
sUrl="http://www.humanverify.com/a2zVerify/a2zCheck.asp?u=" & a2zVerifyWebmasterId & "&id=" & sVerificationCode
a2zVerifyCheckHttp.open "GET", sUrl, false
a2zVerifyCheckHttp.send
a2zVerifyCheck=a2zVerifyCheckHttp.responsetext
set a2zVerifyCheckHttp=nothing
end function
dim sid
sid=Request("id")
if a2zVerifyCheck(sid,"YOUR_HUMANVERIFY_ID") then
Response.write " Valid User"
'You can proceed and let this user use your website
else
Response.write " InValid User"
'This user did not enter the correct HumanVerify Code
end if
%>
|
E-mail: fashion@fashionart.it