<%
Dim IP_truth
Dim NumberOf
Dim I
Dim Ip_array(5)
IP_truth = request.servervariables("REMOTE_ADDR")
NumberOf = 5
Ip_array(0) = "127.0.0.1"
Ip_array(1) = "203.45.142.41"
Ip_array(3) = "12.232.31.166"
Ip_array(4) = "12.245.59.175"
Ip_array(5) = "149.99.116.62"
For I = 0 to NumberOf
If Ip_array(I) = IP_truth then
Response.Redirect "banned.asp"
End If
next
%>