<% Dim oFilesys, oFolder, oFile Set oFilesys= CreateObject("Scripting.FileSystemObject") Set oFolder= oFilesys.GetFolder(Server.MapPath("/images/gallery/")) counter = 1 For Each oFile in oFolder.Files Response.write("") if counter mod 5 = 0 then Response.write "
" end if counter = counter + 1 Next Set oFolder=Nothing Set oFilesys=Nothing %>