<% 'declare variables Dim sIP Dim sIParray(2) 'assign our blocked IP addresses to our array sIParray(0) = "69.49.96.8" sIParray(1) = "66.94.237.70" sIParray(2) = "72.51.27.51" slParray(3) = "38.113.1.97" slParray(4) = "82.79.25.81" slParray(5) = "24.110.72.220" slParray(6) = "82.79.25.81" slParray(7) = "207.155 252.134" slParray(8) = "64.14.72.102" slParray(9) = "206.125.211.133" slParray(10) = "75.44.46.19" slParray(11) = "205.178.145.65" slParray(12) = "208.109.193.212" slParray(13) = "69.10.135.149" slParray(14) = "70.47.34.32" slParray(15) = "64.202.189.170" SlParray(16) = "207.217.125.50" slParray(17) = "205.178.145.65" slParray(18) = "204.14.84.156" slParray(19) = "65.254.231.111" slParray(20) = "209.50.181.119" slParray(21) = "208.109.193.212" slParray(22) = "205.178.145.65" slParray(23) = "68.178.221.75" slParray(24) = "66.138.166.30" slParray(25) = "66.138.166.19" slParray(26) = "216.105.58.119" slParray(27) = "70.48.32.211" slParray(28) = "72.22.69.46" slParray(29) = "206.125.211.133" slParray(30) = "66.39.98.224" slParray(31) = "64.82.100.242" slParray(32) = "80.67.224.27" slParray(33) = "72.22.71.24" slParray(34) = "66.109.139.206" slParray(35) = "66.246.222.130" slParray(36) = "64.65.60.28" slParray(37) = "209.235.236.195" slParray(38) = "76.169.162.197" slParray(39) = "64.12.116.209" slParray(40) = "70.245.252.131" slParray(41) = "81.21.75.16" slParray(42) = "205.158.155.24" slParray(43) = "128.121.30.238" slParray(44) = "205.178.189.131" slParray(45) = "209.97.212.253" slParray(46) = "66.7.194.95" slParray(47) = "69.94.33.93" slParray(48) = "66.109.139.206" slParray(49) = "209.50.181.100" slParray(50) = "64.202.163.78" slParray(51) = "66.98.190.91" slParray(52) = "24.97.253.54" slParray(55) = "54.202.163.185" slParray(56) = "209.59.142.167" slParray(57) = "66.245.185.224" slParray(58) = "207.217.96.42" slParray(59) = "63.247.135.176" slParray(60) = "207.217.96.44" slParray(61) = "207.217.96.35" slParray(62) = "72.29.74.211" slParray(63) = "209.50.18.246" slParray(64) = "64.202.163.213" slParray(65) = "38.113.1.97" slParray(66) = "69.49.96.8" slParray(67) = "66.94.237.70" slParray(68) = "72.51.27.51" slParray(69) = "68.19.29.41" slParray(70) = "72.177.77.69" slParray(71) = "70.242.4.18" slParray(72) = "24.60.45.3" slParray(73) = "24.0.245.52" slParray(74) = "68.53.119.112" slParray(75) = "64.91.247.112" slParray(76) = "64.202.189.170" slParray(77) = "70.36.254.231" slParray(78) = "65.38.168.180" slParray(79) = "66.70.38.23" slParray(80) = "208.109.4.251" slParray(81) = "80.67.224.27" slParray(82) = "209.50.181.100" slParray(83) = "72.22.69.46" slParray(84) = "64.202.163.78" slParray(85) = "64.202.163.213" slParray(86) = "216.14.214.2" slParray(87) = "68.178.233.209" slParray(88) = "64.20.33.131" slParray(89) = "68.142.212.43" slParray(90) = "208.254.3.166" slParray(91) = "70.166.61.170" slParray(92) = "216.120.231.253" slParray(93) = "67.941.16" slParray(94) = "216.219.94.122" slParray(95) = "64.202.166.207" slParray(96) = "207.36.3.75" slParray(97) = "207.194.37.78" slParray(98) = "71.185.37.44" slParray(99) = "76.169.238.199" slParray(100) = "216.120.252.191" slParray(101) = "205.178.152.17" slParray(102) = "38.102.33.24" slParray(103) = "70.15.82.163" slParray(104) = "71.172.23.35" slParray(105) = "64.12.116.119" slParray(106) = "71.71.88.49" slParray(107) = "75.43.193.89" slParray(108) = "65.110.70.76" slParray(109) = "66.39.118.208" slParray(110) = "68.142.212.129" slParray(111) = "71.18.40.96" slParray(112) = "208.1.62.200" slParray(113) = "68.142.212.118" slParray(114) = "70.47.34.244" slParray(115) = "24.21.29.173" slParray(116) = "59.551.2.10" slParray(117) = "24.126.0.0" slparray(118) = "24.127.127.255" slParray(119) = "199.173.224.32" slParray(120) = "208.109.193.212" slParray(121) = "72.161.3.200" slParray(122) = "65.4.212.39" slParray123) = "75.43.206.6" slParray(124) = "70.245.252.131" slParray(125) = "64.12.117.5" slParray(126) = "64.12.0.0" slParray(127) = "64.12.255.255" slParay(128) = "207.69.139.145" slParay(129) = "68.51.37.167" slParray(130) = "68.142.212.118" slParray(131) = "68.108.51.142" slParray(132) = "24.253.67.31" slParray(133) = "222.253.67.31 slParray(134) = "66.94.237.78" slParray(135) = "69.25.142.57" slParray(136) = "74.202.196.132" slParray(137) = "209.59.136.18" slParray(138) = "209.203.245.191" 'retrieve the visitors IP address sIP = Request.ServerVariables("REMOTE_ADDR") 'loop through the banned IPs using the UBound function For i = 0 to UBound(sIParray) 'check if IP address matches any of the blocked IPs If sIP = sIParray(i) Then Response.Redirect "no_access.asp" End If Next %>