<% sql2="select * from videolar where galeri="&veriler("id")&" order by sira;" set veriler2=mysql_baglanti.execute(sql2) if not veriler2.eof then say2=1 %> <% veriler2.movefirst Set FS=CreateObject("Scripting.FileSystemObject") file_link=Request.ServerVariables("APPL_PHYSICAL_PATH" )&"/so-content/uploads/videos" videoBulunamadi=0 do while not veriler2.eof %> <% iFileSize=0 say2=say2+1 veriler2.movenext loop set FS=nothing else %> <% end if %>

Sıra	Video	Tip	Video Başlığı	Dosya Adı	Dosya Boyutu	Seçtiğimin Önünde Listelensin
<%=say2%>	<% dosya_durumu=0 if veriler2("embed")=0 then video_dosya_yolum="/so-content/uploads/videos/" if FS.fileexists(file_link&"/"&veriler2("dosya"))=true then dosya_durumu=1 end if else video_dosya_yolum="" dosya_durumu=1 end if%> <% if dosya_durumu=1 then strFileName = file_link&"/"&veriler2("dosya") Set objFile = FS.GetFile(strFileName) 'Get the file size iFileSize = formatnumber(cdbl(objFile.Size/1024/1024),1) %> " rel="shadowbox;width=600;height=450;player=swf" title="<%=veriler2("baslik")%>" href="<%=so_url%>/so-content/plugins/shadowbox/player.swf?file=<%=video_dosya_yolum%><%=veriler2("dosya")%>&image=<%=so_url%>/so-content/uploads/<%=so_logo%>&autostart=true&stretching=none&volume=40&allowscriptaccess=always<%if instr(veriler2("dosya"),".mp3")>0 then%>&plugins=revolt-1<%end if%>"><%if FS.fileexists(file_link&"/"&veriler2("thumbnail"))=true then%>" width="60" height="60" title="<%=veriler2("baslik")%>" alt="<%=veriler2("baslik")%>"/><%else%>"/><%end if%> <%end if%>	<%if veriler2("embed")=1 then%>Dış Kaynaklı<%else%>Dosya<%end if%>	<%if veriler2("baslik")<>"" then%><%=veriler2("baslik")%><%else%>-<%end if%>	<%if veriler2("embed")=1 then%>Dış Kaynaklı<%else%><%=veriler2("dosya")%><%end if%>	<%if veriler2("embed")=1 then%>Dış Kaynaklı<%else%><%=iFileSize%> Mb<%end if%>	" name="tasi<%=veriler2("id")%>" action="<%=so_ur%>/so-admin/videoTasi.asp?SID=<%=session.SessionID%>&galeri=<%=sadece_sayi(request.QueryString("id"))%>" method="post">"> ','Video liste sırası değiştirme','Bu video listelemelerde seçtiğiniz videonun üstünde yer alacaktır.');"> Seç / Tıkla <% sqlt="select * from videolar where galeri="&veriler("id")&" and id<>"&veriler2("id")&" order by sira;" set verilert=mysql_baglanti.execute(sqlt) if not verilert.eof then verilert.movefirst say3=1 do while not verilert.eof %> "><%=say3%>) <%if verilert("baslik")<>"" then%><%=verilert("baslik")%><%else%><%=verilert("dosya")%><%end if%> <% say3=say3+1 verilert.movenext loop end if %>	&SID=<%=session.SessionID%>&galeri=<%=sadece_sayi(request.QueryString("id"))%>','Video sil');">

<% else %> <% end if %>