Änderungen

Customers/Default.aspx.vb

@@ -3,14 +3,14 @@ Partial Class Customers_Default
     Inherits System.Web.UI.Page
     Dim Kdnrtext As String = String.Empty
     Protected Sub Page_Load(sender As Object, e As EventArgs)
-        If Me.Page.User.Identity.IsAuthenticated Then
+        If Me.Page.User.Identity.IsAuthenticated And String.Equals(Me.Page.User.Identity.Name, "Admin") = True Then
             Try
                 Kdnrtext = Session.Item("CustomerID")
             Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
                 MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
             End Try
         Else
-            FormsAuthentication.RedirectToLoginPage()
+            Response.Redirect("../login..Error.aspx?Par1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("Default.aspx"))
         End If
         If Page.IsPostBack = True Then
             Page.MaintainScrollPositionOnPostBack = True