"
'monta menu catalogo
If tipo = "C" Then
SubMenu = SubMenu & _
""
Else
If countCatalogo > 0 Then
SubMenu = SubMenu & _
"
"
Else
SubMenu = SubMenu & _
"
"
End If
End If
SubMenu = SubMenu & ""
'monta menu agenda
If tipo = "A" Then
SubMenu = SubMenu & _
"
"
Else
If countAgenda > 0 Then
SubMenu = SubMenu & _
"
"
Else
SubMenu = SubMenu & _
""
End If
End If
SubMenu = SubMenu & ""
'monta menu noticia
If tipo = "N" Then
SubMenu = SubMenu & _
"
"
Else
If countNoticia > 0 Then
SubMenu = SubMenu & _
"
"
Else
SubMenu = SubMenu & _
""
End If
End If
SubMenu = SubMenu & "