You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
954 B
25 lines
954 B
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)
|
|
'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 |