<%
sql="select * from dokumanlar where galeri="&so_content_dokuman_galeri&" order by sira;"
set veriler=mysql_baglanti.execute(sql)
if not veriler.eof then
%>
<%=lang_dosya_tipi%> |
<%=lang_dosya_basligi%> |
<%=lang_dosya%> |
<%=lang_dosya_boyutu%> |
<%=lang_indir%> |
<%=lang_oku%> |
<%
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 = cint(objFile.Size/1024)
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
%>
<%if dosya_ikonu<>"" then%> <%else%><%=veriler("dosya_tipi")%><%end if%> |
<%if veriler("baslik")<>"" then%><%=veriler("baslik")%><%else%>-<%end if%> |
<%=veriler("dosya")%> |
<%=iFileSize%> kb |
<%if veriler("dosya_tipi")<>"txt" then%>" title="<%=veriler("baslik")%>"> <%else%>-<%end if%> |
<%if veriler("dosya_tipi")<>"rar" and veriler("dosya_tipi")<>"zip" then%><%if veriler("dosya_tipi")="txt" then%>" target="_blank" title="<%=veriler("baslik")%>"><%else%>&embedded=true" target="_blank" title="<%=veriler("baslik")%>"><%end if%> <%else%>-<%end if%> |
<%
say=say-+1
end if
veriler.movenext
loop
%>
<%
set FS=nothing
else
response.Write lang_medya_bulunamadi
end if
%>
