Список категорий инфоблока в топменю

$cat_menu = Array();
// проверим установлен ли модуль "Информационные блоки" и если да то подключим его 
if (CModule::IncludeModule("iblock")): 
   $wanted_sect=CIBlockSection::GetList(Array("SORT"=>"ASC"), Array("IBLOCK_ID"=>25), false, Array());
   while($one_sect=$wanted_sect->GetNext()) // вытягиваем результат выборки из объекта
   {
      if($one_sect[DEPTH_LEVEL]==1&&$one_sect[SORT]<=100) {
         $cat_menu_el[CODE] = $one_sect[CODE];
         $cat_menu_el[NAME] = $one_sect[NAME];
         $cat_menu[] = $cat_menu_el;
      }
   }
endif;