ip ban

hi , i want to ban somone . and i get help from MADDOG this is the Code :

<%
Dim IP_truth
Dim NumberOf

'Creating the Array, with the number of ip's your blocking (please note 0 = one , 1 = two - same as a Array!)
Dim Ip_array(5)

'Find Visters IP
IP_truth = request.servervariables("REMOTE_ADDR")

'At this point we are defining the number of IP addresses we are going to block (please note 0 = one , 1 = two - same as a Array!)
NumberOf = 5

'IP numbers to block (please note 0 = one , 1 = two - same as a Array!)
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"

'Here we are looping through the Array and checking the IP address of each, if a banned IP is found , we print out a statement saying that they are banned, and the page stops processing. You could always change the Response.write statement to a redirect to a Central Banned page.
For I = 0 to NumberOf
If Ip_array(I) = IP_truth then 

'Page to redirect if there IP is blocked
Response.Redirect "banned.asp"

End If 
next
%>

i changed the Ips . and it write me that whan i try to upload the Defualt Page (i added the Code to the Defualt)

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'I'

/zadax/default.asp, line 44

Tnx ,,,,,

one more thing  ..... i need to place the code in Eace of pages ?

or i can added it to one page and the ip will be blocked in all the Forum ?