<%on error resume next%> <%'LİSTELEME BAŞLIYOR%> <% Dim intAktSayfa 'Sayfa Belirleyici QueryString [ s=? ] if sayfa="search" then if serino="" then intAktSayfa = 1 else intAktSayfa=cint(serino) end if else if bes="" then intAktSayfa = 1 else intAktSayfa=cint(bes) end if end if if sayfa="search" then SayfaBasligi=session("aramasonucu")&"..." elseif sayfa="cat" then SayfaBasligi=kategori_basligim else SayfaBasligi="..." end if SayfaBasligi=complex(SayfaBasligi) %>

" <%=SayfaBasligi%> "

<% If intAktSayfa < 1 Then intAktSayfa = 1 Dim intSayfala : intSayfala = cint(so_listeleme_siniri) 'Sayfa Başı Listelenecek Kayıt Dim intGozardi : intGozardi = (intSayfala) * (intAktSayfa - 1) 'Sayfa Sayısına Göre Gözardı Edilecek (Atlanacak) Kayıtların Sayısı Dim strSQL2 'Gözardı edilecek kayıtların SQL Sorgusu If intAktSayfa = 1 Then if sayfa="search" then strSQL2 = "where (baslik like '%"&session("aramasonucu")&"%' or icerik like '%"&session("aramasonucu")&"%' or etiketler like '%"&session("aramasonucu")&"%') and sayfaYayinda=1 and dil='"&so_lang&"'" elseif sayfa="cat" then strSQL2 = "where kategori="&secili_kategori&" and sayfaYayinda=1 and dil='"&so_lang&"'" end if Else if sayfa="search" then strSQL2 = "Where (id Not In (Select Top "& intGozardi &" id From so_content where (baslik like '%"&session("aramasonucu")&"%' or icerik like '%"&session("aramasonucu")&"%' or etiketler like '%"&session("aramasonucu")&"%') and dil='"&so_lang&"') and (baslik like '%"&session("aramasonucu")&"%' or icerik like '%"&session("aramasonucu")&"%' or etiketler like '%"&session("aramasonucu")&"%') and sayfaYayinda=1 and dil='"&so_lang&"') " elseif sayfa="cat" then strSQL2 = "Where (id Not In (Select Top "& intGozardi &" id From so_content where kategori="&secili_kategori&" and dil='"&so_lang&"') and sayfaYayinda=1 and kategori="&secili_kategori&" and dil='"&so_lang&"') " end if End If Dim strSQL : strSQL = "Select Top "& intSayfala &" * From so_content "& strSQL2 &"Order By sira" 'Genel SQL Sorgusu 'Kayıtları Yazdıralım Dim rsCommon Set rsCommon = mysql_baglanti.Execute(strSQL) %>
<% While Not rsCommon.Eof %> <% if rsCommon("content_stil_varmi")=1 then %>
<% thumbnailVar=0 if instr(rsCommon("thumbnail"),".jpg")>0 or instr(rsCommon("thumbnail"),".gif")>0 or instr(rsCommon("thumbnail"),".png")>0 then thumbnailVar=1 Set FS=CreateObject("Scripting.FileSystemObject") file_link=Request.ServerVariables("APPL_PHYSICAL_PATH" )&"/so-content/uploads/thumbnails/" if FS.fileexists(file_link&"/"&rsCommon("thumbnail"))=true then dosya_yerinde=1 else dosya_yerinde=0 end if set FS=nothing end if %>
" title="<%=rsCommon("baslik")%>" class="listLink"><%if len(rsCommon("baslik"))>listeleme_baslik_boyut then%><%=left(rsCommon("baslik"),listeleme_baslik_boyut)%>...<%else%><%=rsCommon("baslik")%><%end if%>
<%if listeleme_resim_aktif=1 then%>
<%if thumbnailVar=1 and dosya_yerinde=1 then%>" alt="<%=rsCommon("baslik")%>"/><%else%><%=rsCommon("/><%end if%>
<%end if%> <%if listeleme_on_yazi_boyut>0 then%> " title="<%=rsCommon("baslik")%>" class="listLink"><%=left(complex(trim(HtmlEncodeYazi(rsCommon("icerik")))),listeleme_on_yazi_boyut)%>... <%end if%> <%if listeleme_buton_aktif=1 and browserEski=0 then%>
" class="listItem" href="<%=so_url%>/<%=rsCommon("link")%>"><%=rsCommon("listeleme_buton_yazisi")%>
<%end if%>
<% else %>
<%=rsCommon("icerik")%>
<% end if rsCommon.Movenext %> <% Wend %>
<% Set rsCommon = Nothing 'Kayıtları Yazdıralım 'Sayfalama Yapalım Dim rsToplamKayit if sayfa="search" then Set rsToplamKayit = mysql_baglanti.Execute("Select Count(id) As Sayisi From so_content where (baslik like '%"&session("aramasonucu")&"%' or icerik like '%"&session("aramasonucu")&"%' or etiketler like '%"&session("aramasonucu")&"%') and sayfaYayinda=1 and dil='"&so_lang&"'") 'Toplam Kayıt Sayısı İçin Sorgu elseif sayfa="cat" then Set rsToplamKayit = mysql_baglanti.Execute("Select Count(id) As Sayisi From so_content where kategori="&secili_kategori&" and sayfaYayinda=1 and dil='"&so_lang&"'") 'Toplam Kayıt Sayısı İçin Sorgu end if Dim intToplamKayit : intToplamKayit = cint(rsToplamKayit("Sayisi")) 'Toplam Kayıt Sayısı Dim intSayfaSayisi : intSayfaSayisi = intToplamKayit / intSayfala Dim intTempSayi : intTempSayi = Int(intSayfaSayisi) If intSayfaSayisi > intTempSayi Then intSayfaSayisi = intSayfaSayisi + 1 %> <% if listelemeVar=1 and intToplamKayit>intSayfala then %>
<% Dim iSayfa For iSayfa = 1 To intSayfaSayisi If intAktSayfa = iSayfa Then %> <% if sayfa="search" then %> <%=iSayfa%> <%elseif sayfa="cat" then%> <%=iSayfa%> <%end if%> <% Else %> <% if sayfa="search" then %> <%=iSayfa%> <%elseif sayfa="cat" then%> <%=iSayfa%> <%end if%> <% End If Next %>
<% end if 'Sayfalama Yapalım %> <%'LİSTELEME BİTİYOR%> <% mypath="/so-content/themes/"&so_theme&"/ekBarPozisyon2.asp" Server.Execute(mypath) %> <%if social_position=4 and social_active=1 then%> <% mypath="/so-content/themes/"&so_theme&"/socialBar.asp" Server.Execute(mypath) %> <%end if%> <% mypath="/so-content/themes/"&so_theme&"/ekBarPozisyon3.asp" Server.Execute(mypath) %>