Menu dinâmico com submenu e diferentes níveis

Olá pessoal,

Utilizo Visual Studio para desenvolver minhas aplicações web e estou tendo problemas ao montar meus submenus. O menu normal está sendo montado direitinho mas, quando preciso montar os submenus não dá certo. Já pesquisei pela web e o máximo que consegui foi a montagem de um menu normal. Alguém poderia me dar uma dica de como melhorar meu código para que finalmente consiga montar um menu com vários níveis de submenus? Abaixo segue todo o código.

Aqui está minha tabela:

CREATE TABLE [dbo].[MENUS](
	[ID] [int] NOT NULL,
	[PARENTEID] [int] NULL,
	[NOME] [varchar](100) NOT NULL,
	[DESCRICAO] [varchar](100) NOT NULL,
	[ARQUIVO] [varchar](100) NULL,
	[TARGETMENU] [varchar](10) NULL,
	[NIVEL] [int] NULL,
	[ORDENAR] [int] NOT NULL,
 CONSTRAINT [PK_MENUS] PRIMARY KEY CLUSTERED

( [ID] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO

ALTER TABLE [dbo].[MENUS] WITH CHECK ADD CONSTRAINT [MENUS_fk] FOREIGN KEY([PARENTEID])
REFERENCES [dbo].[MENUS] ([ID])
GO

ALTER TABLE [dbo].[MENUS] CHECK CONSTRAINT [MENUS_fk]
GO

Aqui segue os inserts:

(Nenhum nome de coluna)

INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 1, NULL,'Auxiliares', 'Cadastro de auxiliares', '#', '_self', 1,1);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 2, NULL,'Cursos', 'Cadastro de cursos e editais', '#', '_self', 2,1);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 3, NULL,'Matricula', 'Cadastro de matrículas', '#', '_self', 3,1);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 4, NULL,'Seguranca', 'Cadastros de segurança', '#', '_self', 4,1);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 5, NULL,'Marketing', 'Cadastro de marketing', '#', '_self', 5,1);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 6, NULL,'Ferramentas', 'Cadastro de ferramentas', '#', '_self', 6,1);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 7, 1, 'Benefícios', 'Cadastro de benfícios do edital', 'cadBeneficios.aspx', '_self', 1,1);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 8, 1, 'Cargos', 'Cadastro de cargos', 'cadCargos.aspx', '_self', 1,2);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 9, 1, 'Países', 'Cadastro de países', 'cadPaises.aspx', '_self', 1,3);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 10, 1, 'Estados', 'Cadastro de estados', 'cadEstados.aspx', '_self', 1,4);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 11, 1, 'Macrorregião', 'Cadastro de macrorregiões', 'cadMacroregiao.aspx', '_self', 1,5);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 12, 1, 'Cidades', 'Cadastro de cidades', 'cadCidades.aspx', '_self', 1,6);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 13, 1, 'Escolaridade', 'Cadastro de escolaridades', 'cadEscolaridade.aspx', '_self', 1,7);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 14, 1, 'Estado civil', 'Cadastro de estado civil', 'cadEstadoCivil.aspx', '_self', 1,8);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 15, 1, 'Expectativas', 'cadastro de expectativas', 'cadExpectativas.aspx', '_self', 1,9);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 16, 1, 'Fonte de recursos', 'Cadastro de fontes de recursos', 'cadFonteRecursos.aspx', '_self', 1,10);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 17, 1, 'Lotação', 'Cadastro de lotação', 'cadLotacao.aspx', '_self', 1,11);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 18, 1, 'Modalidades', 'Cadastro de modalidades', 'cadModalidades.aspx', '_self', 1,12);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 19, 2, 'Motivos', 'Cadastro de motivos', 'cadMotivos.aspx', '_self', 2,4);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 20, 1, 'Necessidades especiais', 'Cadastro de necessidades especiais', 'cadNecessidadesEspeciais.aspx', '_self', 1,14);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 21, 1, 'Pré-requisitos', 'Cadastro de pré-requisitos', 'cadPrerrequisitos.aspx', '_self', 1,15);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 22, 1, 'Profissões', 'Cadastro de profissões', 'cadProfissoes.aspx', '_self', 1,16);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 23, 1, 'Projetos', 'Cdastro de projetos', 'cadProjetos.aspx', '_self', 1,17);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 24, 1, 'Setor beneficiado', 'Cdastro de setores beneficiados', 'cadSetorBeneficiado.aspx', '_self', 1,18);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 25, 2, 'Eixos', 'Cadastro de eixos', 'cadEixos.aspx', '_self', 2,1);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 26, 2, 'Cursos', 'Cadastro de cursos', 'cadCursos.aspx', '_self', 2,2);
INSERT INTO MENUS (ID, PARENTEID, NOME, DESCRICAO, ARQUIVO, TARGETMENU, NIVEL, ORDENAR) VALUES ( 27, 2, 'Editais', 'Cadastro de editais', 'cadEdital.aspx', '_self', 2,3);

	Aqui tem o objeto objMenus.vb

