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