* Exibição de marcas autorizadas pelos usuários
<% Dim directory, allfiles, directoryfile, dicFiles, aItems, aKeys, i Set directory=server.createobject("scripting.filesystemobject") Set allfiles=directory.getfolder(server.mappath("logos")) Set dicFiles = Server.CreateObject("Scripting.Dictionary") For each directoryfile in allFiles.files if InStr(UCase(CStr(directoryfile.Name)), "LOGO" ) <> 0 then dicFiles.Add CStr(directoryfile.Name), "." end if next SortDictionary dicFiles, dictKey aItems = dicFiles.Items aKeys = dicFiles.Keys ' Lists all the files found in the directory %> <% For i = UBound(aKeys) to 0 step -1 %> [ <%=i+1%> ] <% Next %>