Imports System.Data.SqlClient

Namespace DETI

Public Class objMenu

Private Db As classDatabase.DbSql
Private Cm As SqlCommand
Private Fn As New Funcoes.classFuncao
' DeclaMENUo das variaveis

Private vlID As Integer
Private vlNOME As String
Private vlDESCRICAO As String
Private vlARQUIVO As String
Private vlTARGETMENU As String
Private vlPARENTEID As Integer
Private vlNIVEL As Integer
Private vlORDENAR As Integer

' DeclaMENUo das propriedades

Property ID()
Get
Return vlID
End Get
Set(ByVal Value)
vlID = Value
End Set
End Property

Property NOME()
Get
Return vlNOME
End Get
Set(ByVal Value)
vlNOME = Value
End Set
End Property

Property DESCRICAO()
Get
Return vlDESCRICAO
End Get
Set(ByVal Value)
vlDESCRICAO = Value
End Set
End Property

Property ARQUIVO()
Get
Return vlARQUIVO
End Get
Set(ByVal Value)
vlARQUIVO = Value
End Set
End Property

Property TARGETMENU()
Get
Return vlTARGETMENU
End Get
Set(ByVal Value)
vlTARGETMENU = Value
End Set
End Property

Property PARENTEID()
Get
Return vlPARENTEID
End Get
Set(ByVal Value)
vlPARENTEID = Value
End Set
End Property

Property NIVEL()
Get
Return vlNIVEL
End Get
Set(ByVal Value)
vlNIVEL = Value
End Set
End Property

Property ORDENAR()
Get
Return vlORDENAR
End Get
Set(ByVal Value)
vlORDENAR = Value
End Set
End Property

' DeclaMENUo dos procedimentos
Public Function Inserir()
Dim pParametro As String = DBNull.Value.ToString
If vlPARENTEID > 0 Then pParametro = " AND A.PARENTEID = " & vlPARENTEID

Try
Cm = New SqlCommand

' Gera o código
Db = New classDatabase.DbSql
Db.NomeTabela = "MENUS"
vlID = Db.Chave("ID")
Db = Nothing

With Cm.Parameters
.AddWithValue("@ID", vlID)
If vlPARENTEID > 0 Then .AddWithValue("@PARENTEID", vlPARENTEID) Else .AddWithValue("@PARENTEID", DBNull.Value)
.AddWithValue("@NOME", Trim(vlNOME))
If Trim(vlDESCRICAO) <> DBNull.Value.ToString Then .AddWithValue("@DESCRICAO", Trim(vlDESCRICAO)) Else .AddWithValue("@DESCRICAO", DBNull.Value)
If Trim(vlARQUIVO) <> DBNull.Value.ToString Then
If Right(Trim(vlARQUIVO), 5) <> ".aspx" Then .AddWithValue("@ARQUIVO", Trim(vlARQUIVO) & ".aspx") Else .AddWithValue("@ARQUIVO", Trim(vlARQUIVO))
Else
If Trim(vlARQUIVO) = DBNull.Value.ToString Then
.AddWithValue("@ARQUIVO", "#")
End If
End If
If Trim(vlTARGETMENU) <> DBNull.Value.ToString Then .AddWithValue("@TARGETMENU", Trim(vlTARGETMENU)) Else .AddWithValue("@TARGETMENU", "_self")
.AddWithValue("@NIVEL", vlNIVEL)
.AddWithValue("@ORDENAR", vlORDENAR)
End With

