Imports System.IO
Imports System.IO.Compression
Imports System.Web.Configuration
Public Class Menu1
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Session.Item("LogedIn") = "True"
        'Session.Item("Firmanr") = 19
        'Session.Item("Menuhandler") = 2
        'Session.Item("Admin") = "True"
        'Session.Item("UserID") = 12
        If Session.Item("LogedIn") Is Nothing Then
            Me.RadMenu1.Items.Clear()
            get_menu(1)
            'Exit Sub
        End If
        If Session.Item("LogedIn") = False Then
            Me.RadMenu1.Items.Clear()
            get_menu(1)
            'Exit Sub
        End If
        Me.RadMenu1.Items.Clear()
        get_menu(Session.Item("Menuhandler"))

        Dim dh As New clsDatahandling
        Dim ds As New DataSet
        'Me.Label1.Text = Request.Url.LocalPath
        ds = dh.Get_Tabledata("select * from webhelp_mapper where sourceurl='" + Request.Url.LocalPath + "'", False, True)
        If ds.Tables(0).Rows.Count < 1 Then
            Me.RadMenu2.Items(0).NavigateUrl = WebConfigurationManager.AppSettings("HelpSource") + "index.html"
            '            Me.HyperLink1.NavigateUrl = WebConfigurationManager.AppSettings("HelpSource") + "index.html"
        Else
            '    Me.HyperLink1.NavigateUrl = WebConfigurationManager.AppSettings("HelpSource") + ds.Tables(0).Rows(0).Item("desturl").ToString
            Me.RadMenu2.Items(0).NavigateUrl = WebConfigurationManager.AppSettings("HelpSource") + ds.Tables(0).Rows(0).Item("desturl").ToString
        End If

        '       End If
        If WebConfigurationManager.AppSettings("ShowHelpLink") = "True" Then Me.RadMenu2.Items(0).Visible = True Else Me.RadMenu2.Items(0).Visible = False

        '        Dim mi As New System.Web.UI.WebControls.MenuItem
        '        mi.Text = "Hallo"
        '        Me.NavigationMenu.Items.Add(mi)
    End Sub

    Sub get_menu(ByVal menutype As Integer)
        Dim dh As New clsDatahandling
        Dim Menuentries As New DataTable
        Menuentries = dh.Get_Menu(menutype)
        Dim found As Boolean = False
        For Each dr As DataRow In Menuentries.Rows
            Dim mi As New Telerik.Web.UI.RadMenuItem
            'Dim mi As New System.Web.UI.WebControls.MenuItem
            mi.Text = dr.Item(1).ToString
            mi.Value = dr.Item(0).ToString
            mi.ToolTip = dr.Item(3).ToString
            mi.NavigateUrl = dr.Item(4).ToString
            If dr.Item("Parentnr") = 0 Then
                Me.RadMenu1.Items.Add(mi)
            Else
                found = False
                For Each mitem As Telerik.Web.UI.RadMenuItem In Me.RadMenu1.Items
                    'For Each mitem As System.Web.UI.WebControls.MenuItem In Me.RadMenu1.Items
                    If mitem.Value.ToString = dr.Item("Parentnr").ToString Then
                        mitem.Items.Add(mi)
                        'mitem.ChildItems.Add(mi)
                        found = True
                        Exit For
                    End If
                Next
                If found = False Then
                    'For Each mitem As System.Web.UI.WebControls.MenuItem In Me.RadMenu1.Items
                    For Each mitem As Telerik.Web.UI.RadMenuItem In Me.RadMenu1.Items
                        For Each mitem2 As Telerik.Web.UI.RadMenuItem In mitem.Items
                            If mitem2.Value.ToString = dr.Item("Parentnr").ToString Then
                                mitem2.Items.Add(mi)
                                found = True
                                Exit For
                            End If
                        Next
                    Next
                End If
            End If
        Next

    End Sub

    Protected Sub RadMenu2_ItemClick(sender As Object, e As Telerik.Web.UI.RadMenuEventArgs) Handles RadMenu2.ItemClick

    End Sub
End Class