<% Set bag = Server.CreateObject("ADODB.Connection") bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb") set kd = Server.CreateObject("ADODB.Recordset" ) sql="select * from ip where saat<'"&(time( )-0.021 )&"'" kd.open sql,bag,1,3 if not kd.eof then kd.movefirst while not kd.eof set silis=server.createobject("adodb.recordset") SQL = "delete * from ip where ip='"&kd("ip")&"'" silis.open SQL,bag,1,3 kd.movenext wend response.redirect "default.asp" end if set rs= server.createobject("adodb.recordset") SQL = "select * from sayac" rs.open SQL,bag,1,3 girenin_ip=request.servervariables("REMOTE_ADDR") set ip= server.createobject("adodb.recordset") SQL = "select * from ip WHERE '"&girenin_ip&"'" ip.open SQL,bag,1,3 a=rs("giren") if not ip.eof then rs.update"giren",a ip.update"saat",time( ) else rs.update"giren",a+1 ip.addnew ip("ip")=request.servervariables("REMOTE_ADDR") ip("saat")=time( ) ip.update end if %>

Sitemiz bugüne kadar toplam <%response.write rs("giren")%> ayrı bilgisayardan ziyaret edildi.