dk = 3
tarih = now
defaultLCID = Session.LCID
ip = Request.ServerVariables("remote_ADDR")
Session.LCID = 1055
zaman = dateADD("n" , -1*dk , now())

Set RsKontrol = Server.CreateObject("Adodb.Recordset")
RsKontrol.open "Select * From online",bag,1,3

If RsKontrol.eof Then

RsKontrol.addnew

RsKontrol("ip") = ip
RsKontrol("tarih") = date
RsKontrol.update

Else

RsKontrol("ip") = ip
RsKontrol("tarih") = now
RsKontrol.update

End If

bag.execute ("Delete From online where tarih >= DateAdd('n',-"& dk &",Now());")

Set rs = Server.CreateObject("Adodb.Recordset")
rs.open "Select * From online",bag,1,3

KisiS = Rs.RecordCount

defaultLCID = Session.LCID

Response.Write KisiS