<% 
set rsipban = conn.execute("select * from bolgesel order by id desc")
if rsipban.EOF then %>
<%Else %>
<%
' ### Hangi aralikta baslayacaksa.
BaslangicIP = rsipban("BaslangicIP")
BaslangicSp  = Split(BaslangicIP, ".")
BaslangicIP = (BaslangicSp(0)*(256*256*256)) + (BaslangicSp(1)*(256*256)) + (BaslangicSp(2)*256) + (BaslangicSp(3))
' ### Hangi aralikta bitecekse
BitisIP = rsipban("BitisIP")
BitisSp  = Split(BitisIP, ".")
BitisIP  = (BitisSp(0)*(256*256*256)) + (BitisSp(1)*(256*256)) + (BitisSp(2)*256) + (BitisSp(3))
' ### hangi ip aranacaksa
AranacakIP  = Request.ServerVariables("REMOTE_HOST")
AranacakSp  = Split(AranacakIP, ".")
AranacakIP = (AranacakSp(0)*(256*256*256)) + (AranacakSp(1)*(256*256)) + (AranacakSp(2)*256) + (AranacakSp(3))
If BaslangicIP < AranacakIP and BitisIP > AranacakIP Then
    response.redirect("lamer.asp" )
Else
 Response.write ""
End If
%>
Merhaba arkadaşlar bu şekilde bölgesel ban scriptim var veri tabanına baglı degıldı bu kodu accessdan verı cekecek duruma getırdım fakat ban sistemine eklediğim tüm IP adreslerini değil sadece son eklediğim IP adresini bolgesel olarak yasaklıyor eski eklenen Ip lerin yasakları işlemiyor bunu nasıl veri tabanındaki tüm IP leri okuyacak şekile getirebiliriz..