If Busca(" A.NOME = '" & Trim(vlNOME) & "' AND A.ARQUIVO = '" & Trim(vlARQUIVO) & "' " & pParametro) Then
Return "REGISTRO JÁ CADASTRADO!"
Else
' Cria uma instância do objeto de conexao com o banco de dados
' e preenche os dados necessarios para realizar as operacoes
Db = New classDatabase.DbSql
Db.NomeTabela = "MENUS"
Return Db.Salvar(Cm)
End If

Catch ex As Exception
Return "OCORREU UM ERRO AO TENTAR INCLUIR UM NOVO REGISTRO:" & ex.Message
Finally
Cm = Nothing
Db = Nothing
End Try

End Function

Public Function Alterar() As String
Dim pParametro As String = DBNull.Value.ToString
If vlPARENTEID > 0 Then pParametro = " AND A.PARENTEID = " & vlPARENTEID

Try
Cm = New SqlCommand

With Cm.Parameters
If vlPARENTEID > 0 Then .AddWithValue("@PARENTEID", vlPARENTEID) Else .AddWithValue("@PARENTEID", DBNull.Value)
.AddWithValue("@NOME", Trim(vlNOME))
If Trim(vlDESCRICAO) <> DBNull.Value.ToString Then .AddWithValue("@DESCRICAO", Trim(vlDESCRICAO)) Else .AddWithValue("@DESCRICAO", DBNull.Value)

If Trim(vlARQUIVO) <> DBNull.Value.ToString And Trim(vlARQUIVO) <> "#" And Trim(vlARQUIVO) <> "#.aspx" Then
If Right(Trim(vlARQUIVO), 5) <> ".aspx" Then .AddWithValue("@ARQUIVO", Trim(vlARQUIVO) & ".aspx") Else .AddWithValue("@ARQUIVO", Trim(vlARQUIVO))
Else
If Trim(vlARQUIVO) = DBNull.Value.ToString Then
.AddWithValue("@ARQUIVO", "#")
End If
End If

If Trim(vlTARGETMENU) <> DBNull.Value.ToString Then .AddWithValue("@TARGETMENU", Trim(vlTARGETMENU)) Else .AddWithValue("@TARGETMENU", "_self")
.AddWithValue("@NIVEL", vlNIVEL)
.AddWithValue("@ORDENAR", vlORDENAR)
End With

If Busca(" A.ID <> " & vlID & pParametro & " AND A.NOME = '" & Trim(vlNOME) & "' AND A.ARQUIVO = '" & Trim(vlARQUIVO) & "' ") Then
Return "REGISTRO JÁ CADASTRADO!"
Else
' Cria uma instância do objeto de conexao com o banco de dados
' e preenche os dados necessarios para realizar as operacoes
Db = New classDatabase.DbSql
Db.NomeTabela = "MENUS"
Return Db.Salvar(Cm, "ID", vlID)
End If

Catch ex As Exception
Return "Erro:" & ex.Message
Finally
Cm = Nothing
Db = Nothing
End Try

End Function

Public Function Excluir() As String
Try
' Cria uma instância do objeto de conexao com o banco de dados
' e preenche os dados necessarios para realizar as operacoes
Db = New classDatabase.DbSql
Db.NomeTabela = "MENUS"
Return Db.Excluir("ID", vlID)
Catch ex As Exception
Return "OCORREU UM ERRO AO TENTAR EXCLUIR ESTE REGISTRO: " & ex.Message
Finally
Db = Nothing
End Try

End Function

