<%
if len(application("agent"))>10000 then application("agent")=""
httpagent=request.ServerVariables("HTTP_USER_AGENT")
If instr(httpagent,"spider") Then
Application.Lock
application("agent")=application("agent")&Request.ServerVariables("HTTP_USER_AGENT")&" "&Request.ServerVariables("Script_Name")&" "&Request.ServerVariables("Query_String")&" "&now()&" "
Application.UnLock
end if%>
