Forumdaki online üyeler……
Forumdaki online üyeler……
Forumdaki online üyeler…..
codeDivStart()
<%
dk_g = 4
db = Server.MapPath("forums.mdb" )
Set objCon = Server.CreateObject("ADODB.Connection" )
objCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & db)
Session.LCID = 1033
tarih = DateAdd("n" , -1 * dk_g, Now())
Set objList = Server.CreateObject("ADODB.RecordSet" )
objList.Open "SELECT * FROM member WHERE son_giris >= #" &tarih&"# ORDER BY son_giris DESC" , objCon, 3, 3
Session.LCID = 2048
If objList.Eof Then ' kayit yoksa 0 degerini veriyos
uNumber = "0"
Else ' kayit varsa kaç tane oldugunu aliyoruz
uNumber = objList.RecordCount
End If
For I = 1 To uNumber ' döngüyü baslatiyos
Response.Write "<b>" & objList("kulad" ) &"</b>, "
objList.Movenext
Next
Response.Write " (" & uNumber &") "
%>