<%on error resume next%> <% sql1="select * from so_slider_ek order by id;" set veriler1=mysql_baglanti.execute(sql1) if not veriler1.eof then veriler1.movefirst do while not veriler1.eof %>
<%=veriler1("baslik")%> - (<%if veriler1("yukseklik")<>0 then%><%=veriler1("yukseklik")%>px<%else%>Ana slider ile aynı yükseklik<%end if%>)
<% sql="select * from so_slides_ek where slider="&veriler1("id")&" order by dil desc, sira asc;" set veriler=mysql_baglanti.execute(sql) if not veriler.eof then say2=1 %> <% veriler.movefirst Set FS=CreateObject("Scripting.FileSystemObject") file_link=Request.ServerVariables("APPL_PHYSICAL_PATH" )&"/so-content/uploads/slides" do while not veriler.eof %> <% iFileSize=0 say2=say2+1 veriler.movenext loop set FS=nothing else %>
Sistemde kayıtlı slide bulunamadı.
<% end if %>
Sıra Slide Başlık Slide yazısı Link Boyut Sırala
/flag.gif" width="24"/> <%=say2%> <% if FS.fileexists(file_link&"/"&veriler("resim"))=true then strFileName = file_link&"/"&veriler("resim") Set objFile = FS.GetFile(strFileName) 'Get the file size iFileSize = cint(objFile.Size/1024) %> " title="<%=veriler("baslik")%>">" alt="<%=veriler("baslik")%>"/> <% else %> <%=veriler("/> <% end if %> <%if veriler("baslik")<>"" then%><%=veriler("baslik")%><%else%>-<%end if%> ', { life: 10000 });" class="tip-top" title="İçerik Detayı"><%=left(veriler("yazi"),20)%> " target="_blank"><%=veriler("link")%> <%=iFileSize%> Kb
" name="tasi<%=veriler("id")%>" action="<%=so_ur%>/so-admin/ekslideTasi.asp?SID=<%=session.SessionID%>&galeri=<%=sadece_sayi(request.QueryString("id"))%>" method="post">">
','Slide bilgisi güncelle');" class="tip-top" title="Güncelle">update ','Slide sil');">delete
&SID=<%=session.SessionID%>','Slider Özelliklerini Değiştir')">Slider Özelliklerini Değiştir    &SID=<%=session.SessionID%>','Tüm slideları sil')">Tüm Slideları Sil    ','Bu Sliderı Sil')">Bu Sliderı Sil
<% veriler1.movenext loop else %>
Sistemde kayıtlı kullanıcı tanımlı ek slider bulunamadı.
<% end if %>