<%@ Language=VBScript %> <% Option Explicit %> <% '================================== ' Tab bar page - Chameleon Server Appliance ' ' ' Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved. '================================== Dim mintTab Dim mstrActiveTextColor Dim mstrInactiveTextColor Dim mstrActiveTabColor Dim mstrInactiveTabColor Dim mstrCaptionText Dim marrTextColor() Dim marrTabColor() Dim marrTabText() Dim marrTabURL() Dim marrTabStyle() Dim i Dim intTabCount Dim objItem Dim objElements Dim intCaptionIDNav On Error Resume Next Response.Buffer = True 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_HELPTOOLTIP_TEXT Dim L_HELP_TEXT Dim L_HELPLABEL_TEXT Dim L_HELPWINNAME Dim L_ABOUTMENU_WINDOWS_TEXT L_HELPTOOLTIP_TEXT = objLocMgr.GetString(strSourceName, "&H40010019",varReplacementStrings) L_HELP_TEXT= objLocMgr.GetString(strSourceName, "&H4001001A",varReplacementStrings) L_HELPLABEL_TEXT= objLocMgr.GetString(strSourceName, "&H4001001B",varReplacementStrings) L_HELPWINNAME = objLocMgr.GetString(strSourceName, "&H4001001C",varReplacementStrings) L_ABOUTMENU_WINDOWS_TEXT = objLocMgr.GetString(strSourceName, "&H4001001D",varReplacementStrings) 'End of localization content '----------------------------------------------------- ' Constant color values mstrActiveTabColor = "#CCCCFF" mstrInactiveTabColor = "#7B7B7B" mstrActiveTextColor = "#000000" mstrInactiveTextColor = "#CCCC99" Set objElements = GetElements("TABS") intTabCount = objElements.Count If Err <> 0 Then intTabCount = 0 End If Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager") ReDim marrTextColor(intTabCount) ReDim marrTabColor(intTabCount) ReDim marrTabText(intTabCount) ReDim marrTabURL(intTabCount) ReDim marrTabStyle(intTabCount) i = 0 For Each objItem in objElements ' Tab caption and URL values: intCaptionIDNav = "&H" & objItem.GetProperty("CaptionRID") strSourceName = "" strSourceName = objItem.GetProperty ("Source") If strSourceName = "" Then strSourceName = "svrapp" End If marrTabText(i) = objLocMgr.GetString(strSourceName, intCaptionIDNav, varReplacementStrings) marrTabURL(i) = objItem.GetProperty("URL") marrTextColor(i) = mstrInactiveTextColor marrTabColor(i) = mstrInactiveTabColor marrTabStyle(i) = "INACTIVETAB" i = i + 1 Next Set objElements = Nothing Set objItem = Nothing 'QUERY parms: mintTab = Request("Tab") ' mintTab Values: integer 0 to n If mintTab <> "" Then mintTab = CInt(mintTab) marrTextColor(mintTab) = mstrActiveTextColor marrTabColor(mintTab) = mstrActiveTabColor marrTabStyle(mintTab) = "ACTIVETAB" End If %> <% If IsIE Then %> <% End If %> <% 'TAB LOOP If intTabCount = 0 Then %> <% Else For i = 0 to intTabCount-1 %> <% Next End If%>

>
	----------			<% =marrTabText(i) %>	<% If marrTabColor(i) = mstrActiveTabColor Then %> <% Else %> <% End If %>
class="ACTIVETAB"><% If Not IsIE Then Response.Write " " %>