Public Function Consultar(ByVal pParametro As String, ByVal pOrdem As String) As Data.DataSet
Dim SQL As New System.Text.StringBuilder

 SQL.Append(" SELECT A.ID, PARENTEID = ISNULL(A.PARENTEID, 0), A.NOME, A.DESCRICAO, ")
 SQL.Append(" A.ARQUIVO, A.ORDENAR, ORDEMPARENTE = B.ORDENAR, PARENTE = B.NOME, ")

 SQL.Append(" CONTAR = ROW_NUMBER() OVER(PARTITION BY A.PARENTEID ORDER BY A.PARENTEID ASC), ")

 SQL.Append(" LINKARQUIVO = CASE WHEN B.ARQUIVO Is NULL And A.PARENTEID Is NULL THEN '' ")
 SQL.Append(" WHEN LTRIM(RTRIM(B.ARQUIVO)) IS NULL AND A.PARENTEID IS NULL THEN 'http://localhost:1219/' + A.ARQUIVO ")
 SQL.Append(" WHEN LTRIM(RTRIM(B.ARQUIVO)) = '' AND A.PARENTEID IS NULL THEN '' ")
 SQL.Append(" ELSE 'http://localhost:1219/' + ISNULL(B.NOME + '/', '') + ISNULL(A.ARQUIVO, '#') END, ")

 SQL.Append(" A.TARGETMENU, A.NIVEL, ")
 SQL.Append(" SELECIONA_TARGET = CASE A.TARGETMENU WHEN '_blank' THEN 'True' ELSE 'False' END, ")
 SQL.Append(" PARENTE = ISNULL(B.NOME, '') ")

 SQL.Append(" FROM MENUS A ")
 SQL.Append(" LEFT JOIN MENUS B ON (B.ID = A.PARENTEID) ")

 If Trim(pParametro) <> "" Then SQL.Append(" WHERE " & pParametro & "")
 If Trim(pOrdem) <> "" Then SQL.Append(" ORDER BY " & Trim(pOrdem)) Else SQL.Append(" ORDER BY A.PARENTEID, CONTAR ")

 Try
 ' Cria uma instância do objeto de conexao com o banco de dados
 ' e preenche os dados necessarios para realizar as operacoes
 Db = New classDatabase.DbSql
 Return Db.Consultar(SQL.ToString)
 Catch ex As Exception
 Return Nothing
 Finally
 Db = Nothing
 End Try

 End Function

 Public Function ConsultarTopo(ByVal pParametro As String) As Data.DataSet
 Dim SQL As New System.Text.StringBuilder

 SQL.Append(" SELECT TOP " & vlID & " ID ")
 SQL.Append(" FROM MENUS ")
 If Trim(pParametro) <> "" Then SQL.Append(" WHERE " & pParametro & " ")
 SQL.Append(" ORDER BY NOME ")

 Try
 ' Cria uma instância do objeto de conexao com o banco de dados
 ' e preenche os dados necessarios para realizar as operacoes
 Db = New classDatabase.DbSql
 Return Db.Consultar(SQL.ToString)
 Catch ex As Exception
 Return Nothing
 Finally
 Db = Nothing
 End Try

 End Function

 Public Function ConsultaGenerica(ByVal pSQL As String) As Data.DataSet
 Dim SQL As New System.Text.StringBuilder

 SQL.Append(pSQL)

 Try
 ' Cria uma instância do objeto de conexao com o banco de dados
 ' e preenche os dados necessarios para realizar as operacoes
 Db = New classDatabase.DbSql
 Return Db.Consultar(SQL.ToString)
 Catch ex As Exception
 Return Nothing
 Finally
 Db = Nothing
 End Try

 End Function

 Public Function ExecutaSQLGenerica(ByVal pSQL As String) As String
 Dim Sql As New System.Text.StringBuilder

 Sql.Append(pSQL)

 Try
 'Cria uma instância do objeto de conexao com o banco de dados
 ' e preenche os dados necessarios para realizar as operacoes
 Db = New classDatabase.DbSql
 Return Db.ExecutaSql(pSQL)

 Catch ex As Exception
 Return Nothing
 Finally
 Db = Nothing
 End Try

 End Function

 'Função para retornar verdadeiro quando estação encontrada
 Private Function Busca(ByVal pParametro As String) As Boolean
 Dim Ds As Data.DataSet
 Ds = Consultar(pParametro, "")
 If Ds.Tables(0).Rows.Count <> 0 Then
 Return True
 Else
 Return False
 End If
 End Function

 End Class

End Namespace

Em seguida, a página HTML:

