<%@ Language=VBScript %>
<% '==================================================
' Microsoft Server Appliance
'
' Error Message Viewer - critical errors
'
' Copyright (c) Microsoft Corporation. All rights reserved.
'==================================================%>
<% Option Explicit %>
<%
Dim rc
Dim strMessage
Dim mstrReturnURL
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
strSourceName = "sakitmsg.dll"
if Err.number <> 0 then
Response.Write "Error in localizing the web content "
Response.End
end if
'-----------------------------------------------------
'START of localization content
Dim L_ALERTLBL_TEXT
Dim L_PAGETITLE_TEXT
L_ALERTLBL_TEXT = objLocMgr.GetString(strSourceName, "&H40010030",varReplacementStrings)
L_PAGETITLE_TEXT = objLocMgr.GetString(strSourceName, "&H40010031",varReplacementStrings)
'End of localization content
'-----------------------------------------------------
strMessage = Request("Message")
mstrReturnURL = Request("ReturnURL") 'framework variable, used in Redirect()
If strMessage = "" Then
ServeClose
Else
ServePage strMessage
End If
Response.End
' end of main routine
'----------------------------------------------------------------------------
'
' Function : ServePage
'
' Synopsis : Serves the error page
'
' Arguments: Message(IN) - msg to display in error page
'
' Returns : None
'
'----------------------------------------------------------------------------
Sub ServePage(Message)
%>
<% =L_PAGETITLE_TEXT %>
<%
Call SA_EmitAdditionalStyleSheetReferences("")
%>
<%
NASServeStatusBar()
ServeTabBar()
%>
<%
End Sub
%>