Verileri Sayfalayarak Sıralama

[BaRaN]

<%


'// Veritabanı bağlantısı yapılıyor
'// Veritabanı yolunu kendinize göre uyarlamanız gerekmekte
Set adoCon = Server.CreateObject("Adodb.Connection")
adoCon.Open = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.MapPath("veritabani.mdb") &";"

'// Kayıt Seti Açılıyor
'// Tablo adını kendinize göre uyarlamanız gerekmekte
Set kd = Server.CreateObject("Adodb.Reordset")
SQL = "Select * FROM tablo ORDER BY Tarih DESC"
kd.Open SQL, adoCon, 1, 3

Toplam = kd.RecordCount
If Toplam = 0 Then '// Eğer veritabanında kayıt yoksa hata mesajı veriyoruz

Response.Write "Henüz Kayıt Yok."

Else '// Kayıt varsa sıralıyoruz

Kayit_S = 10 '// Bir sayfyada gösterilecek kayıt sayısı
kd.PageSize = Kayit_S

If Request.QueryString("syf") = "" Then
G_Kayit = 1
Else
G_Kayit = CInt(Request.QueryString("syf"))
End If

T_Kayit=kd.PageCount
If G_Kayit > T_Kayit Then G_Kayit = TKayit
If G_Kayit < 1 Then G_Kayit = 1

If T_Kayit = 0 Then kd.AbsolutePage = G_Kayit

i = 0
Do While i < Kayit_S And Not kd.EOF

'// Döngü Başlıyor
Response.Write "

"& kd("haber") &"

"

i = i + 1
kd.MoveNext
Loop %>

<%

For k=1 To T_Kayit

StrSayfaSayisi = k
SayfaSayisi= StrSayfaSayisi
If k = G_Kayit Then %>
<%=StrSayfaSayisi%>. <%
Else %>
<%=StrSayfaSayisi%>. <%
End If
Next %>

<%
End If

kd.Close
Set kd = Nothing

adoCon.Close
Set adoCon = Nothing
%>