ho questa funzione che mi permette di visualizzare le immagini presenti in una cartella.
il problema è che con IE funziona benissimo ma con Firefox vedo tutto tranne le foto
function elenca
i = 0
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath("immagini/"))
Set file3 = file2.Files
For Each file in file3
response.Write "-" & file.datecreated & "
"
response.Write "-" & file.path & "
"
response.Write "-" & file.size & "
"
response.write "-" & file.name & "
"
%>
visualizza
[img]<%=file.path%>[/img]
<%
if i = 2 then
response.write "</td></tr><tr><td>"
i = 0
else
i = i + 1
response.Write("<td>")
end if
next
end function
![]()