ASP og B-One!

Igen, har jeg noget asp kode som virker ALLE steder pånær hos B-One ..... (jeg er meget træt af dem)

er der nogen der kan fortælle mig hvorfor jeg får denne fejl --> www.cmoller.dk/fejl.htm




<%
ThumbSubFolder = "/thumbs/"
imageBOXcount = 0
row_count = 0
row = 1
count = 1

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
strPhysicalPath = Server.MapPath(ThumbSubFolder)
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
Set objFolderParent = objFolder.ParentFolder

Response.write "<h3 align='center'>" & objFolderParent.name & "</h3>"

%>

<hr>
<p align=center>

<%
info_Count = 0
For Each objFileItem in objFolderContents
info_Count = info_Count + 1
Next
Response.write "<br>Der er ialt <b>" & (info_Count) & "</b> billeder"
%>

<div align="center">
<table border="0" cellspacing="3" cellpadding="3">
  <tr>

<%
For Each objFileItem in objFolderContents

  If row_count > 2 then
    response.write "<tr>"
    row_count = 0
    row = row + 1
  End If

  Response.write " <td><a href='"
  Response.write "imagebox.asp?iStart=" & imageBOXcount
  Response.write "'><img border=0 src='" & ThumbSubFolder & (objFileItem.Name) & "'></a></td>"

  If row_count = 2 then
    response.write "</tr>"
  End If
 
  row_count = row_count + 1   
  count = count + 1
  imageBOXcount = imageBOXcount + 1
Next
%>
</table>