Very Compatible DHTML Menu ASP.NET User Control

<br />
Imports System<br />
Imports System.Data<br />
'Imports System.Data.OleDb<br />
Imports System.Drawing<br />
Imports System.Web<br />
Imports System.Web.UI.WebControls<br />
Imports System.Web.UI.HtmlControls<br />
Imports System.Text<br />
Imports System.Data.Sql<br />
Imports System.Data.SqlClient<br />
<br />
' CSSMenu user control implementation of Sylvain Machefert’s DTML menu<br />
' His website at http://iubito.free.fr<br />
' ASP .Net Codding by Bogac Guven<br />
' bogacmx@yahoo.com<br />
<br />
<br />
Public Class menu<br />
    Inherits System.Web.UI.UserControl<br />
<br />
    Private _cssFile As String<br />
    Private _vert As String<br />
    Private _diffWidth As String<br />
    Private _defWidthValue As Integer<br />
    Private _defHeightValue As Integer<br />
    Private _centerMenu As String<br />
    Private _follScroll As String<br />
    Private _hrImg As String<br />
<br />
#Region " Properties "<br />
<br />
<br />
    'By defining properties we are able to get variables that change our menu look<br />
    'from menu's tag in aspx page. Menu tag's attribute with same name to this property <br />
    'gets given value.<br />
    Public Property CSSFile() As String<br />
        Get<br />
            Return _cssFile<br />
        End Get<br />
        Set(ByVal Value As String)<br />
            If Value = "" Then<br />
                _cssFile = "default.css"<br />
            End If<br />
            _cssFile = Value<br />
        End Set<br />
    End Property<br />
<br />
    Public Property Vertical() As String<br />
        Get<br />
            Return _vert<br />
        End Get<br />
        Set(ByVal Value As String)<br />
            If Value.ToLower <> "true" And Value.ToLower <> "false" Then<br />
                _vert = "false"<br />
            Else<br />
                _vert = Value.ToLower<br />
            End If<br />
        End Set<br />
    End Property<br />
<br />
    Public Property DiffWidth() As String<br />
        Get<br />
            Return _diffWidth<br />
        End Get<br />
        Set(ByVal Value As String)<br />
            If Value.ToLower <> "true" And Value.ToLower <> "false" Then<br />
                _diffWidth = "true"<br />
            Else<br />
                _diffWidth = Value.ToLower<br />
            End If<br />
        End Set<br />
    End Property<br />
<br />
    Public Property DefaultWidth() As Integer<br />
        Get<br />
            Return _defWidthValue<br />
        End Get<br />
        Set(ByVal Value As Integer)<br />
            If IsNumeric(Value) Then<br />
                _defWidthValue = CInt(Value)<br />
            Else<br />
                _defWidthValue = 95<br />
            End If<br />
        End Set<br />
    End Property<br />
<br />
    Public Property DefaultHeight() As Integer<br />
        Get<br />
            Return _defHeightValue<br />
        End Get<br />
        Set(ByVal Value As Integer)<br />
            If IsNumeric(Value) Then<br />
                _defHeightValue = CInt(Value)<br />
            Else<br />
                _defHeightValue = 25<br />
            End If<br />
        End Set<br />
    End Property<br />
<br />
    Public Property CenterMenu() As String<br />
        Get<br />
            Return _centerMenu<br />
        End Get<br />
        Set(ByVal Value As String)<br />
            If Value.ToLower <> "true" And Value.ToLower <> "false" Then<br />
                _centerMenu = "false"<br />
            Else<br />
                _centerMenu = Value.ToLower<br />
            End If<br />
        End Set<br />
    End Property<br />
<br />
    Public Property FollowScroll() As String<br />
        Get<br />
            Return _follScroll<br />
        End Get<br />
        Set(ByVal Value As String)<br />
            If Value.ToLower <> "true" And Value.ToLower <> "false" Then<br />
                _follScroll = "true"<br />
            Else<br />
                _follScroll = Value.ToLower<br />
            End If<br />
        End Set<br />
    End Property<br />
<br />
    Public Property HRImage() As String<br />
        Get<br />
            Return _hrImg<br />
        End Get<br />
        Set(ByVal Value As String)<br />
            _hrImg = Value<br />
        End Set<br />
    End Property<br />
