<%Session.LCID=1033%> <% ON ERROR RESUME NEXT Set mdbCon=Server.CreateObject("AdoDb.Connection") mdbCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dataSAYAC/Sayac.mdb") GecerliGenisTarih=Now() GecerliKisaTarih=Date GelenIPNUMARA=Request.ServerVariables("REMOTE_ADDR") tarih1 = DateAdd("n" , -15, Now()) tarih2 = Now() set SOR = mdbCon.execute("SELECT count(IDNO) FROM GirisLOGLAR WHERE IPNO='"&GelenIPNUMARA&"' AND TARIH between #"&tarih1&"# and #"&tarih2&"# ") KacTanedir=SOR(0) IF KacTanedir=0 Then Set Girdi = Server.CreateObject("Adodb.Recordset") Girdi.Open "GirisLOGLAR",mdbCon,1,3 Girdi.Addnew Girdi("TARIH")=GecerliGenisTarih Girdi("IPNO")=GelenIPNUMARA Girdi("KISATARIH")=GecerliKisaTarih Girdi.Update Girdi.Close End if tarih1 = DateAdd("n" , -15, Now()) tarih2 = Now() set RS = mdbCon.execute("SELECT count(IDNO) FROM GirisLOGLAR WHERE TARIH between #"&tarih1&"# and #"&tarih2&"# ") KackisiONLINE = RS(0) Session.LCID=1055 %> Fetih Nakış