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