<br />
#End Region<br />
<br />
    Public Sub New()<br />
        Me._cssFile = "lookxp.css"<br />
        Me._vert = "true"<br />
        Me._diffWidth = "false"<br />
        Me._defWidthValue = 95<br />
        Me._defHeightValue = 25<br />
        Me._centerMenu = "false"<br />
        Me._follScroll = "true"<br />
        Me._hrImg = "lookxphr.gif"<br />
    End Sub<br />
<br />
#Region " Web Form Designer Generated Code "<br />
<br />
<br />
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
<br />
    End Sub<br />
    Protected WithEvents menuLiteral As System.Web.UI.WebControls.Literal<br />
<br />
    'NOTE: The following placeholder declaration is required by the Web Form Designer.<br />
    'Do not delete or move it.<br />
    Private designerPlaceholderDeclaration As System.Object<br />
<br />
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init<br />
        'CODEGEN: This method call is required by the Web Form Designer<br />
        'Do not modify it using the code editor.<br />
        InitializeComponent()<br />
    End Sub<br />
<br />
#End Region<br />
<br />
#Region "DataSetHelper Class"<br />
    'Puclic Class DataSetHelper is as in article HOW TO: Implement a DataSet SELECT DISTINCT Helper Class in Visual C# .NET<br />
    'by Microsoft, with Article ID: 326176<br />
    'http://support.microsoft.com/default.aspx?scid=kb;en-us;326176<br />
    'Author made a Shared version of functions (as used in this code) and that code can be reached at:<br />
    'http://codebetter.com/blogs/sahil.malik/archive/2004/12/26/39040.aspx<br />
    'Converted to VisualBasic.Net from C# by VBNET Translator at:<br />
    'http://authors.aspalliance.com/aldotnet/examples/translate.aspx<br />
    '<br />
    'We are using SelectDistinct method defined here in BuildMenu() function below, that builds our menu,<br />
    ' to get distinct main menu titles when our database stored procedure reads every sub-menu item.<br />
    Public Class DataSetHelper<br />
<br />
        Private Shared Function ColumnEqual(ByVal A As Object, ByVal B As Object) As Boolean<br />
<br />
            ' Compares two values to see if they are equal. Also compares DBNULL.Value.<br />
            ' Note: If your DataTable contains object fields, then you must extend this<br />
            ' function to handle them in a meaningful way if you intend to group on them.<br />
            If A Is DBNull.Value And B Is DBNull.Value Then '  both are DBNull.Value<br />
                Return True<br />
            End If<br />
            If A Is DBNull.Value Or B Is DBNull.Value Then '  only one is DBNull.Value<br />
                Return False<br />
            End If<br />
            Return A.Equals(B) ' value type standard comparison<br />
        End Function 'ColumnEqual<br />
<br />
        Public Shared Function SelectDistinct(ByVal TableName As String, ByVal SourceTable As DataTable, ByVal FieldName As String) As DataTable<br />
            Dim dt As New DataTable(TableName)<br />
            dt.Columns.Add(FieldName, SourceTable.Columns(FieldName).DataType)<br />
<br />
            Dim LastValue As Object = DBNull.Value<br />
            Dim dr As DataRow<br />
            For Each dr In SourceTable.Select("", FieldName)<br />
                If LastValue Is Nothing Or Not ColumnEqual(LastValue, dr(FieldName)) Then<br />
                    LastValue = dr(FieldName)<br />
                    dt.Rows.Add(New Object() {LastValue})<br />
                End If<br />
            Next dr<br />
            Return dt<br />
        End Function 'SelectDistinct<br />
<br />
    End Class 'DataSetHelper<br />
#End Region<br />
<br />
    Dim myConnection As SqlConnection<br />
<br />
<br />
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
        'Dim dataBaseFileName As String = "databases/cssmenudb.mdb"<br />
        Dim strConnect As String<br />
        'Dim FileName As String = Server.MapPath(dataBaseFileName)<br />
        'strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & FileName<br />
        strConnect = System.Configuration.ConfigurationManager.ConnectionStrings("CnnTextes").ToString<br />
        Try<br />
