<%
ip=Request.ServerVariables("REMOTE_ADDR")
browser=Request.ServerVariables("HTTP_USER_AGENT")
'if instr(1,"217.204.171.98 213.210.55.171",ip)=0 then

addr=Request.ServerVariables("REMOTE_ADDR")
parts = Split(addr,".")
parts2 = split(Request.ServerVariables("LOCAL_ADDR"),".")
num_addr = parts(0)*(256*256*256)+parts(1)*(256*256)+parts(2)*256+parts(3)

select case Request.ServerVariables("LOCAL_ADDR")
	case "15.0.0.8"
		company="WAVEX"
		DSN= "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=D:\company shared folders\database\terms.mdb;"
		servername="WAVEXSQL"
	case "10.0.2.2"
		company="AZULI"
		DSN= "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & server.MapPath("terms.mdb") & ";"
		servername="wavex.dnsalias.com"
	case "13.0.0.2"
		company="RELENTLESS"
		DSN= "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & server.MapPath("terms.mdb") & ";"
		servername="wavex.dnsalias.com"
	case "10.0.8.2"
		company="CEBA"
		DSN= "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & server.MapPath("terms.mdb") & ";"
		servername="wavex.dnsalias.com"
	case "10.58.121.131"
		company="MUSICTRAVEL"
		DSN= "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & server.MapPath("terms.mdb") & ";"
		servername="wavex.dnsalias.com"
end select

Set con = Server.CreateObject("ADODB.Connection")
con.Open DSN
Set objRS = Server.CreateObject("ADODB.Recordset")

IPRange=100 ' To detect a request from a spider farm
selectSQL = "SELECT * FROM Spiders WHERE IPInteger>" & num_addr-IPRange & " AND IPInteger<" & num_addr+IPRange & ";"
objRS.Open SelectSQL, con,3,2
if NOT objrs.eof then
	objrs("RobotTXT")=objrs("RobotTXT")+1
	objrs.update
end if
objrs.close
con.close

err.Clear
on error resume next
	
	'DSN="DRIVER={SQL Server};SERVER=wavex.dnsalias.com;UID=sa;PWD=wavexsql;DATABASE=wWWWHITS"
	DSN="DRIVER={SQL Server};SERVER=" & "WAVEXSQL" & ";UID=sa;PWD=wavexsql;DATABASE=wWWWHITS"

'response.write DSN
'response.end
set con=nothing
Set con = Server.CreateObject("ADODB.Connection")
	con.Open DSN
	Set objRS = Server.CreateObject("ADODB.Recordset")
	selectSQL = "SELECT TOP 1 * From URL"
	objRS.Open selectSQL, con,3,2
	objrs.AddNew
		objrs("Time")=now
		objrs("IP")=ip
		objrs("referer")=Request.ServerVariables("HTTP_REFERER")
		objrs("company")="WAVEX" ' company using these statistics
		
		objrs("browser")="ROBOT:" & mid(browser,1,140)
		'request.servervariables("http_referer")
		
		'objrs("headers")=Request.ServerVariables("ALL_HTTP")
	
		objrs("Page")=company & ":" & Request.ServerVariables("SERVER_NAME") &  Request.ServerVariables("SCRIPT_NAME")
		objrs("clickthrough")=0
	objrs.Update
	objrs.Close
		
	set objrs=nothing
	set con=nothing 
%>