<%@Language="VBScript"%> <%On Error goto 0%> <%if Request.Form("cancel") <> "" then Response.Redirect(Request.QueryString) end if Response.End %> <%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%>	"" then %> <%=Server.HTMLEncode(Request.Form("domain"))%> <%else%> <% Set objNet = Server.CreateObject("WScript.Network") Response.Write objNet.UserDomain %> <%end if%>">
<%=L_Account_Text%>	"" then%> <%=Server.HTMLEncode(Request.Form("acct"))%> <%else%> <%=Server.HTMLEncode(Right(Request.ServerVariables("REMOTE_USER"),len(Request.ServerVariables("REMOTE_USER")) - Instr(1,Request.ServerVariables("REMOTE_USER"),"")))%> <%end if%>">
<%=L_OldPassword_Text%>
<%=L_NewPassword_Text%>
<%=L_Confirm_Text%>