Al final he encontrado la solución naveando por el foro y realizando algunas pruebas.
La detallo por si a alguien le puede interesar
------------------------------------------------------------
set sFS=Server.CreateObject("Scripting.FileSystemObjec t")
set fo=sFS.getfolder(Server.MapPath("fotos"))
for each x in fo.files
fichero = x.name
response.write ("<img src='fotos\" & fichero & "'<")
next
-----------------------------------------------------------
Así puedo sacar todas las fotos del directorio, en este caso el directorio "fotos" que también se le puede pasar como parametro para que navegue por todos las carpetas que se desee