<% '================================================== ' Module: NASServeStatusBar.asp ' ' Synopsis: Create the NAS Appliance Status Bar HTML Content ' ' Copyright (c) Microsoft Corporation. All rights reserved. '================================================== %> <% ' ' Include the OEM provided STATUS content ' %> <% Function SA_ServeStatusBar() Call ServeStatusBar(True, "", "") End Function Function NASServeStatusBar() Call ServeStatusBar(True, "", "") 'Call ServeStatusBar(False, "Status: Restarting", "StatusCritical") End Function Function StatusBarBreak() ' ' Status Bar Seperator ' Response.Write(""+vbCrLf) Response.Write(""+vbCrLf) Response.Write("
"+vbCrLf) End Function Function ServeStatusBar(blnUpdateStatus, strStatusText, strCSSClass) on error resume next Dim objElements Dim objItem Dim blnEnabled Dim rc Dim iconPath Dim url Call EmitStatusBarHeader() StatusBarBreak() ' ' Status bar table contains four (4) columns and one (1) row ' Response.Write(""+vbCrLf) Response.Write(""+vbCrLf) ' ' First column - OEM Logo ' Response.Write(""+vbCrLf) Else iconPath = objItem.GetProperty("ElementGraphic") iconPath = m_VirtualRoot + iconPath Response.Write(""+vbCrLf) End If Exit For Next Set objElements = Nothing Set objItem = Nothing ' ' Second column - Spacer ' Response.Write(""+vbCrLf) ' ' Third column - Server Name and OEM provided STATUS ' Response.Write(""+vbCrLf) ' ' Fourth column - Windows Powered Branding ' Dim winPowered Dim winPoweredURL winPowered = m_VirtualRoot + "images/WinPwr_h_R.gif" winPoweredURL = "http://go.microsoft.com/fwlink/?LinkId=10336" Response.Write("") Response.Write("") Response.Write("
") Set objElements = GetElements("OemLogo") For Each objItem in objElements url = objItem.GetProperty("URL") If ( 0 < Len(Trim(url)) ) Then iconPath = objItem.GetProperty("ElementGraphic") iconPath = m_VirtualRoot + iconPath Response.Write(""+vbCrLf) Response.Write("") Response.Write(" ") Response.Write("") Response.Write("") ' ' Server Name ' Response.Write("") Response.Write("") Response.Write(""+vbCrLf) 'Response.Write("
"+vbCrLf) ' ' OEM Provided STATUS ' Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Response.Write(Server.HTMLEncode(GetComputerNameEx())) Response.Write("
") If (blnUpdateStatus) Then Set objElements = GetElements("STATUS") For Each objItem in objElements Dim strStatusURL strStatusURL = m_VirtualRoot & objItem.GetProperty("URL") Call SA_MungeURL(strStatusURL, SAI_FLD_PAGEKEY, SAI_GetPageKey()) Response.Write(""+vbCrLf) Exit For Next Else Response.Write("
" + strStatusText + "
") End If Response.Write("
") Response.Write("		") Response.Write("") Response.Write("") Response.Write(" 
"+vbCrLf) StatusBarBreak() Call EmitStatusBarFooter() End Function Function EmitStatusBarHeader() %> <% Call SA_EmitAdditionalStyleSheetReferences("") %> <% End Function Function EmitStatusBarFooter() %> <% End Function %>