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

Änderungen

Browse Source
This commit is contained in:
ja
2021-10-07 13:41:55 +02:00
parent 579478646b
commit 8feec78bb2
1 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
login/ForgotPW.aspx.vb
View File

@@ -76,20 +76,20 @@ Partial Class login_ForgotPW
If SendEmail(username, password, email) = True Then
'password = RandomString(New Random, 10)
'If (getDateoftoken(tokenname) = True) Then
'Dim msgboxstyle = vbDefaultButton1 + vbOK
If (getDateoftoken(tokenname) = True) Then
Dim msgboxstyle = vbDefaultButton1 + vbOK
' MsgBox(tokenname, msgboxstyle)
'Else
' MsgBox("token nicht mehr Gültig! Neuer wird generiert!")
'tokenname = genToken(username, password, email)
'End If
MsgBox(tokenname, MsgBoxStyle)
Else
MsgBox("token nicht mehr Gültig! Neuer wird generiert!")
'tokenname = genToken(username, password, email)
End If
'SendEmail(username, password, email)
MsgBox("Mail would be sent successfully!")
lblMessage.ForeColor = Color.Green
lblMessage.Text = "Passwort wurde erfolgreich an die angegebene E-Mail Adresse gesendet."
ElseIf SendEmail(username, password, email) = False Then
MsgBox("Mail would not be sent successfully!")
lblMessage.ForeColor = Color.Green
lblMessage.Text = "Passwort wurde erfolgreich an die angegebene E-Mail Adresse gesendet."
ElseIf SendEmail(username, password, email) = False Then
MsgBox("Mail would not be sent successfully!")
lblMessage.ForeColor = Color.Red
lblMessage.Text = "Diese E-Mail ist nicht in unserer Datenbank vorhanden."
End If
@@ -131,10 +131,11 @@ Partial Class login_ForgotPW
' Msg.Attachments.Add(attachment)
mySmtpsvr.Send(Msg)
MsgBox("SENT")
Return True
Else
Return False
End If
Return True
Catch ex As Exception
MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
End Try