asp ile ip adresi block etme

<%
Dim ipno
Dim Toplam

' array listesini tanimliyoruz (unutmayin ki 0 = 1 degerini alir, 1 = 2 değerini alir)
Dim Ip_array(5)

ipno = Request.ServerVariables("REMOTE_ADDR") //kullanıcının IP Adresi Tespiti

'Toplam array sayisini belirtiyoruz, bloke olacak IP ler için
Toplam = 3

'Bloke edilen IP adresi numaralarını tanımlıyoruz.
' (Database kullanarakta yapabilirsiniz)
Ip_array(0) = "127.0.0.1"
Ip_array(1) = "150.150.150.1"
Ip_array(3) = "12.100.45.77"
.......................................
.......................................
.......................................


'Ip bloke için döngü kuruyoruz.
For I = 0 to Toplam
If Ip_array(I) = ipno Then

'eğer sayfaya giren kullanıcının IP numarası kayıtlarda var ise buna karşılık bir bilgilendirme sayfasına yönlendirme yapıyoruz.

Response.Redirect "iptespit.asp"

End If
Next
%>