Gönderen: 14-Şubat-2007 Saat 21:10 | Kayıtlı IP

buna uyarla

bi sorun olursa yaz

<%

'kaç adet kayıt görünmesini istiyorsan 20 yi değiştir 
Kayit_Sayisi = 20

'database dosyanın adını yaz değiştir
Db_Yer = Server.MapPath("../db/db_dosya_adın.mdb" )

Set Kayit = Server.Createobject("Adodb.Connection" )
Kayit.Open "DBQ=" & Db_Yer &";Driver={Microsoft Access Driver (*.mdb)}"   
Set Baglanti = Server.CreateObject("Adodb.Recordset" )
bSQL = "Select * from tablo_adın"
Baglanti.Open bSQL, Kayit, 1, 3


Baglanti.PageSize = Kayit_Sayisi
Baglanti.CacheSize = Kayit_Sayisi

If Request.QueryString("Sayfa" ) = "" Then
    Gosterilen_kayit = 1
Else
    Gosterilen_kayit = CInt(Request.QueryString("Sayfa" ))
End If

Toplam_Kayit = Baglanti.PageCount

If Gosterilen_kayit > Toplam_Kayit Then Gosterilen_kayit = Toplam_Kayit

If Gosterilen_kayit < 1 Then Gosterilen_kayit = 1

If Toplam_Kayit = 0 Then

    Response.Write "Kayyt bulunamady!"

Else

    Baglanti.AbsolutePage = Gosterilen_kayit  

End If  

i = 0

Do While i < Kayit_Sayisi and Not Baglanti.Eof
%>

<b><%=Baglanti("haber_baslik" ) %></b><br>
<%=Baglanti("haber" ) %><br><br>

<%  
i = i + 1
Baglanti.Movenext
Loop
%>


Sayfalar : <% For k=1 To Toplam_Kayit %>

                   <% If k=Gosterilen_Kayit Then %>
                            <% =k %>
                   <% Else %>
                            <b><a href='<%=Request.ServerVariables("SCRIPT_NAME" ) %>?Sayfa=<%=k %>'><%=k %></a></b>
                   <% End If %>

           <% Next %>