<%'Çilem.Net © 2007'%> <% ipno = Request.ServerVariables("REMOTE_ADDR") %> <%=siteadi%>-detay
 
<% uyeid=guvenlik(request("uyeid")) If Not Isnumeric(uyeid) Or Len(uyeid)="" Then msg "" End If %> <% bolum=guvenlik(request("bolum")) If Not Isnumeric(bolum) Or Len(bolum)=0 Then msg "" End If Set rs= cilem.execute("SELECT * FROM haber WHERE haberonay='Evet' and bolum=" & guvenlik(request("bolum"))) If rs.eof Then msg"" End If %> <% Sub msg(uyari)%> <%= uyari %> <% response.end End Sub %> <%bolum=guvenlik(request("bolum")) set rs=server.createobject("adodb.recordset") rs.open "haber where haberonay='Evet' and bolum=" & guvenlik(request("bolum")),cilem,1,3 hit = rs("hit") rs("hit") = hit+1 haber = rs("haber") rs.update %><% uyeid=guvenlik(request("uyeid")) set rs3=server.createobject("adodb.recordset") rs3.open "editorluk where uye_onay='Evet' and uyeid=" & guvenlik(request("uyeid"))& "",cilem,1,3 %> <%set rsyorum=server.createobject("adodb.recordset") rsyorum.open "Yorum where yorum_onay='Evet' and bolum = " & guvenlik(request("bolum"))& " order by tarih desc",cilem,1,3 yorumsayisi = rsyorum.recordcount%>
 
<%if rs("koseyazisi")=true then %> <% else %><% end if%>
 

<%if request("uyeid")="0" then %> Başlıklı Haberiniz Hakkında"> <%=isimsoyad%><% else %>?subject=<%=rs("baslik")%>Başlıklı Haberiniz Hakkında"><%=rs3("isimsoyad")%><% end if%> ¬

 <%if request("uyeid")="0" then %> <% else %> <%if rs3("koseyazisi")=true then %> <%if rs3("cinsiyet")="Bay" then %>yazar/resimyokbay.jpg<% else %><% end if%><%if rs3("cinsiyet")="Bayan" then %>yazar/resimyokbayan.jpg<% else %><% end if%><% else %>yazar/<%=rs3("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="<%=rs3("isimsoyad")%>"> <% end if%><% end if%>

 <%=rs("baslik")%>
<%if rs("koseyazisi")=False then %> <% else %><%end if%>
  Editör : <%if request("uyeid")="0" then %> Başlıklı Haberiniz Hakkında"> <%=isimsoyad%><% else %>?subject=<%=rs("baslik")%>Başlıklı Haberiniz Hakkında"><%=rs3("isimsoyad")%><% end if%>

<%=rs("hit")%> Kişi Tarafından Okundu.
')"> ')"> Yazdır ')"> ')">Yorumla ')"> ')">Tavsiye
 
">
1 2 3 4 5   <% if rs("puan")="" or rs("puan")=0 then %> Puan Yok   <% else %>Bu <%if rs("koseyazisi")=true then %>Yazıya<% else %>Habere<%end if%> Toplam <%=rs("puan")%> Puan Verildi<%end if%>

  Yorum ( <%= yorumsayisi%> )   

<% else end if rsyorum.movenext loop%> <%if rs("koseyazisi")=true then %><% else %>
<% If rsyorum.EOF And rsyorum.BOF Then %>

Kayıtlı Yorum Bulunmuyor.
 
<% else %> <% sayfa_sayisi=sayfa_sayisi sayfasayisi = "sayfa_sayisi" sayfano = Request.QueryString("sayfano") ToplamKayit = rsyorum.recordcount ToplamSayfa = ToplamKayit/sayfa_sayisi Function Tamamla(ToplamSayfa) If InStr(ToplamSayfa, ",") <> 0 Then Tamamla = Int(ToplamSayfa + 1) Else Tamamla = ToplamSayfa End If End Function GenelSayfa = Tamamla(ToplamSayfa) if sayfano = "" or sayfano = 1 then sayfano = 0 else end if if sayfano > 1 then sayfano = sayfano-1 else sayfano=sayfano end if ilksayfa = sayfa_sayisi * sayfano sonsayfa = ilksayfa + sayfa_sayisi %> <% sayi = 0 do while not rsyorum.eof sayi=sayi+1 if sayi > ilksayfa and sayi =< sonsayfa then %>
 ?subject=<%=rs("baslik")%> Başlıklı Habere Yorumunuz Hakkında"><%=rsyorum("gonderen")%>

Tarih:<%=rsyorum("tarih")%>  

  <%=rsyorum("konu")%>

<%=rsyorum("mesaj")%>
<%set rsyorum=server.createobject("adodb.recordset") rsyorum.open "Yorum where yorum_onay='Evet' and bolum = " & guvenlik(request("bolum"))& "",cilem,1,3 %>   Sayfalar : &uyeid=<%=rs("uyeid")%>&sayfano=1">İlk Sayfa - <% if sayfano <> 0 then%> &uyeid=<%=rs("uyeid")%>&sayfano=<%=sayfano%>"> Önceki Sayfa - <%else end if%> <% for sayfanumarasi = 1 to GenelSayfa %> &uyeid=<%=rs("uyeid")%>&sayfano=<%=sayfanumarasi%>"> [<%=sayfanumarasi%>]<% if sayfanumarasi <> GenelSayfa then %> <%else%><%end if%><% next %> <% if GenelSayfa <> sayfano+1 then%> - &uyeid=<%=rs("uyeid")%>&sayfano=<%=sayfano+2%>"> Sonraki Sayfa <%else end if%> - &uyeid=<%=rs("uyeid")%>&sayfano=<%=GenelSayfa%>"> Son Sayfa <%end if%>

 Bu Yazara Ait Diğer Yazılar
<% Set rs=Server.CreateObject("Adodb.Recordset") rs.Open "SELECT * FROM haber where haberonay='Evet' and koseyazisi=true and uyeid=" & request("uyeid")& " order by tarih desc", cilem, 1, 3 %><% yeni = Request.QueryString("yeni") If yeni="" Then yeni=1 rs.pagesize = 15 rs.absolutepage = yeni yeni_sayfa = rs.pagecount for i=1 to rs.pagesize if rs.eof then exit for end if %> <% rs.movenext Next %>

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

 <%=rs("tarih")%>

 Bu Kateoriye Ait Diğer Başlıklar
<%bolum = rs("katid") Set rs=Server.CreateObject("Adodb.Recordset") rs.Open "SELECT * FROM haber where haberonay='Evet' and koseyazisi=false and katid =" & bolum&" order by tarih desc", cilem, 1, 3 %><% cilemyeni = Request.QueryString("cilemyeni") If cilemyeni="" Then cilemyeni=1 rs.pagesize = 10 rs.absolutepage = cilemyeni cilemyeni_sayfa = rs.pagecount for i=1 to rs.pagesize if rs.eof then exit for end if %> <% rs.movenext Next %>
&uyeid=<%=rs("uyeid")%>">

<%if rs("resimsiz")="" or rs("resimsiz")="Kapat" then %><%=rs("><% else %><%if rs("resimsec")="Url" then %>" style="border: 1px solid #FFFFFF; " width="50" alt="<%=rs("baslik")%>"><% else %>" style="border: 1px solid #FFFFFF; " width="50" alt="<%=rs("baslik")%>"><%end if end if%>

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

 <%=rs("tarih")%>
<%end if%>