<%=siteadi%>

<% set rs=server.createobject("adodb.recordset") rs.open "Yorum where editor='"&session("editor")&"' and yorum_onay='Hayır' order by yorum_id desc;",cilem,1,3 yorumsayisi = rs.recordcount %>

Onay Bekleyen Yorumlar

<% if rs.eof or rs.bof then Response.Write "
Henüz Onay Bekleyen Yorum Bulunamadı
Geri" Response.end end if %> <% rs.Movenext next %>

<% 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

&yorum_id=<%=rs("yorum_id")%>">Yorum Sil

Onaylımı?

')"> Bu Yorumu Cevapla

Yorumlanan Haber yada Yazı : <%=rs("baslik")%>

Yorumlayan :

<%=rs("gonderen")%>

E-Mail:

<%=rs("email")%>

Tarih :

<%=rs("Tarih")%>

Konu : <%=rs("konu")%>

<%=rs("mesaj")%>

<% 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(yorum_id) as yorumsayisi from yorum") mesaj = 0 if not rs1.eof then mesaj = rs1 ("yorumsayisi") end if rs1.close set rs1 = Nothing %>

Toplam <%= yorumsayisi%> Yorum Var