<% 'Kayıtları Yazdıralım strSQL="SELECT * from so_content where kategori="&so_content_kategori&" and id<>"&so_content_idno&" and dil='"&so_lang&"' order by sira;" Dim rsCommon Set rsCommon = mysql_baglanti.Execute(strSQL) %>

<% say=0 While Not rsCommon.Eof and say <% 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 say=say+1 rsCommon.Movenext %> <% Wend %>

<% Set rsCommon = Nothing 'Kayıtları Yazdıralım %> <%if say=0 then%><%=lang_benzer_bulunamadi%><%end if%>