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.
41 lines
1.6 KiB
41 lines
1.6 KiB
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/firmendaten.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 |