grazie... all'inizio di ogni pagina protetta ho inserito questo codice.
codice:
If request.cookies("innovatel.it_accesso")("valido")<>"ok" Then %>
<script>
window.open("pass/logon.asp?referer=<%=Request.ServerVariables("URL")%>","nomeFinestra","top=250,left=350,width=300,height=250");
</script>
<%
Response.End
End If
che "respinge" o "autorizza" alla navigazione nell'area protetta; nel caso in cui lo script autorizza, i dati dell'utente (nome, data accesso, ora accesso) vengono registrati in una tabella di un db access, chiamata "accessi", tramite questo codice:
codice:
dim strUser
strUser=request.form("user")
dim strCode
strCode=request.form("codice")
strCode=cripta(strCode,key)
strReferer = Request.Form("referer")
SET objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = cn
strSql = "SELECT * FROM codici WHERE userName='"&strUser&"' AND userCode='"&strCode&"'"
objRS.Open strSQL
IF objRS.EOF THEN
ChiudiDB()
Response.Redirect "logon.asp?referer=" & strReferer
ELSE
Response.Cookies("innovatel.it_accesso")("valido")="ok"
Response.cookies("innovatel.it_accesso")("nome")=objRS("utente_id")
Session("user") = Request("user")
Session("id_utente") = objRS("utente_id")
data = date()
tempo = time()
Sql = "INSERT INTO ACCESSI (UTENTE, DATA, ORA)VALUES('"& strUser &"', #"& data &"#, '"& tempo &"')"
cn.Execute(SQL)
ChiudiDB()
Response.Redirect strReferer
END IF
SUB ChiudiDB()
Cn.Close
SET Cn = Nothing
END SUB
%>
E' su questo codice che devo agire per "contare" i tentativi di accessi ed al terzo andato male bloccare l'account??? :master: