Merhaba Tüm Verileri nasıl Listeleyebilirim.

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
%>

asp den hiç anlamam ama

 <%
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>0 and not rs.eof
%>

olmazmı

Tşkler oldu herhalde bunun başka bir kodu daha varmıs onuda alırsam iyi olucak

Eğer tüm kayıtları bir sayfada göstermek istersen yapacağın tek şey:
SQL sorgusu

<%
'Connectionunu önceden yazdığını varsayalım


Set rs = Server.CreateObject("Adodb.Recordset")
SQL="SELECT * FROM tabloadi "
rs.Open SQL,Dbconnectionun,1


Do While Not rs.Eof

'Buradada göstereceğin bilgiler

rs.Movenext
Loop

%>

EĞER tüm verileri bir sayfada değilde 50şer 50şer yada daha fazla - daha az olarak sayfalara bölmek istersen

<%
'Yine Connectionunu önceden yazdığını varsayalım

Set rs = Server.CreateObject("Adodb.Recordset")
SQL="SELECT * FROM tabloadi "
rs.Open SQL,Dbconnection,1

On Error Resume Next
page = CInt(Request("page"))
	If (page ="" or page = 0) Then page = 1 Else page=page
	rs.pageSize= 50 ' sayfada kaç veri olacaksa
	rs.absolutePage=page

Do While Not rs.Eof and i<rs.pagesize
	i=i+1


'Burada göstereceğin bilgiler

rs.Movenext
Loop


'Sonra sayfalama kodları

If page = 1 Then
Response.Write " "
Else
a = page -1
Response.Write "<a  href=?page=" & a & qstring &"><<  Önceki    </a> "
End If

	If page + 5 > rs.pagecount Then
	b = rs.pagecount
	Else
	b = page + 5
	End If
	
If page < 5 Then
c = 1
Else
c = page - 5
End If
	
	For j = c To b

If j = page Then
Response.Write "[<b>" & j & "</b>]  "
Else
Response.Write "<a href=?page=" & j & qstring &">" & j & "</a>  "
End If
Next

	If page = rs.pagecount Then
	Response.Write " "
	Else
	a = page + 1
	Response.Write "<a href=?page=" & a & qstring &">    Sonraki >></a> "
	End If

rs.close
set rs = Nothing
%>

%>

döktürmüşsün gene fatih abi eline sağlık

Beyfendi olmadı :S

Bundan daha iyisi yapmak için scriptini kodlamam lazım.
Verilen örnek açık ve net.