<% Dim Fso,arq,pasta Set Fso = CreateObject("scripting.filesystemobject") Set pasta = Fso.getfolder(server.mapPath("/certificado/arquivos/")) %>


<% For each arq in pasta.Files if arq.name="descricao.txt" then %> <% end if next %>

<% response.Buffer = true response.write "" contador = 0 For each arq in pasta.Files if (contador mod 8) = 0 then response.write "" response.write "" end if if right (arq.name,3)="gif" or right (arq.name,3)="jpg" or right (arq.name,3)="pdf" then %> <% end if contador = contador + 1 next Response.Write "


<% nomeArquivo = arq.name %> <%if right (arq.name,3)="pdf" then%> <% 'Response.Write arq.DateCreated posicao=instr(arq.name,".") Response.Write left (arq.name,posicao) else %> <% posicao=instr(arq.name,".") Response.Write left (arq.name,posicao) 'Response.Write arq.DateCreated end if %>

" contador = contador - 1 %>

<% if len (nomeArquivo)=0 then Response.Write "Não existem certificados disponíveis para visualização.
" Response.Write "Voltar" else %> Para visualizar os arquivos é necessário o Acrobat Reader

<%end if%>