<% Dim iTr, objFSO, objFiles, objFolders, strPath, maxColumns, subFolder, containedFile, strPhysicalPath Dim subFoldersCount, subFilesCount Dim iFileCount strPhysicalPath = server.mappath("upfiles/smiley/") set objFSO = Server.CreateObject("Scripting.FileSystemObject") set objFiles = objFSO.GetFolder(strPhysicalPath).files subFilesCount = objFiles.count set objFSO = nothing maxColumns = 5 iTr = 1 %> <%= Application(dbName&"forumtitle") %> <%= NoScript() %> <%= OutputCSS() %> >
<% iFileCount = 0 for each containedFile in objFiles if iTr = 1 then response.write ("") response.write ("") if iTr < maxColumns then iTr = iTr +1 else iTr = 1 response.write (""&vbcrlf) end if iFileCount = iFileCount + 1 next Set objFiles = nothing if iTr <> 1 then response.write ("") end if %>
<%= moresmileyDesc %>
"&_ ""&_ "


<%= javascriptCloseWindow %>