diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index 6f9641d..cc257b8 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -22,28 +22,28 @@ Partial Class CustomsAviso If Me.Page.User.Identity.IsAuthenticated 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!") - Response.Redirect("Error.aspx&P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("CustomsAviso.aspx")) - End 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!") + Response.Redirect("Error.aspx&P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("CustomsAviso.aspx")) + End Try - DataBind() + DataBind() - 'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall - Dim csm1 As ClientScriptManager = Page.ClientScript - Dim cstype As Type = Page.GetType - If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then - Dim string1 As String = "