<% picsInRowLimit = 3 strThumbnailsFolder = "./thumbnails" strImagesFolder = "./images" set objFS = Server.CreateObject("Scripting.FileSystemObject") set objFolder = objFS.GetFolder(Server.MapPath(strThumbnailsFolder)) picsInRow = 0 For each file in objFolder.Files fileExtension = right(file.Name, 3) If fileExtension = "gif" or fileExtension = "jpg" or fileExtension = "png" Then %> <% End If picsInRow = picsInRow + 1 If picsInRow = picsInRowLimit Then %> <% picsInRow = 0 End If next %>