Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall

Customers/CustomsAviso.aspx.vb

@@ -25,14 +25,20 @@ Partial Class CustomsAviso
             End Try
 
             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 = "<script language=\""JavaScript\"">"
                 string1 += "</"
+                string1 += "window.addEventListener('beforeunload', (event) => {"
+                string1 += " event.preventDefault();"
+                string1 += "event.returnValue = '';"
                 string1 += "script>"
                 csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
             End If
+
             tbl_Header_row.TableSection = TableRowSection.TableHeader
                 ' MsgBox(datebis)