From f93d6605583af664cc7008877a53a92c6703d484 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Thu, 17 Feb 2022 08:25:35 +0100
Subject: [PATCH] =?UTF-8?q?Login=20GUI=20=C3=84nderungen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 login/login_FLEX.aspx.vb | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/login/login_FLEX.aspx.vb b/login/login_FLEX.aspx.vb
index 1651c8b..9980b9a 100644
--- a/login/login_FLEX.aspx.vb
+++ b/login/login_FLEX.aspx.vb
@@ -17,8 +17,13 @@ Partial Class login_FLEX
         If Page.IsPostBack = True Then
             Page.MaintainScrollPositionOnPostBack = True
             intzahliterats = VERAG_VARIABLES.getiterationnumber
+            If Page.User.Identity.Name = "Userwithlongername" Then
+                Response.Redirect("../Customers/Welcome.aspx")
+            ElseIf Page.User.Identity.Name = "test2" Then
+                Response.Redirect("../AvisoTV_FLEX.aspx")
+            End If
         Else
-            Try
+                Try
                 Dim teststr = String.Empty
                 If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
                     intzahliterats = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 8), Math.Pow(2, 15))
@@ -320,9 +325,10 @@ Partial Class login_FLEX
             If reqfieldvalpassw_M.IsValid = True Then
                 Dim hashpw_M As Byte() = Await VERAG_VARIABLES.HashPasswordAsync(tb3_M.Text, salt, intzahliterats, intzahl)
                 passw = tb3_M.Text
+                tb3_M.Attributes.Add("style", "border: solid 2px lime")
             Else
                 VERAG_VARIABLES.seterrorcount(4)
-                reqfieldvalpassw_M.ErrorMessage = String.Empty
+                reqfieldvalpassw_M.ErrorMessage = "Password does Not meet the requirements!"
             End If
         End If
         ' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString