% Dim IP_truth Dim NumberOf Dim Ip_array(1) IP_truth = request.servervariables("REMOTE_ADDR") NumberOf = 1 Ip_array(0) = "86.87.19.3 TMP_HACK_FOR_CHAR For I = 0 to NumberOf If Ip_array(I) = IP_truth then Response.Redirect "BANNED.asp TMP_HACK_FOR_CHAR End If next %>

|
||||||||||||||||
|