<%
set baglan = Server.CreateObject("ADODB.baglanection")
baglan.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb"))
set rs = server.createobject("adodb.recordset")
%>
<%
yanyana = 2
restablo = "Select * from tablo order by id desc "
rs.pagesize = 8
rs.open restablo,baglan,1,1
if request.QueryString("s")="" or request.querystring("s")=0 then
s=1
else
s=request.QueryString("s")
end if
rs.AbsolutePage = s
%><CENTER>
<table cellspacing=0 cellpadding=3 width="293">
<tr>
<% for k=1 to rs.pagesize %>
<% if rs.eof or rs.bof then exit for %>
<% if yan=yanyana then
response.write ("<tr>")
yan=0
End if
%><td width="287">

<table border="0" width="300" height="120">
<tr>
<td width="221" height="15" align="center" bgcolor="#E1E1E1"><%=rs("baslik")%></span></span></td>
</tr>
<tr>
<td >
<img border="0" src="<%=rs("resim")%>" width="70" height="50" align="left">
<table width="210" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td align="left"><a href="oku.asp?ID=<%=rs("id")%>"><%=ozeldurum(left( rs("haber_devam"),120))%>..</a></td>
</tr>
</table></td>
</tr>
<tr>
<td align="left" >&nbsp;</td>
</tr>
</table>

</td>
<% yan=yan+1
if yan = (yanyana+1) then
response.write ("</tr>")
end if
%>
<% rs.movenext : next%>
</table>
<br>
<hr>
</CENTER>
<div align="center">


<font size="1">Sayfa</font>
&nbsp;
<strong>
<% for x=1 to rs.pagecount %>
<a href="?sayfa=sayfa&s=<%=x%>" class=ler><%=x%></a>
<% next %></td>