Sagopa Kajmer

<%vt="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db/haber.mdb") set conn = Server.CreateObject("adodb.connection") set rs = Server.CreateObject("adodb.recordset")%>
<%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 "
Kayıtlı haber yok.
" 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 %>
<%=rs("haber_adi")%>
<%rs.movenext Next%>

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 "" & g & " " end if next%>