Tokenmessages
This commit is contained in:
@@ -50,7 +50,7 @@ Partial Class login_ForgotPW
|
||||
regexval_txt_Email.Validate()
|
||||
Catch ex As Exception
|
||||
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
|
||||
Title = "Fehler bei E-Mail Authentifizierung!"
|
||||
MsgBox(Msg, Style, Title)
|
||||
@@ -72,7 +72,7 @@ Partial Class login_ForgotPW
|
||||
'MsgBox(tokenname, msgboxstyle)
|
||||
MsgBox("Token erfolgreich generiert.")
|
||||
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)
|
||||
End If
|
||||
'SendEmail(username, password, email)
|
||||
|
||||
Reference in New Issue
Block a user