<% 
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 

%>