edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ChangePW wurde zur Fehlervermeidung neu erstellt

Browse Source
This commit is contained in:
ja
2021-10-21 16:57:32 +02:00
parent 51a84e3b33
commit a128bd0cf0
4 changed files with 56 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
login/login_FLEX.aspx.vb
View File

@@ -87,7 +87,7 @@ Partial Class login_FLEX
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
If String.IsNullOrEmpty(tb2_M.Text) = False AndAlso String.IsNullOrEmpty(tb2.Text) = True Then
reqfieldvaluserName.Enabled = False
reqfieldvaluserName_M.Enabled = True
reqfieldvaluserName_M.Validate()
@@ -108,15 +108,22 @@ Partial Class login_FLEX
End If
passw = tb3.Text
End If
If String.IsNullOrEmpty(tb3.Text) = False AndAlso String.IsNullOrEmpty(tb3_M.Text) = True Then
reqfieldvalpassw.Enabled = True
reqfieldvalpassw_M.Enabled = False
reqfieldvalpassw.Validate()
If reqfieldvalpassw.IsValid = True Then
End If
passw = tb3_M.Text
End If
End If
If reqfieldvalpassw_M.IsValid AndAlso String.IsNullOrEmpty(tb3.Text) = False AndAlso String.IsNullOrEmpty(tb3_M.Text) = True Then
If String.IsNullOrEmpty(tb3.Text) = False AndAlso String.IsNullOrEmpty(tb3_M.Text) = True Then
reqfieldvalpassw.Enabled = False
reqfieldvalpassw_M.Enabled = True
reqfieldvalpassw_M.Validate()
If reqfieldvalpassw_M.IsValid = True Then
passw = tb3_M.Text
Else
reqfieldvalpassw_M.ErrorMessage = "Password has to be given."
End If
End If
' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString