System resource exceeded

Jag får helt plötsligt ett felmeddelande på detta. Det har fungerat tidigare men det är lite slarvigt skrivet... Felmeddelandet är System resource exceeded. Det fungerar utmärkt lokalt men inte på webbhotellet. Någon som har en aning om vad det kan vara?

<%
Dim connection
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/db.mdb")
SQL2 = "SELECT * FROM subk WHERE katID = ('" & Request("KatId") & "')"
Set RS2 = Connection.execute(SQL2)
Do Until rs2.eof
%> 
<IMG SRC="images/plutt.gif" WIDTH="14" HEIGHT="8"><SMALL><A HREF="subkat.asp?SubkatID=
<%= RS2("Subkat") %>&Kategori=<%= 

RS2("KatId") %>"><%= RS2("Subkat") %></A>&nbsp; &nbsp; &nbsp;</SMALL></FONT></B></FONT>
<%
RS2.MoveNext
loop
RS2.Close

katid = Request("katid")
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 7

SQL = "SELECT * FROM prod WHERE KatId LIKE ('" & Request("KatId") & "') ORDER by ProdID"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("/database/db.mdb")
rstemp.open SQL, connection
If rstemp.EOF then
Response.write "...Nada info här."
Else
   rstemp.movefirst
   rstemp.pagesize = mypagesize
   maxcount = Cint(rstemp.pagecount)
   rstemp.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rstemp.fields.count -1
   Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "336600"
   Else
      color = "FFFFFF"
   End If 

bild = RStemp("bild")
others = RStemp("others")
Marke = RStemp("Marke")
Modell = RStemp("Modell")
Response.Write "<table><tr><td width=""66"" Heigth=""64""><img src=""/images/" & bild & """ 
BORDER=""0"" WIDTH=""50"" 

HEIGHT=""50""></td><td width=""403"" height=""31""><B><FONT>" & Others & "</B><BR>
"&nbsp;" & "kr" &"" & "</td></td></td></tr></a></font></table>"	
	rstemp.movenext
	howmanyrecs = howmanyrecs + 1
	Loop
	rstemp.close
	Set rstemp = nothing
	connection.close
	Set Connection = Nothing

	If maxcount <> 0 then
	response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
	pad = ""
	scriptname = request.Servervariables("script_name")
	for counter = 1 to maxcount
	If counter >= 10 then
	pad = ""
	End If
	ref = "<a href='" & scriptname & "?whichpage=" & 
counter & "&pagesize=" & mypagesize & "&katid=" & katid & "'>
	" & pad & counter & "</a> "
	response.write ref & " "
	if counter mod 10 = 0 then
	response.write "<br>"
	End If
	Next
	End If
	End If
%>

Låter som om webbhotellet har strul med servern. Kommer meddelandet från någon specifik rad?

Problemet löst, det var webbhotellet!
(Puh...)