old Code of Menu -27-12-2016




'Protected Sub aEngineering_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles aEngineering.ServerClick
    '    Try
    '        If Session("RoleId") IsNot Nothing Then
    '            If CheckModuleRights(Constants.MODULE_LIST.Engineering) = True Then
    '                Dim url As String = GetURL(Constants.ModuleIdentity.Engineering, Constants.Engineering_Landing_Page)
    '                Response.Redirect(url, False)
    '            End If
    '        End If
    '    Catch ex As Exception
    '        ExceptionHandler(ex, New System.Diagnostics.StackTrace().GetFrame(0).GetMethod().Name)
    '    End Try
    'End Sub
    'Protected Sub aMarketing_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles aMarketing.ServerClick

    '    Try
    '        If Session("RoleId") IsNot Nothing Then
    '            If CheckModuleRights(Constants.MODULE_LIST.Marketing) = True Then
    '                Dim url As String = GetURL(Constants.ModuleIdentity.Marketing, Constants.Marketing_Landing_Page)
    '                Response.Redirect(url, False)
    '            End If
    '        End If
    '    Catch ex As Exception
    '        ExceptionHandler(ex, New System.Diagnostics.StackTrace().GetFrame(0).GetMethod().Name)
    '    End Try
    'End Sub
    'Protected Sub aPurchase_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles aPurchase.ServerClick

    '    Try
    '        If Session("RoleId") IsNot Nothing Then
    '            If CheckModuleRights(Constants.MODULE_LIST.Purchase) = True Then
    '                Dim url As String = GetURL(Constants.ModuleIdentity.Purchase, Constants.Purchase_Landing_Page)
    '                Response.Redirect(url, False)
    '            End If
    '        End If
    '    Catch ex As Exception
    '        ExceptionHandler(ex, New System.Diagnostics.StackTrace().GetFrame(0).GetMethod().Name)
    '    End Try
    'End Sub
    'Protected Sub aSales_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles aSales.ServerClick
    '    Try
    '        If Session("RoleId") IsNot Nothing Then
    '            If CheckModuleRights(Constants.MODULE_LIST.Sales) = True Then
    '                Dim url As String = GetURL(Constants.ModuleIdentity.Sales, Constants.Sales_Landing_Page)
    '                Response.Redirect(url, False)
    '            End If
    '        End If
    '    Catch ex As Exception
    '        ExceptionHandler(ex, New System.Diagnostics.StackTrace().GetFrame(0).GetMethod().Name)
    '    End Try
    'End Sub
    'Protected Sub aSite_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles aSite.ServerClick
    '    Try
    '        If Session("RoleId") IsNot Nothing Then
    '            If CheckModuleRights(Constants.MODULE_LIST.Site) = True Then
    '                Dim url As String = GetURL(Constants.ModuleIdentity.Site, Constants.Site_Landing_Page)
    '                Response.Redirect(url, False)
    '            End If
    '        End If
    '    Catch ex As Exception
    '        ExceptionHandler(ex, New System.Diagnostics.StackTrace().GetFrame(0).GetMethod().Name)
    '    End Try

    'End Sub
    'Protected Sub aAdminTool_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles aAdminTool.ServerClick
    '    Try
    '        If Session("RoleId") IsNot Nothing Then
    '            If CheckModuleRights(Constants.MODULE_LIST.AdminTool) = True Then
    '                Dim url As String = GetURL(Constants.ModuleIdentity.Admin_Tool, Constants.AdminTool_Landing_Page)
    '                Response.Redirect(url, False)
    '            End If
    '        End If
    '    Catch ex As Exception
    '        ExceptionHandler(ex, New System.Diagnostics.StackTrace().GetFrame(0).GetMethod().Name)
    '    End Try
    'End Sub
    'Protected Sub aWorkflow_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles aWorkflow.ServerClick
    '    Try
    '        If Session("RoleId") IsNot Nothing Then
    '            If CheckModuleRights(Constants.MODULE_LIST.Workflow) = True Then
    '                Dim url As String = GetURL(Constants.ModuleIdentity.Workflow, Constants.WorkFlow_Landing_Page)
    '                Response.Redirect(url, False)
    '            End If
    '        End If
    '    Catch ex As Exception
    '        ExceptionHandler(ex, New System.Diagnostics.StackTrace().GetFrame(0).GetMethod().Name)
    '    End Try
    'End Sub
    'Protected Sub aDashboard_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles aDashboard.ServerClick

    '    Try
    '        If Session("RoleId") IsNot Nothing Then
    '            If CheckModuleRights(Constants.MODULE_LIST.Dashboard) = True Then
    '                Dim url As String = GetURL(Constants.ModuleIdentity.Dashboard, Constants.Dashboard_Landing_Page)
    '                Response.Redirect(url, False)
    '            End If
    '        End If
    '    Catch ex As Exception
    '        ExceptionHandler(ex, New System.Diagnostics.StackTrace().GetFrame(0).GetMethod().Name)
    '    End Try
    'End Sub


    'Protected Sub aAccounts_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles aAccounts.ServerClick
    '    Try
    '        If Session("RoleId") IsNot Nothing Then
    '            If CheckModuleRights(Constants.MODULE_LIST.Accounts) = True Then
    '                Dim url As String = GetURL(Constants.ModuleIdentity.Accounts, Constants.Accounts_Landing_Page)
    '                Response.Redirect(url, False)
    '            End If
    '        End If
    '    Catch ex As Exception
    '        ExceptionHandler(ex, New System.Diagnostics.StackTrace().GetFrame(0).GetMethod().Name)
    '    End Try
    'End Sub

    'Protected Sub aContracts_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles aContracts.ServerClick
    '    Try
    '        If Session("RoleId") IsNot Nothing Then
    '            If CheckModuleRights(Constants.MODULE_LIST.Contracting) = True Then
    '                Dim url As String = GetURL(Constants.ModuleIdentity.Contracting, Constants.Contracting_Landing_Page)
    '                Response.Redirect(url, False)
    '            End If
    '        End If
    '    Catch ex As Exception
    '        ExceptionHandler(ex, New System.Diagnostics.StackTrace().GetFrame(0).GetMethod().Name)
    '    End Try
    'End Sub


	'Public Sub AdRotator1_AdCreated(ByVal sender As Object, ByVal e As AdCreatedEventArgs)

    '    AdRotator1.Visible = False
    '    lnkRotator.Text = e.AlternateText
    'End Sub
    'Protected Sub LoginStatus1_LoggedOut(ByVal sender As Object, ByVal e As System.EventArgs) Handles LoginStatus1.LoggedOut
    '    Try

    '        'Dim CurrentUser As MembershipUser

    '        'Session("username") = ""
    '        'Session("RoleId") = ""
    '        'Session("RoleName") = ""
    '        'Session.Clear()
    '        'Session.Abandon()
    '        'CurrentUser = Membership.GetUser(HttpContext.Current.User.Identity.Name)
    '        'CurrentUser.LastActivityDate = DateTime.Now.AddMinutes(-Membership.UserIsOnlineTimeWindow)
    '        'Membership.UpdateUser(CurrentUser)
    '        'FormsAuthentication.SignOut()
    '        'Response.Cookies.Remove(FormsAuthentication.FormsCookieName)
    '        'Services.IsSessionExpire = False
    '        Services.Logout()
    '        Exit Sub
    '    Catch ex As Exception
    '        ExceptionHandler(ex, New System.Diagnostics.StackTrace().GetFrame(0).GetMethod().Name)
    '    End Try
    'End Sub


	'Protected Sub lnkDashBoard_Click(sender As Object, e As System.EventArgs) Handles lnkDashBoard.Click
    '    Dim url As String
    '    url = System.Configuration.ConfigurationManager.AppSettings("DashBoard") & "=" & Session("username") & ""
    '    Response.Redirect(url, False)
    'End Sub

    'Protected Sub lnkAdminTool_Click(sender As Object, e As System.EventArgs) Handles lnkAdminTool.Click
    '    Dim url As String
    '    url = System.Configuration.ConfigurationManager.AppSettings("AdminTool") & "=" & Session("username") & ""
    '    Response.Redirect(url, False)
    'End Sub