<%@ CodePage="1252" LCID="1046" %> <% ' Get Menu Text Function GetMenuText(Id, Text) GetMenuText = Language.MenuPhrase(Id, "MenuText") If GetMenuText = "" Then GetMenuText = Text End Function %>
<% ' Initialize language object Set Language = New cLanguage Call Language.LoadPhrases() ' Generate all menu items Dim RootMenu Set RootMenu = new cMenu RootMenu.Id = "RootMenu" RootMenu.IsRoot = True Call RootMenu.Render(False) Set RootMenu = Nothing %>