- |
+ |
|
@@ -94,8 +94,10 @@
|
+ <% Dim veragregex = New RegexSammlung_VERAG()
+ Dim veragpwVAL = veragregex.getregPassword()%>
-
+
|
@@ -113,7 +115,7 @@
|
-
+
|
diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb
index ecae57b..ca83f87 100644
--- a/login/ForgotPW.aspx.vb
+++ b/login/ForgotPW.aspx.vb
@@ -49,12 +49,9 @@ Partial Class login_ForgotPW
username = dr("Username").ToString()
password = dr("Password").ToString()
Try
- If email = dr("Email").ToString() Then
- email = txtEmail.Text
- Else
- MsgBox("Error bei Email- Authentifizierung. Diese Mail stimmt nicht mit den hinterlegten Account-informationen überein.")
- con.Close()
- End If
+
+ email = txtEmail.Text
+
Catch ex As Exception
Dim Msg, Style, Title As String
Msg = "E-mail Prüfung fehlgeschlagen!" & vbCrLf + "Bitte erneut versuchen!"
@@ -81,17 +78,17 @@ Partial Class login_ForgotPW
If (getDateoftoken(tokenname) = True) Then
Dim msgboxstyle = vbDefaultButton1 + vbOK
- MsgBox(tokenname, MsgBoxStyle)
+ 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
@@ -111,28 +108,15 @@ Partial Class login_ForgotPW
Function SendEmail(username As String, password As String, email As String) As Boolean
Dim lkb As LinkButton = New LinkButton()
lkb.PostBackUrl = "ChangePW.aspx"
-
- Dim Msg As New MailMessage
- Dim myCredentials As New System.Net.NetworkCredential
- myCredentials.UserName = "al@verag.ag"
- myCredentials.Password = "Luxandreas#2"
- Msg.IsBodyHtml = True
- Dim mySmtpsvr As New SmtpClient()
- mySmtpsvr.Host = "smtp.1und1.de" 'bei web.de
- mySmtpsvr.Port = 587 '25
- mySmtpsvr.UseDefaultCredentials = False
- mySmtpsvr.Credentials = myCredentials
-
Try
Dim tokennametemp = genToken(username, password, email)
If getDateoftoken(tokennametemp) = True Then
- Msg.From = New MailAddress("al@verag.ag")
- Msg.To.Add(email)
- Msg.Subject = "Passwort reset"
- Msg.Body = String.Format("Sehr geehrte/r {0},
Der Link zum Zurücksetzen des Passwortes lautet:
.
" + Environment.NewLine + lkb.PostBackUrl + Environment.NewLine + "
Mit freundlichen Grüßen,", username, password)
+ Dim mailto As String = email
+ Dim Betreff As String = "Passwort reset"
+ Dim htmlbody = String.Format("Sehr geehrte/r {0},
Der Link zum Zurücksetzen des Passwortes lautet:
.
" + Environment.NewLine + lkb.PostBackUrl + Environment.NewLine + "
Mit freundlichen Grüßen,", username, password)
' Dim attachment As Attachment = New Attachment(File.OpenRead(excel), "Kundenliste.xlsx")
' Msg.Attachments.Add(attachment)
- mySmtpsvr.Send(Msg)
+ VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailto, Betreff, htmlbody)
MsgBox("SENT")
Return True
Else
diff --git a/login/login_FLEX.aspx b/login/login_FLEX.aspx
index 527180a..f9b7a2a 100644
--- a/login/login_FLEX.aspx
+++ b/login/login_FLEX.aspx
@@ -64,13 +64,17 @@
-
+
+ <%Dim veragregex = New RegexSammlung_VERAG()
+ Dim regexUID As String = veragregex.getregUID()
+ Dim regexPWVal As String = veragregex.getregPassword()%>