Public Class NewPasswordBestaetigung
    Inherits System.Web.UI.Page

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

    End Sub

    Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
        Dim dh As New clsDatahandling
        Dim result As Integer = dh.Check_User(Me.txtBenutzername.Text, Me.txtPasswort.Text)
        If result < 0 Then
            Me.lblErrorMessage.Text = "Benutzer unbekannt, Kombination Benutzer/Passwort ungültig oder Benutzerprofil noch nicht aktiviert."
        Else
            Session.Item("LogedIn") = "True"
            Session("username") = Me.txtBenutzername.Text
            Dim dt As New DataTable
            dt = dh.Get_UserUsertype(result)
            If dt.Rows(0).Item("UserType") = 9 Then Session.Item("Admin") = "True"
            If dt.Rows(0).Item("Firmanr") = 0 And dt.Rows(0).Item("Lehrernr") = 0 Then
                'Admin
                Session.Item("Menuhandler") = 9
                Session.Item("Admin") = "True"
                Response.Redirect("~/default.aspx")
                Exit Sub
            End If
            If dt.Rows(0).Item("Firmanr") > 0 Then
                'Firma
                Session.Item("Firmanr") = dt.Rows(0).Item("Firmanr")
                Session.Item("Menuhandler") = 2
                Response.Redirect("~/firmen/firmendaten1.aspx")
            End If
            If dt.Rows(0).Item("Lehrernr") > 0 Then
                'Firma
                Session.Item("Leherer") = dt.Rows(0).Item("Lehrernr")
                Session.Item("Menuhandler") = 3
            End If

        End If
    End Sub

End Class