From f9107e9aba6625dc4eb5bf7ba5302a9d082cbaf5 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Tue, 16 Nov 2021 16:39:36 +0100
Subject: [PATCH] =?UTF-8?q?=C3=84nderungen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/Default.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Customers/Default.aspx.vb b/Customers/Default.aspx.vb
index f141b3f..53b4bd6 100644
--- a/Customers/Default.aspx.vb
+++ b/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