mira, con este codigo en ASP lo que haces es que muestras el contenido de una carpeta completa, solo debes cuidar 2 cosas, que sean puras imagenes y que no tengan espacios en el nombre....
----------------------------------------------
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
carpeta=request.QueryString("carpeta")
if carpeta<>"" then
carpeta=carpeta&"/"
folder="galeria/"&carpeta
else
folder="galeria/"
end if
'nos selecciona la carpeta en la que esta el archivo
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath(folder))
'Nos muestra el nombre de nuestra carpeta en la web devuelta
Response.Write "<B>" & UCASE(ObjetoCarpeta.Name) & "</B>:<BR>"
'busca en todos los archivos que encuentra en dicha carpeta
For Each Fichero in ObjetoCarpeta.Files
Response.Write "<td><a href="&folder&Fichero.Name&"><img src="&folder&Fichero.Name & " width=60px height=50px></a></td>"
Response.Write "<tr><td><a href="&folder&Fichero.Name&"><img src="&folder&Fichero.Name & " width=60px height=50px></a></td>"
Next
Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing
-----------------------------------------------------
aqui lo que hago es que cada imagen se muestra a 60 x 50px y al darle click te abre la imagen original, quizas con algunos cambios te pueda servir
