<%
dim fso, fldr, file, strDownloadDirectory
dim idx, gal, fname
idx = 1
strDownloadDirectory = Server.mappath("/galleries/gallery1/")
set fso = server.createobject("scripting.filesystemobject")
set fldr = fso.getfolder(strDownloadDirectory)
for each file in fldr.files
if lcase(right(file.name,4)) = ".jpg" then
fname = left(right(file.name, len(file.name)-2), len(file.name)-6)
%>
<%
if idx = 1 then
%>
<%
end if
%>
<%
end if
idx = idx + 1
next
set fso = nothing
set fldr = nothing
set file = nothing
%>
<%
idx = 1
strDownloadDirectory = Server.mappath("/galleries/gallery2/")
set fso = server.createobject("scripting.filesystemobject")
set fldr = fso.getfolder(strDownloadDirectory)
for each file in fldr.files
if lcase(right(file.name,4)) = ".jpg" then
fname = left(right(file.name, len(file.name)-2), len(file.name)-6)
%>
<%
if idx = 1 then
%>
<%
end if
%>
<%
end if
idx = idx + 1
next
set fso = nothing
set fldr = nothing
set file = nothing
%>
<%
idx = 1
strDownloadDirectory = Server.mappath("/galleries/gallery3/")
set fso = server.createobject("scripting.filesystemobject")
set fldr = fso.getfolder(strDownloadDirectory)
for each file in fldr.files
if lcase(right(file.name,4)) = ".jpg" then
fname = left(right(file.name, len(file.name)-2), len(file.name)-6)
%>
<%
if idx = 1 then
%>
<%
end if
%>
<%
end if
idx = idx + 1
next
set fso = nothing
set fldr = nothing
set file = nothing
%>
<%
idx = 1
strDownloadDirectory = Server.mappath("/galleries/gallery4/")
set fso = server.createobject("scripting.filesystemobject")
set fldr = fso.getfolder(strDownloadDirectory)
for each file in fldr.files
if lcase(right(file.name,4)) = ".jpg" then
fname = left(right(file.name, len(file.name)-2), len(file.name)-6)
%>
<%
if idx = 1 then
%>
<%
end if
%>
<%
end if
idx = idx + 1
next
set fso = nothing
set fldr = nothing
set file = nothing
%>
