<% response.expires=0 set rs=server.createobject("adodb.recordset") sql="select haber.* from haber order by kimlik desc" rs.open sql,baglanti,1,3 syf=request.querystring("syf") if syf="" then syf=1 end if%> <%rs.pagesize=1 rs.absolutepage=syf for i=1 to rs.pagesize if rs.eof then exit for %> <%=left(rs("haber"),1000)%> <% set bag=server.CreateObject("adodb.connection") bag.Open "dbq="& server.MapPath("eskidost.mdb")&";driver={microsoft access driver (*.mdb)}" set rsy=server.CreateObject("adodb.recordset") sql="select yorum.* from yorum where yorumid=" sql=sql & rs("kimlik") rsy.Open sql,bag,1,3 w=rsy.RecordCount %> <%rs.movenext Next%>

 <%for j=1 to rs.pagecount if j=syf then %><%response.write "" else %><% response.write " "&j&"" %><% end if next %>

<% rs.close:set rs=nothing baglanti.close:set baglanti=nothing %>