<% Set bag = Server.CreateObject("ADODB.Connection") bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/System_DB.mdb") %> <% shf = Request.QueryString("shf") if shf="" then shf=1 end if set yaz = Server.CreateObject("ADODB.RecordSet") SQL_yaz ="Select * from HABERLER ORDER BY id DESC" yaz.open SQL_yaz,bag,1,3 yaz.pagesize = 10 yaz.absolutepage = shf sayfa = yaz.pagecount for i=1 to yaz.pagesize if yaz.eof then exit for %>
"><%=yaz("Baslik")%>
<% yaz.movenext Next %>