<%@ Master Language="VB" CodeFile="MasterPage.master.vb" Inherits="inicio_MasterPage" %>

<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
 <title></title>
 <script src="../bootstrap/js/bootstrap.min.js"></script>
 <script src="../bootstrap/js/jquery.3.6.0.min.js"></script>
 <script src="../Scripts/ckeditor/ckeditor.js"></script>

 <link href="../bootstrap/css/bootstrap.css" rel="stylesheet" />
 <link href="../bootstrap/meuMenu.css" rel="stylesheet" />
 <link href="../bootstrap/css/panel-tabs.css" rel="stylesheet" />
 <link href="../bootstrap/css/meu-menu.css" rel="stylesheet" />
 <link href="../Scripts/ckeditor/contents.css" rel="stylesheet" />

 <script src="../CPF_CNPJ.js"></script>
 <script src="../Funcoes.js"></script>

 <style>
 .cssUsuario {
 background-color:transparent;
 background-image:url("../bootstrap/images/user.svg");
 background-position:left;
 background-repeat:no-repeat;
 padding-left:22px;
 text-align:left;
 height:20px;
 width:auto;
 border:0px none;
 border-collapse:collapse;
 cursor:pointer;
 }

 .cssFilial {
 background-color:transparent;
 background-image:url("../bootstrap/images/filial.svg");
 background-position:left;
 background-repeat:no-repeat;
 padding-left:22px;
 text-align:left;
 height:20px;
 width:auto;
 border:0px none;
 border-collapse:collapse;
 cursor:pointer;
 }

 .cssEmail {
 background-color:transparent;
 background-image:url("../bootstrap/images/email.svg");
 background-position:left;
 background-repeat:no-repeat;
 padding-left:22px;
 text-align:left;
 height:20px;
 width:auto;
 border:0px none;
 border-collapse:collapse;
 cursor:pointer;
 }

 .visible {
 display:block;
 }

 .invisible {
 display:none;
 }

 </style>

 <asp:ContentPlaceHolder id="head" runat="server">
 </asp:ContentPlaceHolder>
</head>

