<%bolum= request.querystring("bolum") set rs=server.createobject("adodb.recordset") rs.open "haber where editor='"&session("editor")&"' and haberonay='Hayır' order by bolum desc",cilem,1,3 haberadet = rs.recordcount sayfasayisi = 50 %> <% 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 %> <% yorum_id = rs("bolum") set byorum=server.createobject("adodb.recordset") byorum.open "yorum where yorum_onay='Hayır' and bolum =" & yorum_id,cilem,1,3 byorumsayisi = byorum.recordcount%> <% rs.movenext Next %>

<% end if%> <%if haberadet="0" then %><% else %> Onay Bekleyen Haberleriniz    Onay Bekleyen  <%=haberadet%> Haberiniz Var <% if request("s")<>"" then sayfa = cdbl(request("s")) rs.move sayfa*sayfasayisi else sayfa = 0 end if for t=1 to sayfasayisi if rs.eof then exit for %>  "><%=rs("baslik")%>    "> "> "> <% rs.movenext next rs.close set rs=nothing %>  Sayın  <% =isimsoyad %> Hoşgeldiniz Haber Onay Yetkiniz Varmı? ◊ <%=haberonay%>  <%response.write ""&request("hata")&"" %>
<%bolum= request.querystring("bolum") set rs=server.createobject("adodb.recordset") rs.open "haber where haberonay='Evet' and editor='"&session("editor")&"' order by bolum desc",cilem,1,3 habersayisi = rs.recordcount %> <% if rs.eof or rs.bof then Response.Write " Henüz Kayıtlı Haber Bulunamadı" Response.end end if %> Onaylanan Haberleriniz ¬
	<%=rs("baslik")%> <% yorum_id = rs("bolum") set byorum=server.createobject("adodb.recordset") byorum.open "yorum where yorum_onay='Hayır' and bolum =" & yorum_id,cilem,1,3 byorumsayisi = byorum.recordcount%> <% yorum_id = rs("bolum") set yorum=server.createobject("adodb.recordset") yorum.open "yorum where yorum_onay='Evet' and bolum =" & yorum_id,cilem,1,3 yorumsayisi = yorum.recordcount%>	"> "> "> ( <%=yorumsayisi%> )
	Onay Bekleyen Yorumlar  ( <%=byorumsayisi%> ) Haber Onaylımı? :<%=rs("haberonay")%> Köşe Yazısı    checked <% end if %>> Son Dakika    checked <% end if %>>  Manşet    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 %>