@imports OCMS @ModelType Global.OCMS.intranet.intranet_model @code Dim Ctrl As Global.OCMS.intranet.Controllers.IntranetController_base = If(GetType(Global.OCMS.intranet.Controllers.IntranetController_base).IsAssignableFrom(Me.ViewContext.Controller.GetType()), DirectCast(Me.ViewContext.Controller, Global.OCMS.intranet.Controllers.IntranetController_base), Nothing) Dim AccountName As String = "" 'Ctrl.AccountInfo.AccountName Dim RequestedAccount As String = "" 'Ctrl.RequestedAccount Dim isIE As Boolean = Global.OCMS.intranet.OCMS_intranet.isUNSupportedBrowser(Ctrl) Dim textsdic As New LanguageTextDic("de") With textsdic .Add("noie", "Dieser Browser wird leider nicht unterstützt. Bitte verwenden Sie Edge, Firefox oder Chrome.", "This browser is unfortunately not supported. Please use Edge, Firefox, or Chrome instead.") .Add("dph", "Datenschutz", "Data Protection & Privacy") .Add("dps", "Diese Webseite ist ein nicht-öffentliches Online-Portal. Der Zugang ist ausschließlich für autorisierte Personen der jeweiligen Organisation vorbehalten." & vbNewLine & vbNewLine & "Bei Besuch dieser Anmeldeseite werden keine personenbezogen Daten erfasst und gespeichert, die Sie nicht selbst übermitteln. Übermittelte Daten werden ohne Ihre ausdrückliche Zustimmung generell nicht an Dritte weitergegeben." & vbNewLine & "Zur Verminderung grundsätzlicher Sicherheitsrisiken bei der Datenübertragung im Internet findet die Kommunikation mit dem Server in beiden Richtungen grundsätzlich über eine gesicherte Verbindung statt." & vbNewLine & vbNewLine & "Für die Nutzung der Seite als angemeldeter Benutzer beachten Sie bitte die ausführliche Datenschutzerklärung.", "This website is a private online portal. Access have only members and authorized persons of the respective organisation." & vbNewLine & vbNewLine & "At visit of this login page, no individual-related data will be captured and stored, that you did not submit yourself. Sent data will generally not be distributed to third parties without your explicit consent." & vbNewLine & "To reduce general security risks of transmitting data over the internet is the communication with the server in both directions generally via a secured connection." & vbNewLine & vbNewLine & "For the use of this website as registered and logged-on user, please take note of the detailed data protection statements.") .Add("ccc", "Ich stimme der Nutzung von Cookies zur Authentifizierung im internen Bereich zu.", "I consent to the use of cookies for authenticating in the internal area.") End With End Code