Fejl i denne kode - skal liste filnavne op

Når jeg køre denne kode, så stener siden bare for evigt. Fatter det ikke helt, da det er kode jeg har hentet udestedsfra, som skulle virke. :)

<%
Dim objFSO, objFolder, objFile, strPath, strName
strFolder = "/Images/" 'den mappe, filerne ligger i

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(Server.MapPath(strFolder))

For Each objItem in objFolder.Files
 
strName = objItem.Name     
  Response.Write(objItem.Name) 
Next


Set objFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

%>

**Morten**