filesystemobject, min visfiler.asp nedlægger alt

Jeg har følgende fil til at vise mine billedfiler, somen lille hjælp, når jeg har uploadet mine billeder og skal dem til databasen. jeg får hele tiden en fejl der siger at der er for mange brugere på siden ? og jeg kan heller ikke åbne andre af mine filer efterfølgende i browseren samme fejl ???

Filen:

<%
response.expires=0.2

set fsosystem = createobject("scripting.filesystemobject")
set fsofolders = fsosystem.getfolder(server.mappath("."))

            for each file in fsofolders.files
           
            strname = Lcase(file.name)
            intsize = formatnumber(file.size,0,0, , true)
           
            if Lcase(right(strname,3))<>"asp" then


%>

&nbsp;&nbsp;&nbsp;<% =  strname  %> &nbsp;&nbsp;&nbsp;  (<% = intsize  %>bytes)
<br>


<% End If

    next
   
    set fsofolders = nothing
    set fsosystem = nothing
%>