<%@ Language=VBScript %> <% '================================================== ' Microsoft Server Appliance ' ' Server Restarting Dialog ' ' Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved. '================================================== %> <% Option Explicit %> <% Dim strServerName Dim strRsrcDLL Dim strMsgID Dim strInitWaitTime DIm strWaitTime On Error Resume Next Dim m_imageURL m_imageURL = "//" m_imageURL = m_imageURL & Request.ServerVariables("SERVER_NAME") m_imageURL = m_imageURL & m_VirtualRoot m_imageURL = m_imageURL & "images/back_button.gif?R=" Dim m_adminPageURL m_adminPageURL = "//" m_adminPageURL = m_adminPageURL & Request.ServerVariables("SERVER_NAME") m_adminPageURL = m_adminPageURL & m_VirtualRoot m_adminPageURL = m_adminPageURL & "default.asp?R=" strRsrcDLL = Request.QueryString("Resrc") strMsgID = "&H" & Request.QueryString("ID") strInitWaitTime = Request.QueryString("T1") strWaitTime = Request.QueryString("T2") 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_ALERT_NOTREADY Dim L_ALERT_RESTARTING L_ALERTLBL_TEXT = objLocMgr.GetString(strSourceName, "&H40010019",varReplacementStrings) L_ALERT_NOTREADY = objLocMgr.GetString(strSourceName, "&H4001001A",varReplacementStrings) L_ALERT_RESTARTING = objLocMgr.GetString(strRsrcDLL, strMsgID, varReplacementStrings) 'End of localization content '----------------------------------------------------- strServerName = Request.ServerVariables("SERVER_NAME") %>

<% ServeAreaLabelBar(L_ALERTLBL_TEXT) %>

	<%=L_ALERT_NOTREADY%> <%=L_ALERT_RESTARTING%>