Sustainable Futures of the NHLD Meeting
Sept. 3-6, 2002
<% Dim fs, folder, count, globalCount set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder("H://Groups/NHLD/sept2002kemp/gallery/Photoset1") 'set folder = fs.GetFolder("K://KnowledgeBase/Photoset1") Response.Write("" & folder.Name & " - " _ & folder.Files.Count & " files
") count = 0 globalCount = 1 Response.write("") for each item in folder.Files if(Right(item.Name,3) = "jpg") then Response.write("") count = count + 1 globalCount = globalCount + 1 if(count > 5) then Response.write("") count = 0 end if end if next for loopnumber = count to 5 Response.write("") next Response.write("

") Response.write(" ") Response.write("") Response.Write("" & vbCrLf) Response.write(" ") Response.write("Kemp " & globalCount & "

") %>