Galeria

<% dim fs,fo,x set fs=Server.CreateObject("Scripting.FileSystemObject") ima=server.MapPath("imagens/galeria/") set fo=fs.GetFolder(ima) %> <%for each x in fo.files%> <%next%>