<% On Error Resume Next %> <% if so_main_frontpage_content_active=1 then %>

<%if social_position=3 and social_active=1 then%> <% mypath="/so-content/themes/"&so_theme&"/socialBar.asp" Server.Execute(mypath) %> <%end if%> <%=so_main_frontpage_content%>

<% end if %> <% mypath="/so-content/themes/"&so_theme&"/ekBarPozisyon2.asp" Server.Execute(mypath) %> <%'LİSTELEME BAŞLIYOR%> <% Dim intAktSayfa 'Sayfa Belirleyici QueryString [ s=? ] If Request("s") = "" Or IsNumeric(Request("s")) = False Then intAktSayfa = 1 Else intAktSayfa = CInt(Request("s")) End If If intAktSayfa < 1 Then intAktSayfa = 1 Dim intSayfala : intSayfala = so_anasayfa_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 strSQL2 = "where anasayfa_yayin=1 and sayfaYayinda=1 and dil='"&so_lang&"'" Else strSQL2 = "Where (id Not In (Select Top "& intGozardi &" id From so_content where anasayfa_yayin=1 and dil='"&so_lang&"' and sayfaYayinda=1) and sayfaYayinda=1 and anasayfa_yayin=1 and dil='"&so_lang&"') " 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%>

"/><%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 Set rsToplamKayit = mysql_baglanti.Execute("Select Count(id) As Sayisi From so_content where anasayfa_yayin=1 and sayfaYayinda=1 and dil='"&so_lang&"'") 'Toplam Kayıt Sayısı İçin Sorgu Dim intToplamKayit : intToplamKayit = 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 %> <%=iSayfa%> <% Else %> <%=iSayfa%> <% End If Next %>

<% end if 'Sayfalama Yapalım %> <%'LİSTELEME BİTİYOR%> <% mypath="/so-content/themes/"&so_theme&"/ekBarPozisyon3.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%>