From c300dd191847ab648434e9fe4ca9f0d01944699a Mon Sep 17 00:00:00 2001 From: ja Date: Wed, 20 Oct 2021 14:22:09 +0200 Subject: [PATCH] Linkbuttons statt normale Links in login form --- login/login_FLEX.aspx | 15 ++++++----- login/login_FLEX.aspx.vb | 57 ++++++++++++++++++---------------------- 2 files changed, 34 insertions(+), 38 deletions(-) diff --git a/login/login_FLEX.aspx b/login/login_FLEX.aspx index 939111d..3cd3152 100644 --- a/login/login_FLEX.aspx +++ b/login/login_FLEX.aspx @@ -271,6 +271,7 @@
+
@@ -283,21 +284,21 @@ - + - + - + - + @@ -311,7 +312,7 @@ - I forgot my password + I forgot my password @@ -331,7 +332,7 @@ - + @@ -359,7 +360,7 @@ - I forgot my password + I forgot my password diff --git a/login/login_FLEX.aspx.vb b/login/login_FLEX.aspx.vb index cba3555..df81137 100644 --- a/login/login_FLEX.aspx.vb +++ b/login/login_FLEX.aspx.vb @@ -18,24 +18,24 @@ Partial Class login_FLEX 'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;" End If - Dim tb As TextBox = form1.FindControl("txt_CustomerID") - Dim tb_M As TextBox = form1.FindControl("txt_CustomerID_M") - Dim tb2 As TextBox = form1.FindControl("UserName") - Dim tb2_M As TextBox = form1.FindControl("UserName_M") - Dim tb3 As TextBox = form1.FindControl("Password") - Dim tb3_M As TextBox = form1.FindControl("Password_M") + Dim tb As TextBox = Login1.FindControl("txt_CustomerID") + Dim tb_M As TextBox = Login1.FindControl("txt_CustomerID_M") + Dim tb2 As TextBox = Login1.FindControl("UserName") + Dim tb2_M As TextBox = Login1.FindControl("UserName_M") + Dim tb3 As TextBox = Login1.FindControl("Password") + Dim tb3_M As TextBox = Login1.FindControl("Password_M") - Dim reqfieldvaluserID As RequiredFieldValidator = Page.FindControl("CustomerIDrequired") - Dim reqfieldvaluserID_M As RequiredFieldValidator = Page.FindControl("CustomerID_M_required") - Dim reqfieldvaluserName As RequiredFieldValidator = Page.FindControl("UserNamerequired") - Dim reqfieldvaluserName_M As RequiredFieldValidator = Page.FindControl("UserName_M_required") - Dim reqfieldvalpassw As RequiredFieldValidator = Page.FindControl("Passwordrequired") - Dim reqfieldvalpassw_M As RequiredFieldValidator = Page.FindControl("Passwordrequired_M") + Dim reqfieldvaluserID As RequiredFieldValidator = Login1.FindControl("CustomerIDrequired") + Dim reqfieldvaluserID_M As RequiredFieldValidator = Login1.FindControl("CustomerID_M_required") + Dim reqfieldvaluserName As RequiredFieldValidator = Login1.FindControl("UserNamerequired") + Dim reqfieldvaluserName_M As RequiredFieldValidator = Login1.FindControl("UserName_M_required") + Dim reqfieldvalpassw As RequiredFieldValidator = Login1.FindControl("Passwordrequired") + Dim reqfieldvalpassw_M As RequiredFieldValidator = Login1.FindControl("Passwordrequired_M") - Dim regexuserID As RegularExpressionValidator = Page.FindControl("valid_getNumberInput") - Dim regexuserID_M As RegularExpressionValidator = Page.FindControl("valid_getNumber_M_Input") - Dim regexusername As RegularExpressionValidator = Page.FindControl("check_UserName_regex") - Dim regexusername_M As RegularExpressionValidator = Page.FindControl("check_UserName_M_regex") + Dim regexuserID As RegularExpressionValidator = Login1.FindControl("valid_getNumberInput") + Dim regexuserID_M As RegularExpressionValidator = Login1.FindControl("valid_getNumber_M_Input") + Dim regexusername As RegularExpressionValidator = Login1.FindControl("check_UserName_regex") + Dim regexusername_M As RegularExpressionValidator = Login1.FindControl("check_UserName_M_regex") Dim Customer_ID As String = String.Empty Dim UserNaMe As String = String.Empty @@ -50,10 +50,8 @@ Partial Class login_FLEX If regexuserID.IsValid Then Customer_ID = tb.Text Else - regexuserID.ErrorMessage = "" + regexuserID.ErrorMessage = "Customer-ID has to be a number." End If - Else - reqfieldvaluserID.ErrorMessage = "" End If End If If String.IsNullOrEmpty(tb_M.Text) = False AndAlso String.IsNullOrEmpty(tb.Text) = True Then @@ -64,10 +62,8 @@ Partial Class login_FLEX If regexusername_M.IsValid Then Customer_ID = tb_M.Text Else - regexusername_M.ErrorMessage = "" + regexusername_M.ErrorMessage = "Username doeas not have any special chaaracters in it." End If - Else - reqfieldvaluserID_M.ErrorMessage = "" End If End If If String.IsNullOrEmpty(tb2.Text) = False AndAlso String.IsNullOrEmpty(tb2_M.Text) = True Then @@ -78,10 +74,10 @@ Partial Class login_FLEX If regexusername.IsValid Then UserNaMe = tb2.Text Else - regexusername_M.ErrorMessage = "" + regexusername_M.ErrorMessage = "Username doeas not have any special chaaracters in it." End If Else - reqfieldvaluserName.ErrorMessage = "" + reqfieldvaluserName.ErrorMessage = "Username has to be given." End If End If If String.IsNullOrEmpty(tb2.Text) = False AndAlso String.IsNullOrEmpty(tb2_M.Text) = True Then @@ -93,14 +89,13 @@ Partial Class login_FLEX If regexusername.IsValid Then UserNaMe = tb2_M.Text Else - regexusername.ErrorMessage = "" + regexusername.ErrorMessage = "Password has to match the criterias of tge info button." End If - Else - reqfieldvaluserName_M.ErrorMessage = "" End If - If reqfieldvalpassw.IsValid AndAlso String.IsNullOrEmpty(tb3_M.Text) = False AndAlso String.IsNullOrEmpty(tb3.Text) = True Then - reqfieldvalpassw.Enabled = True - reqfieldvalpassw_M.Enabled = False + If String.IsNullOrEmpty(tb3_M.Text) = False AndAlso String.IsNullOrEmpty(tb3.Text) = True Then + reqfieldvalpassw.Enabled = True + reqfieldvalpassw_M.Enabled = False + reqfieldvalpassw.Validate() If reqfieldvalpassw.IsValid = True Then End If @@ -114,7 +109,7 @@ Partial Class login_FLEX If reqfieldvalpassw_M.IsValid = True Then passw = tb3_M.Text Else - reqfieldvalpassw_M.ErrorMessage = "" + reqfieldvalpassw_M.ErrorMessage = "Password has to be given." End If End If ' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString