<%
Dim IpAdres
Dim Aantal
Dim Adressen_Array(7)
IpAdres = request.servervariables("REMOTE_ADDR")
Aantal_Adressen = 7
Adressen_Array(0) = "127.0.0.1"
Adressen_Array(1) = "192.168.0.1"
Adressen_Array(3) = "123.82.23.11"
Adressen_Array(4) = "45.232.123.2"
Adressen_Array(5) = "55.125.124.12"
Adressen_Array(6) = "55.133.142.6"
Adressen_Array(7) = "213.234.124.234"
For A = 0 to Aantal_Adressen
If Adressen_Array(A) = IpAdres then
Response.Redirect "geblokkeerd.asp"
End If
next
%>