doga apart villa akayaköy
FOTOĞRAFLAR
<%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/galery") '''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 %>