<%'Çilem.Net © 2007'%> <%=siteadi%>
<% cilemsayfa = Request.QueryString("cilemsayfa") If cilemsayfa="" Then cilemsayfa=1 rs.pagesize = sayfa_sayisi rs.absolutepage = cilemsayfa cilemsayfa_sayisi = rs.pagecount for i=1 to rs.pagesize if rs.eof then exit for end if %> <% rs.movenext Next %>
 Sayın  <% =isimsoyad %> Hoşgeldiniz
<%set rs=server.createobject("adodb.recordset") rs.open "haber where sondakika=True and haberonay='Evet' and editor='"&session("editor")&"' order by tarih desc",cilem,1,3 habersayisi = rs.recordcount %> <% if rs.eof or rs.bof then Response.Write "
Henüz Kayıtlı Son Dakika Haberi Bulunamadı" Response.end end if %>
  Başlık

 İşlemler

<%=rs("baslik")%> Yazar : <%=rs("isimsoyad")%>

 <%=rs("tarih")%>

">

Son Dakika ?  

checked <% end if %>>

<% response.Write "Sayfalar "%><% onceki = cint(cilemsayfa) - 1 sonraki = cint(cilemsayfa) + 1 %> <% if onceki < 1 then response.write "" else response.write " " & cilemsayfa-1& "" end if %> <% for cilemsayfa_no = 1 to cilemsayfa_sayisi if cilemsayfa_no = cint(cilemsayfa ) then %>><%=cilemsayfa%> <% else response.Write "" end if next %> <% if sonraki > cilemsayfa_sayisi then response.write "" else response.write " " & cilemsayfa+1& " " end if %>

<% set rs1 = cilem.execute("select count(bolum) as habersayisi from haber") haber = 0 if not rs1.eof then haber = rs1 ("habersayisi") end if rs1.close set rs1 = Nothing %>

 Toplam <%= habersayisi%> Haber Var