System Resource Exceeded!

Den vender tilbage gang på gang. Jeg har stillet dette spørgsmål her inde flere gange nu, men hver gang vender den fandme tilbage [ASP er skod nogen gang]

Jeg vil vise Jer et script ad gangen her inde så må i gerne fortælle mig om der er fejl i.... system resource exceeded kommer typisk fordi jeg ikke har lukket min database connection, men i må gerne undersøge andre muligheder.

her er første script som kan være årsagen..
Jeg har fjernet alt html, billeder osv... det er kun ASP kode tilbage..

----------------------
Denne kode starter over <html>
----------------------

<%
dim mode,  id
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

    id = Request("rid")
    sp = Request("sp")

myconn.Execute("Update downloads SET hits =hits+1 where id="&id)


%>

----------------------------
denne kode starter under <html>
---------------------------
 
          <%    strSQL = "SELECT * From bruger where id = " & id
    Set rs = myConn.Execute(strSQL)
%>
          <%=rs("bruger")%>

          <%
Do Until rs.EOF
%>
       
           

              <%
if sp="bruger" then response.write "<h3><a href='"&rs("brugerlink")&"' target='_Blank'>"&rs("bruger")&"</a></h3>"


if sp="error" then response.write "<a href='errorlink'>Fejl</a>"
%>
           
     
                <%=rs("dato")%><%=rs("info")%>

          <%
rs.MoveNext
Loop
%>
       
 

               
          <%
Do Until rs.EOF
%>
          <%
rs.MoveNext
Loop
%>
     



<%
myconn.Close
Set myconn = Nothing
%>



-----------------------------------færdig



er det fordi jeg lukker min database forkert? hvordan gør i eller er det en anden fejl?