<%
Dim ipno
Dim Toplam
Dim Ip_Array(5)
ipno = Request.ServerVariables("REMOTE_ADDR" )
Toplam = 5
Ip_Array(0) = "88.250.236.169"
Ip_Array(1) = ""
Ip_Array(3) = ""
Ip_Array(4) = ""
Ip_Array(5) = ""
For I = 0 To Toplam
If not Ip_Array(I) = ipno Then
Response.redirect "ban.asp"
End If
Next

Bu şekilde olabilir