Hvorfor går min server ned når jeg køre den her kode?

Hej!
Jeg er TOTALT nybegynder, så det er derfor jeg spørg.
Når jeg køre følgende kode, går min ISS-server i stå, why?

<HTML>
  <BODY>
<%
ImageDir = "/images/"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
Response.Write "<p>Der er " & objFiles.Count & " billeder i dette bibliotek</p>"
For Each Image In objFiles
    Response.Write "<p><img src=" & ImageDir & Image.Name & "><br>"   
Next
Set objFS = Nothing
%>
  Denne side blev sidst opdateret den <%= Now() %>.
  </BODY>
</HTML>

Håber i kan hjælpe