From 60e09f77ec4a7c7ea13d95e9130031ba5c61e859 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Mon, 11 Oct 2021 15:56:13 +0200
Subject: [PATCH] =?UTF-8?q?=C3=84nderungen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 login/ForgotPW.aspx    | 6 +++---
 login/ForgotPW.aspx.vb | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/login/ForgotPW.aspx b/login/ForgotPW.aspx
index 430ef6f..ef4324e 100644
--- a/login/ForgotPW.aspx
+++ b/login/ForgotPW.aspx
@@ -108,13 +108,13 @@
                         <asp:Label ID="lbl_Email" runat="server" Text="Email Address:" CssClass="txt_design2"></asp:Label>
                     </td>             
                     <td align="left" colspan="2">  
-                <asp:TextBox ID="txtEmail" runat="server" Width = "207" Font-Size="1.125em" OnTextChanged="txtEmail_TextChanged" style="margin-left:-4px"/>                    
+                        <asp:TextBox ID="txtEmail" runat="server" Width = "207" Font-Size="1.125em" OnTextChanged="txtEmail_TextChanged" style="margin-left:-4px"/>                    
                         <asp:RegularExpressionValidator ID="regexval_txt_Email" ControlToValidate="txtEmail" runat="server" ValidationExpression="<%=regexemail %>" Display="Dynamic"></asp:RegularExpressionValidator>
                     </td></tr>
                 <tr style="color:#003680; height:30px;">
                     <td align="left" colspan="2"> 
-                                        <asp:Label ID="lbl_Username"  runat="server" Text="Username:" CssClass="txt_design2"></asp:Label>
-                        </td>                
+                            <asp:Label ID="lbl_Username"  runat="server" Text="Username:" CssClass="txt_design2"></asp:Label>
+                    </td>                
                      <td align="left" colspan="2"> 
                     <asp:TextBox ID="txt_Username" runat="server" Width = "207" Font-Size="1.125em" style="margin-left:-4px" />
                         </td></tr>
diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb
index 701e26b..c39e563 100644
--- a/login/ForgotPW.aspx.vb
+++ b/login/ForgotPW.aspx.vb
@@ -115,7 +115,7 @@ Partial Class login_ForgotPW
         Dim ServPort As String = ""
         If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
             getdomianenvironment = HttpContext.Current.Request.ServerVariables("SERVER_NAME")
-            ServPort = Request.ServerVariables("SERVER_PORT")
+            ServPort = ":" + Request.ServerVariables("SERVER_PORT")
             pagename = Request.ServerVariables("SCRIPT_NAME")
         ElseIf HttpContext.Current.Request.ServerVariables("SERVER_NAME") = Not "localhost" Then
             getdomianenvironment = HttpContext.Current.Request.ServerVariables("SERVER_NAME")
@@ -126,7 +126,7 @@ Partial Class login_ForgotPW
         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)
+        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")