con questo codice ovrei visualizzare i file (le immagini) contenute dentro una directory:
codice:
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