non mi visualizza le immagini da dentro la cartella

[oliweb]

con questo codice ovrei visualizzare i file (le immagini) contenute dentro una directory:

album=request.QueryString("dir") (dir è la variabile che passo dalla pagina precedente) 
response.expireS=-100
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Cartella = objFSO.GetFolder(Server.mappath(request.QueryString("dir")))
response.write "Lista Album di "&server.mappath(request.QueryString("dir"))&""
 
' Se volete visualizzare i files mettete
' For Each objItem In cartella.files

cont=0
response.write "<table border=1><tr>"
For Each objItem In cartella.Files
if (cont mod 4)=0 then
response.write "</tr><tr>"
end if

response.write "<td valign=top align=center>[img]&album&[/img]</td>"

cont=cont+1
Next
response.write "</tr><table>"

così facendo non mi visualizza le immagini, come posso fare?
Grazie