Stumped Getting Out of Memory Error

sub listParentMenu()
	strSQL = "SELECT menuID, parentMenuName, levels" &_
	         " FROM menus" &_
	         " WHERE levels = 1" &_
	         " ORDER BY menuID"
	         
	set objRS = GetDisconnectedRecordset(strSQL, "GetMenus", false)	  
	    Response.Write "<ul id=""main-nav"" class=""ul_bg"">" & vbcrlf
		While NOT objRS.EOF
			Response.Write "<li class=""down_arrow"">" & objRS("parentMenuName") & "" &vbcrlf
			
			Call listChildMenu(objRS("parentMenuName"))
			
			objRS.MoveNext()
            			 
			Response.Write Space(2) & "</li>" & vbCRLF
		Wend
		Response.Write "</ul>" & vbcrlf

		
	objRS.Close()
end sub
	
Sub listChildMenu(parMenuName)
	strSQL2 = "SELECT menu1.menuID as menuID, menu1.parentMenuName as menuName, " &_
	          " menu1.childMenuName as childMenuName, menu1.Link as link, menu1.Levels as lvl, " &_
	          " menu1.isParent as isParent FROM menus menu1" &_
	          " INNER JOIN menus as menu2 ON menu1.menuID = menu2.menuID" &_
	          " WHERE menu2.parentMenuName = '"&parMenuName&"'" &_
	          " AND menu1.childMenuName <> '' " &_
	          " ORDER BY menu1.menuID"
     
	Set objRS2 = GetDisconnectedRecordset(strSQL2, "GetChildrenMenus", false)	  
   
   	If Not objRS2.EOF Or Not objRS2.BOF Then
      Response.Write Space(2) & "<ul class=""childLevel"">" & vbcrlf
      While not objRS2.EOF
	      Response.Write Space(4) & "<li"
	       if (objRS2("isParent") = "True") then 
	        Response.write " class=""next_arrow"" "
	       end if 
	      Response.write "><a href="""&objRS2("link")&""">"&objRS2("childMenuName")&"</a>" &vbcrlf
	      
	      Call listChildMenu(objRS2("menuName"))
	      
	      Response.Write "</li>"&vbcrlf
          objRS2.MoveNext()
      Wend
      Response.write Space(4) & "</ul>" &vbcrlf
    end if
    objRS2.Close()
    set objRS2 = Nothing
End Sub

<% Call listParentMenu() %>