Programalama > ASP

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