diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb
index 39aae18..dcdc43d 100644
--- a/login/ForgotPW.aspx.vb
+++ b/login/ForgotPW.aspx.vb
@@ -124,14 +124,14 @@ Partial Class login_ForgotPW
'pagename = Request.ServerVariables("SCRIPT_NAME")
mailto = email
Betreff = "Passwort reset"
- htmlbody = String.Format("Sehr geehrte/r {0},
Bitte dem Link zum Zurücksetzen des Passwortes folgen:
.
" + Environment.NewLine + "Link" + Environment.NewLine + "
Mit freundlichen Grüßen,", username, password)
+ htmlbody = String.Format("Sehr geehrte/r {0},
Bitte dem Link zum Zurücksetzen des Passwortes folgen:
.
" + Environment.NewLine + "Link" + Environment.NewLine + "
Mit freundlichen Grüßen
VERAG | EDV Support
support@verag.ag,", username, password)
ElseIf HttpContext.Current.Request.ServerVariables("SERVER_NAME") = Not "localhost" Then
getdomianenvironment = HttpContext.Current.Request.ServerVariables("SERVER_NAME")
ServPort = String.Empty
'pagename = Request.ServerVariables("SCRIPT_NAME")
mailto = email
Betreff = "Passwort reset"
- htmlbody = String.Format("Sehr geehrte/r {0},
Bitte dem Link zum Zurücksetzen des Passwortes folgen:
.
" + Environment.NewLine + "Link" + Environment.NewLine + "
Mit freundlichen Grüßen,", username, password)
+ htmlbody = String.Format("Sehr geehrte/r {0},
Bitte dem Link zum Zurücksetzen des Passwortes folgen:
.
" + Environment.NewLine + "Link" + Environment.NewLine + "
Mit freundlichen Grüßen
VERAG | EDV Support
support@verag.ag,", username, password)
End If
'Dim pg As String = Request.ServerVariables("URL")
'MsgBox("/" + ServPort + Request.ServerVariables("URL"))
@@ -142,7 +142,7 @@ Partial Class login_ForgotPW
If getDateoftoken(tokennametemp) = True Then
' Dim attachment As Attachment = New Attachment(File.OpenRead(excel), "Kundenliste.xlsx")
' Msg.Attachments.Add(attachment)
- If Not String.IsNullOrEmpty(mailto) AndAlso Not String.IsNullOrEmpty(Betreff) AndAlso Not String.IsNullOrEmpty(htmlbody) Then
+ If String.IsNullOrEmpty(mailto) = False AndAlso String.IsNullOrEmpty(Betreff) = False AndAlso String.IsNullOrEmpty(htmlbody) = False Then
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailto, Betreff, htmlbody)
Else
MsgBox("Error07: Die Paramter wurden nicht alle gesetzt. Bitte Felder überprüfen.", vbAbort, "Error07")