<%
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "SELECT * FROM haber where haberonay='Evet' and koseyazisi=false order by hit desc", cilem, 1, 3
habersayisi = rs.recordcount%><%if habersayisi="" or habersayisi="0" then %>
Henüz Haber Eklenmemiş<% else %>
<%
cilemyeni = Request.QueryString("cilemyeni")
If cilemyeni="" Then cilemyeni=1
rs.pagesize = 5
rs.absolutepage = cilemyeni
cilemyeni_sayfa = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>