<TITLE> Sayfalama </TITLE>

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