<%
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM dizin where onay=1 order by id desc"
rs.Open sql, bag, 1, 3 'db açtık devam edelim...
Server.ScriptTimeOut = 50
PageTimeOut = 50
%>

<%
s = Request.QueryString("s") 
If s = "" Then s = "1"
rs.PageSize = 1000
rs.AbsolutePage = s 
ss = rs.PageCount 
For i = 1 To rs.PageSize
If rs.EOF Then Exit For %>

icerik.asp?id=<%=rs("id") %><br />

<% rs.MoveNext
Next %>