- Kod:
<%
vt="DRIVER={Microsoft Access Driver (*.mdb )}; DBQ=" & server.mappath("db/haber.mdb")
set conn = Server.CreateObject("adodb.connection" )
set rs = Server.CreateObject("adodb.recordset" )%>
<br />
<%
conn.open vt
rssql = "Select * from haberler where haber order by id DESC"
rs.open rssql, conn, 1, 3
If rs.eof or rs.bof then
Response.Write "<font face=verdana size=2 color=#ff3300><b><center><br>Kayıtlı haber yok.</br></center></b></font>"
Response.end
end if
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rs.pagesize = 2 'her sayfadaki veri sayısı
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%><br>
<%=rs("haber_adi")%><br>
<%
rs.movenext
Next
%><br>Toplam kayıt: <%=rs.recordcount%>
-
<%
'sayfa numaraları ve link
response.Write "Sayfa: "
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then 'bulunduğumuz sayfaya link yok
response.write g& " "
else
response.Write "<a href=?sayfa=" & g & ">" & g & "</a> "
end if
next
%>
Giriş yap
En son konular
Arama
En aktif konular
En bakılan konular
Veri sayfalama
Admin- Normal Üye
- Ad: Enes
Şehir: İzmir
Doğum tarihi: 27/07/95
Takım: Fenerbahçe
Mesaj Sayısı: 181
Yaş: 16
Tecrübe puanı: 5576
Rep Puanı: 12
Kayıt tarihi: 15/08/08
Larve Yazılım
Similar topics
» İşlem Yönetici 1.0.0.0
» Bilgisayarımı Kapat 1.0.0.2 - Kolay Windows Kapatıcı
» Bilgisayarımı Kapat 1.0.0.1 - Kolay Windows Kapatıcı
» Çemberin Çevresini Hesapla
» Visual Basic 2005 ile E-posta Göndermek
» Dosya adı ve Uzantı Ayırma
» C Programlama Diline Giriş
» C++'a Giriş : Hello World
» Visual Basic Nedir?
» Bilgisayarımı Kapat 1.0.0.0 - Kolay Windows Kapatıcı
» Html'ye giriş
» Java Script nedir?
» Php ile rasgele veri Listeleme
» Toplist yapma
» Veri sayfalama
» Puanlı üyelik Sistemi
» Sub Kullanımı
» Veritabanı İşlemi (kayıt eklme, kayıt silme)