<%
	response.buffer = true
	site = "AWORLDOF"
	ipAddr = Request.ServerVariables("REMOTE_ADDR")

	sqlstring = "select ipAddr from crawlerIP where ipAddr = '" & ipAddr & "' "
	set conntemp=server.createobject("adodb.connection")
	conntemp.open "DSN=serverSoft;uid=sa;pwd=ajoobt"
	set rstemp=conntemp.execute(sqlstring)
	if rstemp.eof then
		' not in crawlerIP, check newSpiders
		sqlstring = "select ipAddr from newSpiders where ipAddr = '" & ipAddr & "' "
		
		set rstemp2=conntemp.execute(sqlstring)
		if rstemp.eof then
			hostName = Request.ServerVariables("REMOTE_HOST")
			userAgent = Request.ServerVariables("HTTP_USER_AGENT")
			' New spider IP address found....
			sqlstring = "insert into newSpiders (ipAddr, host, agent, site) "
			sqlstring = sqlstring + "VALUES ('" & ipAddr & "', "
			sqlstring = sqlstring + "'" & hostName & "', "
			sqlstring = sqlstring + "'" & userAgent & "', '" & site & "' ) "
			set rstemp2 = conntemp.execute(sqlstring)
		end if
	end if
%>
User-agent: *
Disallow: