<% ' -- show.asp -- ' Shows a list of uploaded files Response.Buffer = True %> List of smilies <% ' File System Object Dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") ' "Uploaded" Folder Dim folder Set folder = fso.GetFolder(Server.MapPath("/avatars")) If folder.Size > 0 Then Response.Write "
" tablecount = 0 For Each file In folder.Files if file.name <> "index.asp" then if file.name <> "Thumbs.db" then Response.Write "" tablecount = tablecount + 1 if tablecount = 10 then Response.Write "" Response.Write "" tablecount = 0 end if end if end if Next Else Response.Write "" End If %>
" Response.Write "" Response.Write "" Response.Write "