вот. и вложенное тоже вот:

Bitmag 20.05.2002 18:24

@mainmenu[level;ctr]

$ctrl[$ctr]
^connect[mysql://@localhost/test?charset=cp1251_koi8]{$mainmenu[^table::sql{select * from mainmenu}]}

$maxlevel[0] ^mainmenu.menu{^if($maxlevel<$mainmenu.Level){$maxlevel[$mainmenu.Level]}}

<table>
^buildmenu[$level;0]
</table>

@buildmenu[lev;upid]
^mainmenu.menu{^if($mainmenu.Level eq $lev && $mainmenu.SubId eq $upid){
$go[1]^if($mainmenu.Active eq off){^if($ctrl eq 1){$go[1]}{$go[0]}}

^if($go eq 1){
$curid[$mainmenu.ID]
$upper[0]
^mainmenu.menu{^if($mainmenu.SubId eq $curid){$upper[1]}}

^if($upper eq 1){

<div>

<table><tr><td align=top>

<img src="img/arrow_menu_right.gif" border=0 name=arrMenu$mainmenu.ID onClick="changeSubMenu('sub$mainmenu.ID')" onmouseout="leaveMenuArrow(this, 'sub$mainmenu.ID', false)" onmouseover="enterMenuArrow(this, false)"></td><td>
<a class=menu ^if($form:ID eq $mainmenu.ID){}{href=${mainmenu.Href}.html?ID=$mainmenu.ID&SubId=$mainmenu.SubId}><b>$mainmenu.Name</b></a>

</td></tr></table>

}{

<div style="PADDING-BOTTOM: 2px^; PADDING-LEFT: 12px^; PADDING-RIGHT: 12px^; PADDING-TOP: 2px^; TEXT-INDENT: -11px">
<img src="img/bullet_menu.gif">
<a class=menu ^if($form:ID eq $mainmenu.ID){}{href=${mainmenu.Href}.html?ID=$mainmenu.ID&SubId=$mainmenu.SubId}>$mainmenu.Name</a>

}

^if($mainmenu.Level<$maxlevel){


<div class=notShown id=sub$mainmenu.ID style="PADDING-LEFT: 13px">
^buildmenu[^eval($mainmenu.Level+1);$mainmenu.ID]
</div>

}}
</div>
}

}

---