Baktıgımda bircok yerde gordum ama nedense kodları uyuşturamadım arkadaşlar Bu kod Benim sitemde son 50 yazıyı gosteriyor ben bunu ne yaparsam tüm yazıların hepsini dbden çeker yani sayfada tum yazıları gosterir.

        <%
dbfolder=""&db&"/dbadi.mdb"
%>
        <%
Set data=Server.CreateObject("ADODB.Connection")
data.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath(""& dbfolder &"")
%>
 <%
i=1
set rs = data.execute("select * from download order by id desc")
do while i<50 and not rs.eof
%>