Imports System.Web.Configuration
Public Class Header
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim dh As New clsDatahandling
        Me.SiteTitle.Text = dh.Get_Option(2)
        If Session("Logo") Is Nothing Then Session("Logo") = dh.Get_Option(12)
        If Session("Logo_Height") Is Nothing Then Session("Logo_Height") = dh.Get_Option(13)
        If Session("Logo_Width") Is Nothing Then Session("Logo_Width") = dh.Get_Option(14)
        If Session("Style") Is Nothing Then Session("Style") = dh.Get_Option(22)
        If Session("Style") = "" Then
            System.Configuration.ConfigurationManager.AppSettings("Telerik.Skin") = "Windows7"
        Else
            System.Configuration.ConfigurationManager.AppSettings("Telerik.Skin") = Session("Style")
        End If
        If Session("Logo") = "" Then
            Me.Image2.Visible = False
        Else
            Me.Image2.Visible = True
            Me.Image2.ImageUrl = Session("logo").ToString
            Me.Image2.Height = Session("Logo_Height").ToString
            Me.Image2.Width = Session("Logo_Width").ToString
        End If


        'Me.SiteTitle.Text = WebConfigurationManager.AppSettings("SiteTitle")
        If Session.Item("LogedIn") = "True" Then
            Me.HyperLink1.Visible = True
            Me.lblUsername.Visible = True
            Me.lblUsername.Text = "Angemeldet als " + Session("Username")
            Me.lblStrich.Visible = True
        Else
            Me.HyperLink1.Visible = False
            Me.lblUsername.Visible = True
            Me.lblUsername.Text = "Nicht angemeldet"
            Me.lblStrich.Visible = False
            Response.Redirect("~/Default.aspx")
        End If
        'MenuPane.Controls.Add(Page.LoadControl("~/UserControls/Menu.ascx"))
    End Sub


End Class