Tokenmessages
This commit is contained in:
@@ -50,7 +50,7 @@ Partial Class login_ForgotPW
|
|||||||
regexval_txt_Email.Validate()
|
regexval_txt_Email.Validate()
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
Dim Msg, Style, Title As String
|
Dim Msg, Style, Title As String
|
||||||
Msg = "E-mail Prüfung fehlgeschlagen!" & vbCrLf + "Bitte erneut versuchen!"
|
Msg = "E-Mail Prüfung fehlgeschlagen!" & vbCrLf + "Bitte erneut versuchen!"
|
||||||
Style = vbRetry + vbExclamation + vbDefaultButton1
|
Style = vbRetry + vbExclamation + vbDefaultButton1
|
||||||
Title = "Fehler bei E-Mail Authentifizierung!"
|
Title = "Fehler bei E-Mail Authentifizierung!"
|
||||||
MsgBox(Msg, Style, Title)
|
MsgBox(Msg, Style, Title)
|
||||||
@@ -72,7 +72,7 @@ Partial Class login_ForgotPW
|
|||||||
'MsgBox(tokenname, msgboxstyle)
|
'MsgBox(tokenname, msgboxstyle)
|
||||||
MsgBox("Token erfolgreich generiert.")
|
MsgBox("Token erfolgreich generiert.")
|
||||||
Else
|
Else
|
||||||
MsgBox("token nicht mehr Gültig! Neuer wird generiert!")
|
MsgBox("Token ist nicht mehr gültig! Es wird ein neuer generiert!")
|
||||||
tokenname = genToken(username, password, email)
|
tokenname = genToken(username, password, email)
|
||||||
End If
|
End If
|
||||||
'SendEmail(username, password, email)
|
'SendEmail(username, password, email)
|
||||||
|
|||||||
Reference in New Issue
Block a user