<br />
            myConnection = New SqlConnection(strConnect)<br />
            myConnection.Open()<br />
        Catch ex As Exception<br />
            menuLiteral.Text = ex.Message<br />
        End Try<br />
        ' Construction of the menu from database for the first time<br />
        ' or from the version which is already in session (if loaded previously for that session)<br />
        If Session("menuString") Is Nothing Then<br />
            menuLiteral.Text = BuildMenu()<br />
        Else<br />
            menuLiteral.Text = Session("menuString").ToString()<br />
        End If<br />
<br />
        myConnection.Close()<br />
<br />
    End Sub<br />
<br />
<br />
    Private Function BuildMenu() As String<br />
<br />
        Dim ulOpened As Boolean = False<br />
        Dim myAdapter As SqlDataAdapter<br />
        Dim myTable As DataTable<br />
<br />
        Dim OleDbCmdAllMenu As New SqlCommand("sp_CreateMenu", myConnection)<br />
        OleDbCmdAllMenu.CommandType = CommandType.StoredProcedure<br />
<br />
        myAdapter = New SqlDataAdapter(OleDbCmdAllMenu)<br />
<br />
<br />
        Dim menuId As Integer<br />
        'nbMenus is the number of top-level menus<br />
        Dim nbMenus As Integer = 0<br />
        'menu0 is a dummy variable to check menu titles with new ones when a new one added<br />
        Dim menu0 As String = ""<br />
<br />
        Dim imageOption As String<br />
        Dim urlOption As String<br />
        'If exist some arguments a new window will be opened. So onClick variable shall be filled and added to anchor tag <br />
        Dim onClick As String<br />
        'mySt is the string that contains all HTML code of menu<br />
        Dim mySt As New StringBuilder<br />
<br />
<br />
        myTable = New DataTable<br />
<br />
        myAdapter.Fill(myTable)<br />
<br />
        myAdapter.Dispose()<br />
<br />
        imageOption = ""<br />
<br />
<br />
        Dim myRow As DataRow<br />
<br />
<br />
        'myMainMenuURL will keep URL that redirects when a main menu title clicked<br />
        Dim myMainMenuURL As String<br />
<br />
        ' A dummy data table to hold all distinct main menu titles available in<br />
        ' myTable data table variable. This is needed because in the stored procedure that<br />
        ' returns all menu information every meu item holds it's parent menu id.<br />
        ' Meaning in that table main menu items exist more than once.<br />
        Dim mainMenuTitles As DataTable<br />
        mainMenuTitles = DataSetHelper.SelectDistinct("MainMenuTitles", myTable, "mainMenuTitle")<br />
<br />
        nbMenus = mainMenuTitles.Rows.Count<br />
<br />
        'varCenterAll is the string that holds javascript line for variable defining if menu centered or not.<br />
        '(If vertical vertically centered, if horizontal horizontally centered)<br />
        Dim varCenterAll As String = "var centrer_menu = " & CenterMenu & ";"<br />
<br />
        Dim varMainWidth As String = ""<br />
        Dim varMainHeight As String = ""<br />
<br />
        'Dummy string variable mainTitleDum will be used to check in For loop<br />
        'to see if current main menu title is the same as one cheked in previous<br />
        'itteration of for loop. If it's not then it means it's a distinct main menu title<br />
        'and previous paragraph tag <P> needs to be closed and new one needs to be opened.<br />
        Dim mainTitleDum As String = ""<br />
<br />
        'ATTENTION: even though it's called DiffWidth property as short for Different Width<br />
        'this variable actually says if we are going to use different values for main<br />
        'menu titles' widths if menu in horizontal mode, or, different height values if menu<br />
        'in vertical mode.<br />
        If DiffWidth = "true" And Vertical <> "true" Then<br />
            'For horizontal menu with different width option of main menu titles choosen<br />
            'instead of using one width value we have to use an array of values.<br />
            varMainWidth = "var largeur_menu = new Array("<br />
<br />
            For Each myRow In myTable.Rows<br />
                If myRow("mainMenuTitle") <> mainTitleDum Then<br />
                    'You can use a different multiplier instead of 10. This function gives<br />
                    '10 pixels of width for each letter in ain menu title which is enough<br />
                    'for given style sheets. If you use larger fonts in your style sheets<br />
                    'you better increase the multiplier. It's a try and see thing.<br />
                    varMainWidth &= (myRow("mainMenuTitle").ToString.Length * 10).ToString & ","<br />
                    mainTitleDum = myRow("mainMenuTitle")<br />
                End If<br />
            Next<br />
            'last coma needs to be deleted at the end of string that defines javascript array holding<br />
            'width variables.<br />
            varMainWidth = varMainWidth.Remove(varMainWidth.Length - 1, 1)<br />
            varMainWidth &= ");"<br />
