Hämta fil och mappnamn med fso?

I dag skriver denna ut mappnamnen:

<%
	set fso = server.createobject("scripting.filesystemobject")
set folder =fso.getfolder(Server.Mappath("../bild"))
for each fo in folder.subfolders
response.write fo.name&"<br>"
next
%>

I varje enskild katalog ligger en bild kallad main.jpg som jag också vill skriva ut. Hur skapar jag en loop som skriver ut katalognamn och en bild från varje katalog?