For each cartella mi devasta iis

[SPEED78]

salve ragazzi ho un problema incredibile che non mi si era mai presentato:
ho un codice semplicissimo:
e premetto che l'hoprovato su tre macchine differenti e funziona

<% 

' Dichiara le variabili necessarie 
' Definisci il percorso della cartella da leggere 
strPath = server.MapPath("cartella") 

' Crea gli oggetti FSO necessari 
Set objFso = Server.createObject("Scripting.FileSystemObject") 
Response.Write "la cartella esiste?"& objFso.FolderExists(strPath)
Set fileGet = objFso.GetFolder(strPath)
Set files = fileGet.Files
For Each file in files 
response.write "<A HREF=' " 
response.write file.name 
response.write " '>" 
response.write file.name 
response.write "</A> " & file.size & " Kb " 
Next
Set objFso=Nothing 
Set fileGet=Nothing 
Set files=Nothing 
%>

quando lo eseguo mi va in loop e devo perforza riavviare iis qualcuno sa pechè o cosa devo fare?grazie

[fede_00]

io l'ho provato e funziona regolarmente, chiaramente sostituendo "cartella" con il nome di una mia cartella reale