Problem vid listning av mappar!

Innan ominstallationen av min dator funkade scriptet nedan. Nu funkar det inte alls, IIS låser sig bara och säger att det är för många som försöker nå servern och att man ska försöka lite senare. Jag har försökt med att installera om IIS, men det har inte hjälpt. Jag testade att köra scriptet på min server och på min bärbara, där funkade det. Servern kör win2kserver och den bärbara winXPprof, det gör även min stationära.

Dim Undermapp, Typ, Size, Tecken, MyPath

Undermapp = ("../wwwroot")

MyPath = Server.MapPath(Undermapp)

Set Fso = CreateObject("Scripting.FileSystemObject") 
Set Gfo = Fso.GetFolder(MyPath) 
Set Fgf = Fso.GetFolder(Server.MapPath(Undermapp)) 
Set MyDrive = Gfo.Subfolders

For Each Folder in MyDrive 

  Response.Write Folder.Name & "<br>"

Next

Set Fgf = Nothing 
Set Fso = Nothing 
Set Gfo = Nothing 
Set MyDrive = Nothing

Vad kan det vara som hindrar scriptet från att köras korrekt?

MVH Kaspar

Norton Antivirus - Script Blocking
Eller att du inte få använda "top-mapping" "kul ord".
Nej men att du stega upp i katalogstrukturen ".." i en sökväg vid server.mappath(""). Denna inställning finns i IIS.

Tackar, det var Norton som spökade! Först när jag stängde av Script-Blocking kvarstod problemet, men efter att jag startat om IIS så funkade det. ;)

Kanon