From 46edf7984584932fd9a93233342eaa672c218bef Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Fri, 8 Oct 2021 08:23:28 +0200
Subject: [PATCH] Fix endless loop

---
 login/ForgotPW.aspx.vb | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb
index 7e32d86..09e1063 100644
--- a/login/ForgotPW.aspx.vb
+++ b/login/ForgotPW.aspx.vb
@@ -105,23 +105,25 @@ Partial Class login_ForgotPW
     End Function
 
     Function SendEmail(username As String, password As String, email As String) As Boolean
+        Dim getdomianenvironment As String = ""
+        If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
+            getdomianenvironment = HttpContext.Current.Request.ServerVariables("SERVER_NAME")
+        ElseIf HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
+            getdomianenvironment = HttpContext.Current.Request.ServerVariables("SERVER_NAME")
+        End If
         Dim mailto As String = email
         Dim Betreff As String = "Passwort reset"
-        Dim htmlbody = String.Format("Sehr geehrte/r {0},<br /><br /> Der Link zum Zurücksetzen des Passwortes lautet:<br /><br /><br />.<br />" + Environment.NewLine + "<a href=" + "" + "/ChangePW.aspx" + ">This is default.aspx</a>" + Environment.NewLine + "<br />Mit freundlichen Grüßen,", username, password)
+        Dim htmlbody = String.Format("Sehr geehrte/r {0},<br /><br /> Der Link zum Zurücksetzen des Passwortes lautet:<br /><br /><br />.<br />" + Environment.NewLine + "<a href=" + "" + getdomianenvironment + "/login/ChangePW.aspx" + ">This is default.aspx</a>" + Environment.NewLine + "<br />Mit freundlichen Grüßen,", username, password)
         Try
             Dim tokennametemp = genToken(username, password, email)
             'Dim Strtemp = Session.Keys.Item("urltochangepw")
             If getDateoftoken(tokennametemp) = True Then
                 '     Dim attachment As Attachment = New Attachment(File.OpenRead(excel), "Kundenliste.xlsx")
                 '     Msg.Attachments.Add(attachment)
-                Dim count = 0
-                Do
-                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailto, Betreff, htmlbody)
-                Loop
-                While count = 2
-                    End While
 
-                    MsgBox("SENT")
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailto, Betreff, htmlbody)
+
+                MsgBox("SENT")
                 Return True
             Else