Salve a tutti io ho 1 problema:

ho appena finito la pagina web delle immagini con il metodo FilesystemObject ma invece d darmi tutte le immagini m da 1 quadrato con la x...

vi posto il codice che ho fatto:

<%
dim path
dim fso
dim fold
dim fileCount
dim cFcount
dim fNames
dim file
dim tName
dim nName
dim buffer
dim i
dim content

path = "c:\inetpub\wwwroot\andrea\immagini\"

set fso = CreateObject("Scripting.fileSystemObject")
set fold = fso.getFolder(path)
fileCount = fold.files.count
redim fNames(fileCount)
cFcount = 0
for each file in fold.files
cFcount = cFcount + 1
fNames(cFcount) = lcase(file.name)
next
for tName = 1 to fileCount
for nName = (tName + 1) to fileCount
if strComp(fNames(tName),fNames(nName),0)=1 then
buffer = fNames(nName)
fNames(nName) = fNames(tName)
fNames(tName) = buffer
end if
next
next
for i = 1 to fileCount
content = content & fNames(i) & "
"
next
%>
[img] & '<% Response.Write content %>' & [/img]

Cosa ho sbagliato????