<%=siteadi%>

<% uyeid=guvenlik(request("uyeid")) set rs=server.createobject("adodb.recordset") rs.open "editorluk where koseyazisi=true and uye_onay='Evet' and uyeid=" & guvenlik(request("uyeid"))& "",cilem,1,3 %>

Yazara ait Yazılar

Yazar Adı : <%=rs("editor")%>

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

')">

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

Özgecmişi ¬
<%=rs("tanitim")%>
Yaşadığı Şehir :	<%=rs("sehir")%>
E-Mail Adresi :	"><%=rs("uyemail")%>

Yazara Ait Köşe Yazıları

<% 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 editoryazisayisi = rs2.recordcount%><%if editoryazisayisi="" or editoryazisayisi="0" then %>
Henüz Yazı Eklememiş<% else %><% cilemsayfa = Request.QueryString("cilemsayfa") If cilemsayfa="" Then cilemsayfa=1 rs2.pagesize = 20 rs2.absolutepage = cilemsayfa cilemsayfa_sayisi = rs2.pagecount for i=1 to rs2.pagesize if rs2.eof then exit for end if %> <% rs2.movenext Next end if%>

&uyeid=<%=rs2("uyeid")%>"> <%=rs2("baslik")%>

<%if editoryazisayisi="0" then %><% else %> <% response.Write "Sayfa : "%><%end if%> <% 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=<%=cilemsayfa%>><%=cilemsayfa%> <% else response.Write "" end if next %> <% if sonraki > cilemsayfa_sayisi then response.write "" else response.write " " & cilemsayfa+1& " ►" end if %>

&cilemsayfa=<%=cilemsayfa%>>