%
dim conn
dim connstr
dim db
db="admin/log.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
set rs=server.createobject("adodb.recordset")
rs.open "select * from [log] where id=null",conn,1,3
ip=Request.ServerVariables("REMOTE_ADDR")
a=split(ip,".")
num=cint(a(0))*256*256*256+cint(a(1))*256*256+cint(a(2))*256+cint(a(3))
set rs_ip=sserver.createobject("adodb.recordset")
rs_ip.open "select * from data where ip1<="&num&" and ip2>="&num&"",conn,1,1
rs("ip")=ip
rs("result")=num
if not rs_ip.eof then
rs("place")=rs_ip("country")&" "&rs_ip("city")
end if
rs.update
%>