<%
'obtengo el directorio físico de la carpeta donde está este script
nombre_carpeta = Server.MapPath("\fotos\Miniaturas")
nombre_carpeta2 = Server.MapPath("\fotos\Buenas")
'response.write "<h1>-" & nombre_carpeta & "</h1>"

'Conecto con el sistema de archivos
set FSO = server.createObject("Scripting.FileSystemObject")

'creo el objeto carpeta
Set carpeta = FSO.GetFolder(nombre_carpeta)
Set carpeta2 = FSO.GetFolder(nombre_carpeta2)


'traigo los archivos de la carpeta
Set archivos = carpeta.Files
Set archivos2 = carpeta2.Files

Dim Miniaturas()




Contador = 0
'para cada archivo, muestro su nombre.
for each nombre_archivo in archivos

	Contador = Contador + 1
	'Miniaturas(Contador)=nombre_archivo
	'response.Write "<br>" & nombre_archivo
next

redim Miniaturas(Contador,Contador)

Contador = 0
for each nombre_archivo in archivos

	Contador = Contador + 1
	Miniaturas(Contador,0)=nombre_archivo
	'response.Write "<br>" & nombre_archivo
next

Contador = 0
for each nombre_archivo in archivos2

	Contador = Contador + 1
	Miniaturas(0,Contador)=nombre_archivo
	'response.Write "<br>" & nombre_archivo
next

For i=1 to Contador
%>
<a href="<%=Miniaturas(0,i)%>"><img src="<%=Miniaturas(i,0)%>" width="220" height="190"></a>
<%
next

%>