<br />
        ElseIf DiffWidth = "true" And Vertical = "true" Then<br />
            'For vertical menu with different height option of main menu titles choosen<br />
            'instead of using one height value we have to use an array of values.<br />
            varMainWidth = "var largeur_menu = " & DefaultWidth.ToString & ";"<br />
<br />
            Dim dumyStr As String<br />
<br />
            Dim largeur As Integer 'largeur means width in French<br />
<br />
            'I wanted to keep width of main menu titles at times of 10<br />
            'because in given CSS files (example css files given with this project)<br />
            'each letter is as big to fit in 10 pixels area.<br />
            'That will be our starting point for the calculations we are about to make.<br />
            'If you consider using larger font sizes in your CSS files, you might need to consider<br />
            'greater values than 10.<br />
            'DefaultWidth property is supposed to hold a value enough to keep an average<br />
            'main menu title plus some free space on the sides.<br />
            largeur = Math.Floor(DefaultWidth / 10) * 10<br />
<br />
            varMainHeight = "var hauteur_menu = new Array("<br />
            Dim hautDummy As Integer<br />
            Dim hautonethird As Integer = Math.Floor(DefaultHeight / 3)<br />
<br />
            For Each myRow In myTable.Rows<br />
                If myRow("mainMenuTitle") <> mainTitleDum Then<br />
                    'Lets say if main menu title is larger than number of letters * 10 plus<br />
                    '50 pixels, it means that it can't fit in an average title box, so<br />
                    'we have to make a second line. Some words in the title will hopefully<br />
                    'written in second line and it will look neat.<br />
                    If largeur + 50 < myRow("mainMenuTitle").ToString.Length * 10 Then<br />
                        'Because of extra space, multiplying default height would give too<br />
                        'big menu title box. I came up with this formula.<br />
                        hautDummy = DefaultHeight * 2 - Math.Floor(hautonethird * 2)<br />
                        varMainHeight &= hautDummy.ToString & ","<br />
                    Else<br />
                        'If numer of letter * 10 + 50 pixels can keep the title<br />
                        'then why to bother with calculating a new value?<br />
                        'Use default height.<br />
                        varMainHeight &= DefaultHeight.ToString & ","<br />
                    End If<br />
                    mainTitleDum = myRow("mainMenuTitle")<br />
                End If<br />
            Next<br />
            'We have to delete last coma and write ); instead<br />
            varMainHeight = varMainHeight.Remove(varMainHeight.Length - 1, 1)<br />
            varMainHeight &= ");"<br />
        Else<br />
            'If DiffWidth property set to false, then we just use default width and<br />
            'height values.<br />
            varMainWidth = "var largeur_menu = " & DefaultWidth.ToString & ";"<br />
            varMainHeight = "var hauteur_menu = " & DefaultHeight.ToString & ";"<br />
        End If<br />
<br />
        'Now its time to write all those variable we defined in javascript before<br />
        'we call our menu.<br />
        mySt.Append("<script language=""javascript"" type=""text/javascript"">" & ControlChars.Lf)<br />
        mySt.Append(ControlChars.Tab & varMainWidth & ControlChars.Lf)<br />
        mySt.Append(ControlChars.Tab & varMainHeight & ControlChars.Lf)<br />
        mySt.Append(ControlChars.Tab & varCenterAll & ControlChars.Lf)<br />
        mySt.Append(ControlChars.Tab & "</script>")<br />
<br />
        'rest of javascript functions and variables are in menu.js file. We call that.<br />
        mySt.Append(String.Format("<script language=""javascript"" type=""text/javascript"" src=""menu/menu.js""></script>" & ControlChars.Lf))<br />
<br />
        'Here we use css file name we received from menu's property named CSSFile<br />
        'We can use an If statement to check if css file name is defined.<br />
        'If not a default one can be implemented.<br />
        'Up to you to code.<br />
        mySt.Append(String.Format("<link rel=""stylesheet"" type=""text/css"" href=""menu/{0}"">" & ControlChars.Lf, CSSFile))<br />
