<%
sql="select top 8 * from dokumanlar order by id desc ;"
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 = 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
%>