<% response.Buffer = true response.write "" Dim Fso,arq,pasta Set Fso = CreateObject("scripting.filesystemobject") Set pasta = Fso.getfolder(server.mapPath("imagens/")) contador = 0 For each arq in pasta.Files if (contador mod 5) = 0 then response.write "" response.write "" end if %> <% contador = contador + 1 if contador=300 then exit for end if next %>

Festa dos Bixos 2012

<% nomeArquivo = arq.name %>