<%
'==================================================
' File: sh_wizardfooter.asp
'
' Synopsis: Serve Navigation button bar in bottom frameset of a Wizard
'
' Copyright (c) Microsoft Corporation. All rights reserved.
'================================================== %>
<%
Dim sWizardPageType
sWizardPageType = Request.QueryString("PT")
Call ServeWizardFooter()
Function IsFinishButtonNeeded()
If ( UCASE(sWizardPageType) = "FINISH" ) Then
IsFinishButtonNeeded = TRUE
Else
IsFinishButtonNeeded = FALSE
End If
End Function
Function IsBackButtonNeeded()
If ( UCASE(sWizardPageType) = "INTRO" ) Then
'IsBackButtonNeeded = FALSE
IsBackButtonNeeded = TRUE
Else
IsBackButtonNeeded = TRUE
End If
End Function
Function IsNextButtonNeeded()
If ( UCASE(sWizardPageType) = "FINISH" ) Then
IsNextButtonNeeded = FALSE
Else
IsNextButtonNeeded = TRUE
End If
End Function
Function ServeWizardFooter()
DIM L_NEXT_BUTTON_TEXT
DIM L_BACK_BUTTON_TEXT
DIM L_FINISH_BUTTON_TEXT
DIM L_CANCEL_BUTTON_TEXT
L_NEXT_BUTTON_TEXT = GetLocString("sakitmsg.dll", "40010015", "")
L_BACK_BUTTON_TEXT = GetLocString("sakitmsg.dll", "40010014", "")
L_FINISH_BUTTON_TEXT = GetLocString("sakitmsg.dll", "40010016", "")
L_CANCEL_BUTTON_TEXT = GetLocString("sakitmsg.dll", "40010013", "")
%>
<%
Call SA_EmitAdditionalStyleSheetReferences("")
%>
<%
End Function
%>