PROBLEMA CON FSO:
PRIMA FUNZIONAVA POI, NON SO COME, MANDA IN LOOP IIS 5.1
CON UN COMCHECKER IL FSO RISULTA "Available"
ECCO SCRIPT
IL FILE ESISTE QUINDI strFile NON è BLANK
IN DEBUG SI INCHIODA A
Set InStream = FileObject.OpenTextFile( strFile )
NELL'ESEGUIRE Open
GRAZIE
Beppe

<%
Dim FileObject
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
'LEGGO IL FILE
strFile = Server.MapPath("../TESTI/00_FOTO_ART.txt")
'*********
Set InStream = FileObject.OpenTextFile( strFile )
linee = Instream.ReadAll()
' SALVO NELL'ARRAY
linee = Split (linee, VbCrLf)
InStream.Close
Set InStream=Nothing
Response.Write ("<TABLE BORDER=0 CELLSPACING=3 CELLPADDING=3 BGCOLOR=#3278D5>")
Response.Write ("<TR>")
for i = 0 to ubound(linee)
CARTELLA="../images/"&linee(i)
Response.Write ("<TD ALIGN=CENTER VALIGN=MIDDLE><img border=0 width=90 height=70 src='"&CARTELLA&"'></TD>")
next
Response.Write ("</TABLE>")
Set FileObject = Nothing
%>

Se va in loop IIS e non hai cambiato il codice potrebbe essere l'antivirus che blocca l'esecuzione degli script oppure le permission sulla cartella...

Guarda la faq 75