<% ''''''''''''''''''''''''''''''' ' Block the IP addresses that do the SPAM ''''''''''''''''''''''''''''''' Function IsBlockedIP() Dim UserIP Dim BlockedIParray(2) 'assign our blocked IP addresses to our array BlockedIParray(0) = "60.0.201.209" BlockedIParray(1) = "218.11.15.212" 'retrieve the visitors IP address UserIP = Request.ServerVariables("REMOTE_ADDR") 'loop through the Blocked IPs For i = 0 to UBound(BlockedIParray) If UserIP = BlockedIParray(i) Then Response.Redirect "index.asp" 'Response.Redirect "noaccess.asp" End If Next End Function %>