diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb
index 6b6a9b5..1451b32 100644
--- a/login/ForgotPW.aspx.vb
+++ b/login/ForgotPW.aspx.vb
@@ -106,16 +106,20 @@ Partial Class login_ForgotPW
             getdomianenvironment = HttpContext.Current.Request.ServerVariables("SERVER_NAME")
             ServPort = ":" + Request.ServerVariables("SERVER_PORT")
             'pagename = Request.ServerVariables("SCRIPT_NAME")
+            Dim mailto As String = email
+            Dim Betreff As String = "Passwort reset"
+            Dim htmlbody = String.Format("Sehr geehrte/r {0},<br /><br /> Bitte dem Link zum Zurücksetzen des Passwortes folgen:<br /><br /><br />.<br />" + Environment.NewLine + "<a runat=" + "server" + " href=http://" + getdomianenvironment + ServPort + "/login/ChangePW.aspx?Par1=" + VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(tokenname) + ">Link</a>" + Environment.NewLine + "<br />Mit freundlichen Grüßen,", 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")
+            Dim mailto As String = email
+            Dim Betreff As String = "Passwort reset"
+            Dim htmlbody = String.Format("Sehr geehrte/r {0},<br /><br /> Bitte dem Link zum Zurücksetzen des Passwortes folgen:<br /><br /><br />.<br />" + Environment.NewLine + "<a runat=" + "server" + " href=http://" + getdomianenvironment + "/login/ChangePW.aspx?Par1=" + VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(tokenname) + ">Link</a>" + Environment.NewLine + "<br />Mit freundlichen Grüßen,", username, password)
         End If
         'Dim pg As String = Request.ServerVariables("URL")
         'MsgBox("/" + ServPort + Request.ServerVariables("URL"))
-        Dim mailto As String = email
-        Dim Betreff As String = "Passwort reset"
-        Dim htmlbody = String.Format("Sehr geehrte/r {0},<br /><br /> Bitte dem Link zum Zurücksetzen des Passwortes folgen:<br /><br /><br />.<br />" + Environment.NewLine + "<a runat=" + "server" + " href=http://" + getdomianenvironment + ServPort + "/login/ChangePW.aspx?Par1=" + VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(tokenname) + ">Link</a>" + Environment.NewLine + "<br />Mit freundlichen Grüßen,", username, password)
+
         Try
             Dim tokennametemp = genToken(username, password, email)
             'Dim Strtemp = Session.Keys.Item("urltochangepw")