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 14:36:24 +02:00
parent 8feec78bb2
commit d887c80f31
2 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
login/ForgotPW.aspx.vb
View File

@@ -62,9 +62,11 @@ Partial Class login_ForgotPW
Title = "Fehler bei E-mail Authentifizierung!" Title = "Fehler bei E-mail Authentifizierung!"
MsgBox(Msg, Style, Title) MsgBox(Msg, Style, Title)
If MsgBox(Msg, Style, Title).Retry Then If MsgBox(Msg, Style, Title).Yes Then
txtEmail.Text = "" txtEmail.Text = ""
txtEmail.Focus() txtEmail.Focus()
ElseIf MsgBox(Msg, Style, Title).No Then
End If End If
End Try End Try
@@ -82,7 +84,7 @@ Partial Class login_ForgotPW
MsgBox(tokenname, MsgBoxStyle) MsgBox(tokenname, MsgBoxStyle)
Else Else
MsgBox("token nicht mehr Gültig! Neuer wird generiert!") MsgBox("token nicht mehr Gültig! Neuer wird generiert!")
'tokenname = genToken(username, password, email) tokenname = genToken(username, password, email)
End If End If
'SendEmail(username, password, email) 'SendEmail(username, password, email)
MsgBox("Mail would be sent successfully!") MsgBox("Mail would be sent successfully!")
@@ -109,6 +111,7 @@ Partial Class login_ForgotPW
Function SendEmail(username As String, password As String, email As String) As Boolean Function SendEmail(username As String, password As String, email As String) As Boolean
Dim lkb As LinkButton = New LinkButton() Dim lkb As LinkButton = New LinkButton()
lkb.PostBackUrl = "ChangePW.aspx" lkb.PostBackUrl = "ChangePW.aspx"
Dim Msg As New MailMessage Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "al@verag.ag" myCredentials.UserName = "al@verag.ag"
@@ -135,7 +138,6 @@ Partial Class login_ForgotPW
Else Else
Return False Return False
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Falls ein Fehler auftritt wird eine MsgBox angezeigt
End Try End Try