<body>
 <form id="form1" runat="server">
 <div><asp:ScriptManager ID="ScriptManager1" runat="server" EnableScriptGlobalization="True"></asp:ScriptManager></div>
 <div>
 <ajaxToolkit:ModalPopupExtender ID="mpeFilial" runat="server" PopupControlID="panTrocaFilial" BackgroundCssClass="ajaxModal"
 TargetControlID="BtnTrocaFilialOculto" CancelControlID="BtnCancela" DropShadow="true">

 </ajaxToolkit:ModalPopupExtender>
 </div>

 <div style="display:none;">
 <asp:Button ID="BtnTrocaFilialOculto" runat="server" Text="Confirma" />
 </div>

 <div>
 <asp:Panel ID="panTrocaFilial" runat="server" CssClass="alert alert-info" style="padding:10px !important; display:none;" >
 <div class="row">
 <div class="col-sm-12">
 <div><h5>TROCA DE FILIAL</h5></div>
 <div>
 <asp:UpdatePanel ID="upLbFiliais" runat="server">
 <ContentTemplate>
 <asp:ListBox ID="lbFiliais" runat="server" CssClass="form-control small" DataTextField="FANTASIA" DataValueField="ID" style="height:200px !important;"></asp:ListBox>
 </ContentTemplate>
 </asp:UpdatePanel>
 </div>
 <div style="margin-top:10px;">
 <div class="row">
 <div class="col-sm-6">
 <asp:UpdatePanel ID="upConfirmaTrocaUser" runat="server">
 <ContentTemplate>
 <asp:Button ID="BtnConfirma" runat="server" CssClass="btn btn-success small" style="margin-right:5px;" Text="Confirma" />
 </ContentTemplate>
 </asp:UpdatePanel>
 </div>

 <div class="col-sm-6">
 <asp:Button ID="BtnCancela" runat="server" CssClass="btn btn-secondary small" style="margin-right:5px;" Text="Cancela" />
 </div>

 </div>
 </div>
 </div>
 </div>
 </asp:Panel>
 </div>

 <div class="container-fluid">
 <div class="row" style="background-color:greenyellow !important;">
 <div class="col-sm-12">
 <h3>Início</h3>
 </div>
 </div>

 <div class="row" style="background-color:greenyellow !important;">
 <div class="col-sm-12">
 <div>
 <asp:Menu ID="Menu1" runat="server" Orientation="Horizontal" RenderingMode="List" CssClass="navbar-nav mr-auto" StaticMenuItemStyle-CssClass="nav-item" >
 <DynamicHoverStyle CssClass="dropdown-menu" />
 <DynamicMenuItemStyle CssClass="dropdown-item" VerticalPadding="5px" />
 <DynamicMenuStyle CssClass="dropdown-menu" VerticalPadding="5px" />

 <StaticHoverStyle CssClass="dropdown-menu" />
 <StaticMenuItemStyle CssClass="dropdown-item" VerticalPadding="5px" ></StaticMenuItemStyle>

 </asp:Menu>
 </div>
 </div>
 </div>

 <div class="row" style="margin-bottom:20px !important; padding-bottom:10px; background-color:greenyellow;">
 <div class="col-sm-4">
 <asp:UpdatePanel ID="upUsuarioLogado" runat="server">
 <ContentTemplate>
 <asp:Button ID="mpBtnUsuario" runat="server" />
 </ContentTemplate>
 </asp:UpdatePanel>
 </div>

 <div class="col-sm-4">
 <asp:UpdatePanel ID="upFilialLogado" runat="server">
 <ContentTemplate>
 <asp:Button ID="mpBtnFilial" runat="server" />
 </ContentTemplate>
 </asp:UpdatePanel>
 </div>

 <div class="col-sm-4">
 <asp:UpdatePanel ID="upEmailLogado" runat="server">
 <ContentTemplate>
 <asp:Button ID="mpBtnEmail" runat="server" />
 </ContentTemplate>
 </asp:UpdatePanel>
 </div>
 </div>

 <div class="row">
 <div class="col-sm-12">
 <asp:ContentPlaceHolder ID="ContentPlaceHolder1" runat="server"></asp:ContentPlaceHolder>
 </div>
 </div>
 </div>

 </form>

</body>
</html>

	 

	E, finalmente, o código VB 

Imports System.Data
Imports System.Data.DataSet
Imports System.Data.SqlClient
Imports System.Linq
Imports System.IO
Imports System.Collections.Generic
Imports System.Web.UI
Imports System.Web.UI.Control

Partial Class inicio_MasterPage
Inherits System.Web.UI.MasterPage
Private Menu As New DETI.objMenu
Private MenuPerfil As New DETI.objPerfisMenus
Private Menus As DataTable = New DataTable()
Private Usuario As New DETI.objUsuarios
Private Fn As New Funcoes.classFuncao

