<%Set rs = cilem.execute("select top 20 * from editorluk where uye_onay='Evet' and koseyazisi=true order by sira asc") %> <% i = 0 do while not rs.eof %><%uyeid=rs("uyeid")%> <%Set rs2 = cilem.execute("select top 20 * from haber where haberonay='Evet' and koseyazisi=true and uyeid=" & uyeid& " order by tarih desc") if rs2.eof then%>

<%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")%> ¬
Yazı Eklenmemiş
<%else for i = 1 to 1 if rs2.eof then exit for%>

<%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")%> ¬
&uyeid=<%=rs2("uyeid")%>"><%=rs2("baslik")%>
<%rs2.movenext next end if %><%if not rs2.eof Then rs2.movenext end if%><% If i mod 1 Then Response.Write "" end if i = i + 1 rs.movenext loop %>