|
|
|
|
| PICTURE GALERY |
|
|
|
|
Please click the pictures to enlarge |
|
<%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)
i=i+1
if picName<>"Thumbs.db" then
'if i mod 4=0 then
' response.Write(" ")
' end if
%>
','370','278','RAMOS YACHTING-PICTURE GALLERY','100','');">
%>) |
<%
if i mod 4=0 then
response.Write(" ")
end if
end if
Next %>
|
|
