<%
'''''''''''''''''''''''''''''''
' 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
%>