|
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 %>
|
|
|
|