<%@Language="VBScript"%> <% On Error goto 0 If Request.Form("cancel") <> "" Then Response.Redirect(Request.QueryString) Response.End End If Dim domain, username, posbs, posat username = Request.Form("acct") If username <> "" Then username = Server.HTMLEncode(username) Else username = Server.HTMLEncode(Request.ServerVariables("REMOTE_USER")) End If domain = Request.Form("domain") If domain <> "" Then domain = Server.HTMLEncode(domain) Else posbs = Instr(1, username, "\\") posat = Instr(1, username, "@") If posbs > 0 Then domain = Left(username, posbs - 1) username = Right(username, len(username) - posbs) ElseIf posat > 0 Then domain = Right(username, len(username) - posat) username = Left(username, posat - 1) Else Set nw = Server.CreateObject("WScript.Network") domain = nw.UserDomain End If End If Call RenderPageStart("Kennwort aendern", "Bitte gib dein aktuelles Kennwort und das neue Kennwort ein.") %> <% Call RenderPageEnd() %>