änderungen design

This commit is contained in:
ja
2021-10-19 14:28:51 +02:00
parent 9045f79100
commit 7743871717
4 changed files with 33 additions and 17 deletions

View File

@@ -45,16 +45,7 @@ Partial Class ChangePW
btn_submitpw.Enabled = False
End If
End Sub
Public Function geturlofpage() As String
Dim url = Request.Url.Authority + HttpContext.Current.Request.RawUrl.ToString()
If Request.ServerVariables("HTTPS") = "on" Then
url = "https://" + url
Else
url = "http://" + url
End If
Return url
End Function
Protected Sub btn_submitpw_Click(sender As Object, e As EventArgs)
Dim tempstr As String = ""