<%
KayitSayisi = 4
If QueryFilter(Request.QueryString("s")) <> "" Then
Sayfa = CInt(QueryFilter(Request.QueryString("s")))
Else
Sayfa = 1
End If
Set Editor = Bag.Execute("SELECT * FROM tblEditorYazilari WHERE fldDurum=1 ORDER BY fldID DESC LIMIT " & (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi)
Set SQLTop = Bag.Execute("SELECT COUNT(*) FROM tblEditorYazilari Where fldDurum=1")
TopKayit = SQLTop(0)
j=0
Do While Not Editor.EOF
If j Mod 2 = 0 Then
Bg = "#FFFFFF"
Else
Bg = "#EEEEEE"
End If
Set EYorum = Bag.Execute("SELECT COUNT(*) FROM tblYorumlar WHERE fldBolum='Editor' AND fldYaziID=" & Editor("fldID"))
%>
<%
If CInt(TopKayit) > CInt(KayitSayisi) Then
SayfaSayisi = CInt(TopKayit) / CInt(KayitSayisi)
If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = CInt(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 1
If SayfaSayisi > 1 Then
Response.Write "Arşiv: "
TopKayit = SayfaSayisi
TopSayfa = 10
Onceki = Sayfa - (TopSayfa/2)
If Onceki <= 0 Then Onceki = 1
Sonraki = Sayfa + (TopSayfa/2)
If Sonraki < TopSayfa Then Sonraki = TopSayfa
If Sonraki > TopKayit Then Sonraki = TopKayit
If Onceki <> 1 Then Response.Write "<< İlk | "
For i=Onceki To Sayfa-1
Response.Write "" & i & " - "
Next
Response.write "[" & Sayfa & "] "
If Sayfa <> TopKayit Then Response.Write "- "
For i=Sayfa+1 To Sonraki
Response.Write "" & i & " "
If i <> Sonraki Then Response.Write "- "
Next
If Sonraki <> TopKayit Then Response.Write "| Son >> "
End If
End If
%>
<%
Else
Set Yazi = Bag.Execute("SELECT * FROM tblEditorYazilari WHERE fldDurum=1 AND fldID=" & ID)
If Not Yazi.EOF Then
Set EYorum = Bag.Execute("SELECT COUNT(*) FROM tblYorumlar WHERE fldBolum='Editor' AND fldYaziID=" & Yazi("fldID"))
'Yazının hitini arttır
Set HitArtir = Bag.Execute("UPDATE tblEditorYazilari SET fldHit=fldHit+1 WHERE fldID=" & ID)
%>
<%=IlkHarfBuyuk(Yazi("fldBaslik"))%>
<%=SatirBasi & Temizle(Yazi("fldYazi"))%>
Tarih: <%=Yazi("fldTarih")%> - Puan: <%=Yazi("fldPuan") & " (%" & Round(Yazi("fldPuan")/Yazi("fldOylayan")*10) & ")"%> - Yorumlar:" id="Text">(<%=EYorum(0)%>) - Okunma:<%=Yazi("fldHit")%><% If Request.Cookies("Editor")(""&Yazi("fldID")&"") = "" Then %> - Oy Ver: <% End If %>
" style="display:<% If Request.QueryString("yorum") = 1 Then Response.Write "block" Else Response.Write "none" End If %>; padding:4px;border:1px solid #AAAAAA"><%=Temizle(EYorum("fldYorum"))%>
<%
Set EnCokOkunan = Bag.Execute("SELECT * FROM tblEditorYazilari WHERE fldDurum=1 ORDER BY fldHit DESC LIMIT 10")
j=1
Do While Not EnCokOkunan.EOF
%>
<%=j%>-)" style="color:#FF6600"><%=IlkHarfBuyuk(EnCokOkunan("fldBaslik"))%> (<%=EnCokOkunan("fldHit")%> Kere)
<%
j=j+1: EnCokOkunan.MoveNext
Loop
%>
<%
Set EnCokPuan = Bag.Execute("SELECT * FROM tblEditorYazilari WHERE fldDurum=1 ORDER BY fldPuan DESC LIMIT 10")
j=1
Do While Not EnCokPuan.EOF
%>
<%=j%>-)" style="color:#FF6600"><%=IlkHarfBuyuk(EnCokPuan("fldBaslik"))%> (<%=EnCokPuan("fldPuan")%>)
<%
j=j+1: EnCokPuan.MoveNext
Loop
%>