<br />
        'We start the creation of menu here<br />
        mySt.Append("<div id=""conteneurmenu"">" & ControlChars.Lf)<br />
        mySt.Append("<script language=""Javascript"" type=""text/javascript""" & ">" & ControlChars.Lf)<br />
        ' Number of main menu items is needed for javascript code to work properly.<br />
        'Some other variables defined in menu control's properties are defined here<br />
        'in javascript variables.<br />
        mySt.Append("var nbmenu=" & nbMenus & ";" & ControlChars.Lf)<br />
        mySt.Append("var suivre_le_scroll=" & FollowScroll & ";" & ControlChars.Lf)<br />
        mySt.Append("var vertical=" & Vertical & ";" & ControlChars.Lf)<br />
        mySt.Append("preChargement();" & ControlChars.Lf)<br />
        mySt.Append("</script>" & ControlChars.Lf)<br />
<br />
        menuId = 0<br />
        'menuId=0 is to check first execution of for loop which will construct the menu.<br />
        'If menuId is not 0 that means we read some data in a previous execution of the loop<br />
        'therefore we must write closing HTML tags.<br />
<br />
        ' Construction of menu mainly done in this for loop.<br />
        For Each myRow In myTable.Rows<br />
            If myRow("mainMenuTitle").ToString() <> menu0 Then<br />
<br />
                'If this is not first read, that means we must close tags of previous execution.<br />
                If menuId <> 0 And ulOpened = True Then<br />
                    mySt.Append(ControlChars.Tab & ControlChars.Tab & "</ul>" & ControlChars.Lf)<br />
                    ulOpened = False<br />
                End If<br />
                'Here we get URLs of main menu titles<br />
                Dim mySqlMainMenuCmd As New SqlCommand("sp_mainMenuURL", myConnection)<br />
                mySqlMainMenuCmd.CommandType = CommandType.StoredProcedure<br />
                mySqlMainMenuCmd.Parameters.Add("mainMenuTitleArg", SqlDbType.NVarChar, 60).Value = myRow("mainMenuTitle").ToString()<br />
                'ExecuteScalar reads only one item from data table (first row, first column), which we know that we only have an URL for given<br />
                'main menu title<br />
                If mySqlMainMenuCmd.ExecuteScalar Is DBNull.Value Then<br />
                    myMainMenuURL = ""<br />
                Else<br />
                    myMainMenuURL = mySqlMainMenuCmd.ExecuteScalar<br />
                End If<br />
<br />
                menuId += 1<br />
<br />
<br />
                If myRow("subMenuTitle") Is DBNull.Value Then<br />
<br />
                    'Main menu (top-menu) items are held in paragraph HTML tags <P><br />
                    mySt.Append(String.Format(ControlChars.Tab & "<p id=""menu{0}"" class=""menu"">" & ControlChars.Lf, menuId))<br />
                    If Not myMainMenuURL = "" Then<br />
                        mySt.Append(String.Format(ControlChars.Tab & ControlChars.Tab & "<a href=""{1}"" >{0}<span> :</span></a>" & ControlChars.Lf, myRow("mainMenuTitle").ToString(), myMainMenuURL))<br />
                    Else<br />
                        mySt.Append(String.Format(ControlChars.Tab & ControlChars.Tab & "<a href=""javascript:void(0);"" >{0}<span> :</span></a>" & ControlChars.Lf, myRow("mainMenuTitle").ToString()))<br />
                    End If<br />
<br />
                    mySt.Append(ControlChars.Tab & "</p>" & ControlChars.Lf)<br />
<br />
                Else<br />
<br />
                    'Main menu (top-menu) items are held in paragraph HTML tags <P><br />
                    mySt.Append(String.Format(ControlChars.Tab & "<p id=""menu{0}"" class=""menu"" onmouseover=""MontrerMenu('ssmenu{0}');"" onmouseout=""CacherDelai();"">" & ControlChars.Lf, menuId))<br />
                    If Not myMainMenuURL = "" Then<br />
                        mySt.Append(String.Format(ControlChars.Tab & ControlChars.Tab & "<a href=""{2}"" onfocus=""MontrerMenu('ssmenu{0}');"">{1}<span> :</span></a>" & ControlChars.Lf, menuId, myRow("mainMenuTitle").ToString(), myMainMenuURL))<br />
                    Else<br />
                        mySt.Append(String.Format(ControlChars.Tab & ControlChars.Tab & "<a href=""javascript:void(0);"" onfocus=""MontrerMenu('ssmenu{0}');"">{1}<span> :</span></a>" & ControlChars.Lf, menuId, myRow("mainMenuTitle").ToString(), myMainMenuURL))<br />
                    End If<br />
