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