<% set rs=server.createobject("adodb.recordset") rs.open "editorluk order by sira asc",cilem,1,3 editorsayisi = rs.recordcount %> <% set rs1 = cilem.execute("select count(baslik) as habersayisi from haber where uyeid= "& rs("uyeid")) habersayisi = 0 if not rs1.eof then habersayisi = rs1 ("habersayisi") end if rs1.close set rs1 = Nothing %> <% rs.movenext Next %>

Yazarlar ¬ Sayın  <% =isimsoyad %> Hoşgeldiniz
<% if rs.eof or rs.bof then Response.Write " Kayıtlı Köşe Yazarı Bulunmuyor." Response.end end if %><% 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 %>
Yazar Adı  Özet Bilgiler Editör İşlemleri
<%if rs("cinsiyet")="Bay" then %>yazar/resimyokbay.jpg<% else %><% end if%><%if rs("cinsiyet")="Bayan" then %>yazar/resimyokbayan.jpg<% else %><% end if%><% else %>yazar/<%=rs("koseresim")%><% end if%>" border="2" style="; border:1px solid #C0C0C0; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px" hspace="1" vspace="1" alt="<%=rs("isimsoyad")%>"> <%=rs("isimsoyad")%> "> Sıra ">	<% set rs1 = Server.CreateObject("adodb.recordset") sql = "SELECT * FROM haber WHERE koseyazisi=false and haberonay='Evet' and uyeid=" & rs("uyeid")& " order by tarih desc" rs1.open sql,cilem,1,3 habersayisi = rs1.recordcount%> <% set rs2 = Server.CreateObject("adodb.recordset") sql = "SELECT * FROM haber WHERE koseyazisi=true and haberonay='Evet' and uyeid=" & rs("uyeid")& " order by tarih desc" rs2.open sql,cilem,1,3 yazisayisi = rs2.recordcount%> Yazar : <%=rs("editor")%> E-Mail: "> <%=rs("uyemail")%> Haber Sayısı  <%=habersayisi%> Köşe Yazısı  <%=yazisayisi%> Haber/Yazı Onay Yetkisi ◊ <%=rs("haberonay")%>	" href="editor_sil.asp?uyeid=<%=rs("uyeid")%>">       ">
		Köşe Yazarı Olsun mu ?   checked <% end if %> disabled style="font-family: Tahoma; font-size: 10px"> Editör Onaylımı ?    <%=rs("uye_onay")%>

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