<br />
                    mySt.Append(ControlChars.Tab & "</p>")<br />
<br />
                    'Sub-menu items are grouped in unnumbered list tags below their top-menu titles<br />
                    mySt.Append(String.Format(ControlChars.Lf & ControlChars.Tab & ControlChars.Tab & "<ul id=""ssmenu{0}"" class=""ssmenu"" onmouseover=""AnnulerCacher();"" onmouseout=""CacherDelai();"" onfocus=""AnnulerCacher();"" onblur=""CacherDelai();"">" & ControlChars.Lf, menuId))<br />
                    ulOpened = True<br />
                End If<br />
<br />
                menu0 = myRow("mainMenuTitle").ToString()<br />
            End If<br />
<br />
            If myRow("subMenuTitle") Is DBNull.Value Then<br />
                'Do Nothing<br />
            Else<br />
                If myRow("iconImage").ToString().Length <> 0 Then<br />
                    imageOption = myRow("iconImage").ToString()<br />
                Else<br />
                    imageOption = "lookxpvide.gif"<br />
                End If<br />
<br />
                'To avoid "Page Cannot Be Shown" error when there is no URL entered in database,<br />
                'instead of writing empty string we use Javascript's void function.<br />
                'Otherwise we write appropriate URL.<br />
                If myRow("URL").ToString().Length <> 0 Then<br />
                    urlOption = myRow("URL").ToString()<br />
                Else<br />
                    urlOption = "javascript:void(0);"<br />
                End If<br />
<br />
<br />
                'If we have new window arguments in database, we hold them in urlOption variable.<br />
                'this variable like imageOption which holds icon image filename,<br />
                'will be added to string that forms each submenu item, just in the lines to follow.<br />
                If myRow("newWinArgs").ToString().Length <> 0 Then<br />
                    onClick = " onClick=""Javascript:window.open('" & urlOption & "','window','" & myRow("newWinArgs").ToString() & "'); return false;"" "<br />
                Else<br />
                    onClick = ""<br />
                End If<br />
<br />
                'If icon image of given sub menu item is same with menu property HRImage,<br />
                'It means we are supposed to see just a horizontal ruler image that seperates<br />
                'two submenu items and not a real menu title text or menu icon image.<br />
                If myRow("iconImage").ToString() = HRImage Then<br />
                    mySt.Append(String.Format(ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & "<img src=""menu/{0}"" class =""hr"" align=""absmiddle"" alt=""""/>" & ControlChars.Lf, imageOption))<br />
                Else<br />
                    'Each submenu item is a HTML list item, we add here all their variables and form full<br />
                    'list item html string.<br />
                    mySt.Append(ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & "<li>" & ControlChars.Lf)<br />
                    mySt.Append(String.Format(ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & "<a href=""{0}"" {1}><img src=""menu/{2}"" align=""absmiddle"" alt=""""/> {3} <span> ;</span></a>" & ControlChars.Lf, urlOption, onClick, imageOption, myRow("subMenuTitle").ToString()))<br />
                    mySt.Append(ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & "</li>" & ControlChars.Lf)<br />
                End If<br />
<br />
            End If<br />
<br />
        Next myRow<br />
<br />
        If ulOpened = True Then<br />
            'We close our menu<br />
            mySt.Append(ControlChars.Tab & ControlChars.Tab & "</ul>" & ControlChars.Lf)<br />
            ulOpened = False<br />
        End If<br />
<br />
        mySt.Append("</div>" & ControlChars.Lf)<br />
        mySt.Append("<script language=""Javascript"" type=""text/javascript"">Chargement();</script>" & ControlChars.Lf)<br />
<br />
        Session("menuString") = mySt.ToString()<br />
        Return mySt.ToString()<br />
    End Function 'BuildMenu <br />
<br />
End Class<br />