Se billedfiler på server

<%
ImageDir = \"/pics\"
Set objFS = CreateObject(\"Scripting.FileSystemObject\")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files

%>
<select name=pics>
<%
For Each Image In objFiles
  If lCase(right(Image.Name,3)) <> \"asp\" AND lCase(right(Image.Name,3)) <> \"bak\" AND lCase(right(Image.Name,3)) <> \"htm\"  Then
    response.write(\"<option>\" & image.name & \"</option>\" & vbcrlf)
  End if
Next

%>
</select>

I samme asp-fil skal jeg have udfyldt en dropdown med udstyr fra en database. Jeg har prøvet forgæves, men jeg får følgende fejlmeddelelse:

Server object error \'ASP 0177 : 800a004c\'
Server.CreateObject Failed
/loadleas/docs/admin/test1.asp, line 40
The operation completed successfully.

Hvad er der galt her?

Kan du vise koden ??

Men den her del til at vise billederne virkede da fint, ik ?

Nu har jeg fået den til at virke...også med database. Tusind tak for hjælpen.