<%
Dim IP_truth
' requesting the Visitors IP address
IP_truth = request.servervariables("Local_ADDR")
' Dim the number of IP's we are blocking
Dim NumberOf
'The number of IP's to be blocked
NumberOf = 1
' Dim the Array , the number MUST be the same as the above variable.
Dim Ip_array(1)
' We give values to the Array
Ip_array(0) = "207.62.243.62"
Ip_array(1) = "207.62.243.62"
For I = 0 to NumberOf
If Ip_array(I) = IP_truth then
Response.write "Sorry your IP address has been banned!"
Response.End
End If
next
%>
