<% Dim strIPAddress Dim intIPLoopCounter 'Creating the Array, with the number of ip's your blocking 'Please note 0 = one , 1 = two - same as a Array! Dim saryIPArray(173) 'Find users IP strIPAddress = request.servervariables("REMOTE_ADDR") 'IP numbers to block 'Please Note 0 = one , 1 = two - same as a Array! saryIPArray(0) = "41.204.224.24" saryIPArray(1) = "41.207.160.91" saryIPArray(2) = "41.207.162.4" saryIPArray(3) = "41.207.162.2" saryIPArray(4) = "41.207.162.6" saryIPArray(5) = "58.65.235.195" saryIPArray(6) = "59.139.20.98" saryIPArray(7) = "60.47.2.176" saryIPArray(8) = "61.142.246.106" saryIPArray(9) = "61.213.120.5" saryIPArray(10) = "62.56.146.187" saryIPArray(11) = "62.56.186.205" saryIPArray(12) = "62.56.189.1" saryIPArray(13) = "62.56.189.3" saryIPArray(14) = "62.56.189.4" saryIPArray(15) = "62.56.189.8" saryIPArray(16) = "62.56.189.20" saryIPArray(17) = "62.56.189.33" saryIPArray(18) = "62.56.189.45" saryIPArray(19) = "62.56.189.66" saryIPArray(20) = "62.56.189.86" saryIPArray(21) = "62.56.189.89" saryIPArray(22) = "62.56.189.95" saryIPArray(23) = "62.56.189.100" saryIPArray(24) = "62.56.189.102" saryIPArray(25) = "62.56.189.108" saryIPArray(26) = "62.56.189.136" saryIPArray(27) = "62.56.189.152" saryIPArray(28) = "62.56.189.155" saryIPArray(29) = "62.56.189.205" saryIPArray(30) = "62.56.189.213" saryIPArray(31) = "62.56.189.218" saryIPArray(32) = "62.56.189.221" saryIPArray(33) = "62.56.191.1" saryIPArray(34) = "62.56.191.66" saryIPArray(35) = "62.56.191.114" saryIPArray(36) = "62.56.191.178" saryIPArray(37) = "62.56.191.179" saryIPArray(38) = "62.56.191.242" saryIPArray(39) = "62.56.191.243" saryIPArray(40) = "62.57.23.174" saryIPArray(41) = "62.161.27.52" saryIPArray(42) = "66.197.3.38" saryIPArray(43) = "68.201.31.72" saryIPArray(44) = "69.225.45.227" saryIPArray(45) = "69.229.55.14" saryIPArray(46) = "70.144.152.86" saryIPArray(47) = "80.58.1.111" saryIPArray(48) = "80.88.128.12" saryIPArray(49) = "80.179.249.199" saryIPArray(50) = "80.179.251.98" saryIPArray(51) = "80.179.254.10" saryIPArray(52) = "80.179.254.26" saryIPArray(53) = "80.248.64.1" saryIPArray(54) = "80.248.64.50" saryIPArray(55) = "80.248.64.59" saryIPArray(56) = "80.248.65.158" saryIPArray(57) = "80.248.65.169" saryIPArray(58) = "80.248.65.172" saryIPArray(59) = "80.248.70.1" saryIPArray(60) = "80.248.70.12" saryIPArray(61) = "80.248.70.23" saryIPArray(62) = "80.248.70.28" saryIPArray(63) = "80.248.70.35" saryIPArray(64) = "80.248.70.40" saryIPArray(65) = "80.248.70.56" saryIPArray(66) = "80.248.70.57" saryIPArray(67) = "80.248.70.83" saryIPArray(68) = "80.248.70.85" saryIPArray(69) = "80.248.70.98" saryIPArray(70) = "80.248.70.101" saryIPArray(71) = "80.248.70.118" saryIPArray(72) = "80.248.70.137" saryIPArray(73) = "80.248.70.142" saryIPArray(74) = "80.248.70.149" saryIPArray(75) = "80.248.70.176" saryIPArray(76) = "80.248.70.177" saryIPArray(77) = "80.248.71.34" saryIPArray(78) = "80.248.71.212" saryIPArray(79) = "80.255.40.251" saryIPArray(80) = "80.255.51.6" saryIPArray(81) = "80.255.59.74" saryIPArray(82) = "81.9.19.22" saryIPArray(83) = "81.91.237.239" saryIPArray(84) = "81.91.238.110" saryIPArray(85) = "81.91.239.101" saryIPArray(86) = "81.177.14.5" saryIPArray(87) = "81.177.14.7" saryIPArray(88) = "81.199.2.67" saryIPArray(89) = "81.199.6.44" saryIPArray(90) = "81.199.83.40" saryIPArray(91) = "81.199.105.102" saryIPArray(92) = "81.199.105.116" saryIPArray(93) = "81.199.105.170" saryIPArray(94) = "81.199.105.182" saryIPArray(95) = "81.199.105.230" saryIPArray(96) = "81.199.106.187" saryIPArray(97) = "81.218.220.99" saryIPArray(98) = "82.128.1.14" saryIPArray(99) = "82.128.1.78" saryIPArray(100) = "82.128.1.200" saryIPArray(101) = "82.128.2.106" saryIPArray(102) = "82.128.2.211" saryIPArray(103) = "82.193.38.154" saryIPArray(104) = "82.193.100.27" saryIPArray(105) = "82.200.6.1" saryIPArray(106) = "83.78.145.158" saryIPArray(107) = "83.143.69.34" saryIPArray(108) = "83.170.232.220" saryIPArray(109) = "84.193.45.245" saryIPArray(110) = "85.18.14.39" saryIPArray(111) = "85.21.249.75" saryIPArray(112) = "89.178.133.248" saryIPArray(113) = "124.44.4.113" saryIPArray(114) = "160.218.168.144" saryIPArray(115) = "167.245.244.2" saryIPArray(116) = "170.222.97.223" saryIPArray(117) = "172.156.204.128" saryIPArray(118) = "192.116.71.197" saryIPArray(119) = "192.138.77.36" saryIPArray(120) = "193.220.26.69" saryIPArray(121) = "193.220.178.60" saryIPArray(122) = "194.44.198.45" saryIPArray(123) = "194.44.247.55" saryIPArray(124) = "194.79.132.27" saryIPArray(125) = "194.85.82.1" saryIPArray(126) = "195.8.26.51" saryIPArray(127) = "195.8.26.185" saryIPArray(128) = "195.171.179.70" saryIPArray(129) = "196.201.73.74" saryIPArray(130) = "196.201.87.100" saryIPArray(131) = "196.207.208.53" saryIPArray(132) = "200.48.93.65" saryIPArray(133) = "200.85.34.114" saryIPArray(134) = "200.138.34.215" saryIPArray(135) = "202.59.205.162" saryIPArray(136) = "202.146.236.4" saryIPArray(137) = "202.147.165.36" saryIPArray(138) = "202.147.165.73" saryIPArray(139) = "203.39.81.7" saryIPArray(140) = "203.88.130.41" saryIPArray(141) = "203.88.152.91" saryIPArray(142) = "203.187.198.197" saryIPArray(143) = "203.187.203.114" saryIPArray(144) = "204.43.192.70" saryIPArray(145) = "205.213.111.54" saryIPArray(146) = "206.74.182.29" saryIPArray(147) = "207.50.236.50" saryIPArray(148) = "210.197.230.243" saryIPArray(149) = "212.100.65.118" saryIPArray(150) = "212.117.151.85" saryIPArray(151) = "212.122.188.210" saryIPArray(152) = "212.142.143.116" saryIPArray(153) = "213.113.91.152" saryIPArray(154) = "213.136.104.78" saryIPArray(155) = "213.136.106.22" saryIPArray(156) = "212.138.64.173" saryIPArray(157) = "216.139.164.27" saryIPArray(158) = "216.185.79.247" saryIPArray(159) = "217.21.148.80" saryIPArray(160) = "217.78.79.165" saryIPArray(161) = "217.174.228.240" saryIPArray(162) = "217.194.152.198" saryIPArray(163) = "217.194.157.172" saryIPArray(164) = "217.194.157.179" saryIPArray(164) = "217.211.254.17" saryIPArray(165) = "218.81.152.169" saryIPArray(166) = "218.94.3.183" saryIPArray(167) = "219.26.18.42" saryIPArray(168) = "220.160.82.229" saryIPArray(169) = "222.65.205.5" saryIPArray(170) = "222.64.209.171" saryIPArray(171) = "222.67.39.80" saryIPArray(172) = "222.149.234.58" 'Loop through the arrays of IPs to see if there is a match For intIPLoopCounter = 0 to UBound(saryIPArray) 'If the IP matches send them to the banned page If saryIPArray(intIPLoopCounter) = strIPAddress then 'Page to redirect if there IP is blocked Response.Redirect "/default.htm" 'Or you can delete the redirect and give them a warning! 'Just uncomment the below line and delete the above redirect 'Response.Write("You are banned from this website!") End If Next %> Official Justin Kawika Young Web Site ¦ Guestbook ¦ Sign Justin's Guestbook
Justin's Music Justin's Music
 HOME     411     DISCOGRAPHY     SCRAPBOOK     FUN     NEWSROOM     GUESTBOOK     FAN CENTRAL     JUSTIN ASKS...     SHOP 

» Home ¦ Guestbook ¦ Sign Justin's Guestbook
 

Redirecting...

 

 

 

 


Guestbook Archive
| Table of Contents |

We reserve the right to edit or remove any duplicate guestbook entries
or ones that we find offensive, derogatory or commercially driven.

 

| HOME |

 

 

 

Request Justin on the Radio!

Complete this survey for a special treat from Justin!

 

Developed by Edward Sugimoto, 1997-2006