<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
'ABAIXO, MUDE O CAMINHO DA PASTA ------------------------------------------------------>
set fo=fs.GetFolder("E:/vhosts/novoparaty.com.br/httpdocs/album/2009/260609/mini/")
'ACIMA, MUDE O CAMINHO DA PASTA ------------------------------------------------------->
response.write ("")
response.write ("