ho preso questo da fsf
serve a bloccare la visita del sito ad alcuni ip presenti in un database
non riesco a far funzionare lo script.

mi potreste aiutare per favore mi serve per bloccare una marea di spammers dal mio sito!

grazie!!

alessandro


codice:
<% 
ip_utente = Request.ServerVariables("REMOTE_ADDR")
userhost = Request.ServerVariables("REMOTE_HOST")
'controllo se il tuo ip è inserito all'interno del db


servf = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/blocca_ip.mdb")
set rec = server.createobject("ADODB.Recordset")

sql = "select ip from tbl_ip_lista where ip ='" & ip_utente & "'"


ipin = "N"
%>


<font size="2" color="#008000">Your IP address is:</font><font color="#008000" size="6"><%Response.Write(ip_utente)%>
</font>

<font color="#008000" size="2">l'ipin è:<%Response.Write(ipin)%>
</font></p>
<% 
ipin = "N"



rec.Open sql, servf
if rec.eof then
ipin = "Y"
end if
rec.close
%>




<%
'se l'ip è nel database allora:
if ipin <> "Y" then
Response.Status = "403 Access Forbidden"
Response.Write Response.Status
Response.End
End If
%>