Private Sub getMenu()
Dim Ds As DataSet = New DataSet()
Dim dt As DataTable = New DataTable()
Dim pItem As Integer = 0

 'Ds = Menu.Consultar(" A.ID IN (SELECT X.MENUID FROM PERFISMENUS X WHERE X.PERFILID = " & Session("sPerfilID") & ") ", "")
 Ds = Menu.Consultar("", "")

 Menu1.Items.Add(New MenuItem("<span style='padding:1px 5px 1px 5px;'>Home</span>", 0, "", Fn.PegaDominioDaAplicacao & "/inicio/index.aspx"))

 If Not ds Is Nothing Then
 If ds.Tables(0).Rows.Count > 0 Then
 dt = ds.Tables(0)
 Dim drowpar As DataRow() = dt.[Select]("PARENTEID = " & 0)

 For Each dr As DataRow In drowpar
 Menu1.Items.Add(New MenuItem("<span style='padding:1px 5px 1px 5px;'>" & dr("NOME").ToString() & "</span>", dr("ID").ToString(), "", dr("LINKARQUIVO").ToString()))
 pItem = dr("ID")

 Next

 For Each dr As DataRow In dt.[Select]("PARENTEID > " & 0)
 Dim mnu As MenuItem = New MenuItem("<span style='padding:1px 5px 1px 5px;'>" & dr("NOME").ToString() & "</span>", dr("ID").ToString(), "", dr("LINKARQUIVO").ToString())
 Menu1.FindItem(dr("NIVEL").ToString()).ChildItems.Add(mnu)
 Next

 If pItem > 0 Then pItem = pItem + 1

 End If
 End If

 Menu1.Items.Add(New MenuItem("<span style='padding:5px;'>Sair</span>", pItem, "", Fn.PegaDominioDaAplicacao & "/index.aspx"))

 End Sub

 Private Sub IdentificaUsuario()
 Dim Ds As Data.DataSet
 Ds = Usuario.ConsultaGenerica(" SELECT A.USUARIOID, B.LOGIN, B.EMAIL, C.FANTASIA " &
 " FROM USUARIOSFILIAIS A " &
 " INNER JOIN USUARIOS B ON (B.ID = A.USUARIOID) " &
 " INNER JOIN FILIAL C ON (C.ID = A.FILIALID) " &
 " WHERE A.USUARIOID = " & Session("sUsuario") &
 " AND A.FILIALID = " & Session("sFilial") &
 " AND B.PERFILID = " & Session("sPerfilID"))
 mpBtnUsuario.Text = ""

 If Not Ds Is Nothing Then
 If Ds.Tables(0).Rows.Count > 0 Then
 mpBtnUsuario.CssClass = "cssUsuario visible"
 mpBtnUsuario.Text = Ds.Tables(0).Rows(0)("LOGIN")
 mpBtnFilial.CssClass = "cssFilial visible"
 mpBtnFilial.Text = Ds.Tables(0).Rows(0)("FANTASIA")
 mpBtnEmail.CssClass = "cssEmail visible"
 mpBtnEmail.Text = Ds.Tables(0).Rows(0)("EMAIL")

 getMenu()
 Else
 If Ds.Tables(0).Rows.Count = 0 Then
 mpBtnUsuario.CssClass = "invisible"
 mpBtnFilial.CssClass = "invisible"
 mpBtnEmail.CssClass = "invisible"
 Response.Redirect("../index.aspx")
 End If
 End If
 Else
 If Ds Is Nothing Then
 Response.Redirect("../index.aspx")
 End If
 End If

 End Sub

 Private Sub inico_MasterPage_Load(sender As Object, e As EventArgs) Handles Me.Load
 If Not IsPostBack Then
 If Session("sUsuario") Is Nothing Then
 Response.Redirect("../index.aspx")
 Else
 If Not Session("sUsuario") Is Nothing Then
 If Session("sUsuario") > 0 Then
 IdentificaUsuario()
 Else
 If Session("sUsuario") = 0 Then
 Response.Redirect("../index.aspx")
 End If
 End If

 End If
 End If

 End If

 End Sub

 Protected Sub mpBtnFilial_Click(sender As Object, e As EventArgs) Handles mpBtnFilial.Click
 Dim Ds As Data.DataSet
 Ds = Usuario.ConsultaGenerica(" SELECT B.ID, B.FANTASIA " &
 " FROM USUARIOSFILIAIS A " &
 " INNER JOIN FILIAL B ON (B.ID = A.FILIALID) " &
 " WHERE B.ATIVO = 'True' " &
 " AND A.USUARIOID = " & Session("sUsuario"))
 lbFiliais.DataSource = Ds
 lbFiliais.DataBind()

 If Not Ds Is Nothing Then
 If Ds.Tables(0).Rows.Count > 0 Then
 mpeFilial.Show()
 End If
 End If

 End Sub

 Protected Sub BtnConfirma_Click(sender As Object, e As EventArgs) Handles BtnConfirma.Click
 If lbFiliais.SelectedIndex > -1 Then
 Session("sFilial") = lbFiliais.SelectedValue
 Usuario.ExecutaSQLGenerica(" UPDATE USUARIOS " &
 " SET ULTIMOFILIALID = " & lbFiliais.SelectedValue &
 " WHERE ID = " & Session("sUsuario"))
 IdentificaUsuario()
 mpeFilial.Hide()
 Else
 If lbFiliais.SelectedIndex = -1 Then

 End If
 End If

 End Sub

End Class

Desde já agradeço a atenção.

Obrigado,

Ilano.