Dans Atölyesi Fotoğraf Galerisi
<%dim lcFile,picName Set fso=Server.CreateObject("Scripting.FileSystemObject") lcPATH_INFO = Request.ServerVariables("PATH_TRANSLATED") lcPATH_INFO = Left(lcPATH_INFO, InStrRev(lcPATH_INFO, "\") - 1) Set lcOldFld = fso.GetFolder(lcPATH_INFO & "\images/danskuc") '''Eski folder For Each lcFile In lcOldFld.Files picName=mid(lcFile,InStrRev(lcFile, "\")+1) if picName<>"Thumbs.db" then i=i+1 %> <% if i mod 4=0 then response.Write("") end if end if Next %>
 
 
Anasayfa
Yaptıklarımız
Konaklama ve ulaşım
İletişim
Gönüllü çalışma
Sıkça sorulan sorular
Blog yazıları
Faydalı yazılar
Albüm
Etkinlikler