<%@Language="VBSCRIPT"%> <%=L_Title_Text%> <% On Error goto 0 if Request.Form("cancel") <> "" then Response.Redirect(Request.QueryString) 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 %> <%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "IIS") > 0 then%>
<%=L_ISM_Text%>
<%=L_IIS6_Text%>
<%end if%> <%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "PWS") then%>
<%=L_ISM_Text%>
<%=L_PWS_Text%>
<%end if%>

/iisadmpwd/achg.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
<%=L_Domain_Text%>
<%=L_Account_Text%>
<%=L_OldPassword_Text%>
<%=L_NewPassword_Text%>
<%=L_Confirm_Text%>