<% sql="select * from dokumanlar where galeri="&verilerg("id")&" order by sira;" set veriler=mysql_baglanti.execute(sql) if not veriler.eof then veriler.movefirst say=1 'DOSYA KONTROL Set FS=CreateObject("Scripting.FileSystemObject") file_link=Request.ServerVariables("APPL_PHYSICAL_PATH" )&"/so-content/uploads/documents" %> <% '... do while not veriler.eof if FS.fileexists(file_link&"/"&veriler("dosya"))=true then strFileName = file_link&"/"&veriler("dosya") Set objFile = FS.GetFile(strFileName) 'Get the file size iFileSize = formatnumber(cdbl(objFile.Size/1024/1024),2) if say mod 2=0 then arkaplan_rengi="#F2F3FF" else arkaplan_rengi="#fff" end if sql2="select * from dosya_tipleri where uzanti='"&veriler("dosya_tipi")&"';" set veriler2=mysql_baglanti.execute(sql2) if not veriler2.eof then dosya_ikonu=so_url&"/so-content/uploads/dicons/"&veriler2("thumbnail") else dosya_ikonu="" end if %> <% say=say-+1 end if veriler.movenext loop %>

	Döküman Başlığı	Dosya	Dosya Tipi	Dosya Boyutu
" target="_blank">	<%=veriler("baslik")%>	" target="_blank"><%=veriler("dosya")%>	<%=veriler("dosya_tipi")%>	<%=iFileSize%> Mb	','Dökümanı sil');">

<% set FS=nothing else %> <% end if %>