<%
Set db = Server.CreateObject("ADODB.Connection")
connect="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("data/db.mdb")
db.Open connect
err=0
ipad=Request("REMOTE_ADDR")
Set frt=db.Execute("SELECT ip.nomer, ip.ipp FROM ip")
do While NOT frt.Eof
if frt("ipp")=ipad then
err=1
end if
frt.movenext
loop
if err=0 then
db.Execute("INSERT INTO ip ( ipp ) SELECT '" & ipad & "' AS ipp;")
end if
Set frd=db.Execute("select count(*) as aaa from ip")
Response.Write "