Programlama > ASP

<%  

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 &") "   

%>