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

<% /////// Db Baglanti Sonu \\\\\\\\ %>
<% /////// Veri Sayısını Belirleme ve Veri Gösterme Bitisi \\\\\\\\ %>
<table border="0"><tr><td align="center">
<table><tr>
<%
s = Request.QueryString("s" )
If s = "" Then s = "1"
rs.PageSize = 16
rs.AbsolutePage = s
ss = rs.PageCount
For i = 1 To 16
If rs.Eof Then Exit For %>
<td width="125">
<%=Rs("yazilar" ) %></td>
<%If i mod 4 =0 Then response.write("</tr><tr>" ) %>
<% rs.Movenext
Next %>
</tr>
</table>

<% /////// Veri Sayısını Belirleme ve Veri Gösterme Bitisi \\\\\\\\ %>
<% /////// Sayfalama Baslangici \\\\\\\\ %>
<br><center><font size="1" face="verdana">
<%
Response.Write "<b>Sayfa:</b>"
For g = 1 To ss
If g = CInt(s) Then
Response.Write "<b>" & g & "</b> "
Else
Response.Write "<b><a style=""text-decoration: none"" href=""default.asp?s=" & g & """>" & g & "</a></b> "
End If
Next
%>

<% /////// Sayfalama Bitisi \\\\\\\\ %>
</td></tr></table>
</td></tr></table>