<%@ Language=VBScript %> <%Option Explicit%> <% '------------------------------------------------------------------------- ' adminpw_changeConfirm.asp: Change administator password confirm page ' ' Copyright (c) Microsoft Corporation. All rights reserved. ' ' Date Description ' 01-Feb-2001 Created '------------------------------------------------------------------------- %> <% '------------------------------------------------------------------------- 'Global Variables '------------------------------------------------------------------------- Dim page 'Variable that receives the output page object when 'creating a page Dim rc 'Return value for CreatePage Dim G_Flag rc=SA_CreatePage(L_ADMIN_ACCOUNT_CONFIRM_TEXT,"",PT_PROPERTY,page) G_Flag=Trim(Request.QueryString("flag")) 'Serve the page If (rc=0) Then SA_ShowPage(page) End If '------------------------------------------------------------------------- 'Function: OnInitPage() 'Description: Called to signal first time processing for this page. ' Use this method to do first time initialization tasks 'Input Variables: PageIn,EventArg 'Output Variables: PageIn,EventArg 'Returns: True/False 'Global Variables: None '------------------------------------------------------------------------- Public Function OnInitPage(ByRef PageIn,ByRef EventArg) 'getting Scheduled task type G_Flag=Trim(Request.QueryString("flag")) OnInitPage=TRUE End Function '------------------------------------------------------------------------- 'Function: OnServePropertyPage() 'Description: Called when the page needs to be served.Use this ' method to serve content 'Input Variables: PageIn,EventArg 'Output Variables: PageIn,EventArg 'Returns: True/False 'Global Variables: L_(*)-Localization Strings '------------------------------------------------------------------------- Public Function OnServePropertyPage(ByRef PageIn,ByRef EventArg) Call ServeCommonJavaScript() %> <%If G_Flag=1 Then %> <% Elseif G_Flag=2 Then %> <% Elseif G_Flag=3 Then %> <% End If %>

<%=L_PASSWORD_CHANGED_TEXT%>.

<%=L_USERACCOUNT_CHANGED_TEXT%>.

<%=L_USERANDACCOUNTNAME_CHANGED_TEXT%>.

<% OnServePropertyPage=TRUE End Function '------------------------------------------------------------------------- 'Function: OnPostBackPage() 'Description: Called to signal that the page has been posted-back. 'Input Variables: PageIn,EventArg 'Output Variables: PageIn,EventArg 'Returns: True/False 'Global Variables: None '------------------------------------------------------------------------- Public Function OnPostBackPage(ByRef PageIn,ByRef EventArg) OnPostBackPage=TRUE End Function '------------------------------------------------------------------------- 'Function: OnSubmitPage() 'Description: Called when the page has been submitted for processing. ' Use this method to process the submit request. 'Input Variables: PageIn,EventArg 'Output Variables: PageIn,EventArg 'Returns: True/False 'Global Variables: None '------------------------------------------------------------------------- Public Function OnSubmitPage(ByRef PageIn,ByRef EventArg) 'deleting the scheduled task OnSubmitPage=True End Function '------------------------------------------------------------------------- 'Function: OnClosePage() 'Description: Called when the page is about to be closed.Use this method ' to perform clean-up processing 'Input Variables: PageIn,EventArg 'Output Variables: PageIn,EventArg 'Returns: True/False 'Global Variables: None '------------------------------------------------------------------------- Public Function OnClosePage(ByRef PageIn,ByRef EventArg) OnClosePage=TRUE End Function Function ServeCommonJavaScript() %> <%End Function %>