<%@ Language=VBScript %> <% Option Explicit %> <% ' ================================================ ' Default tabs Page ' ' (c) 2000 Microsoft Corporation. All rights reserved. ' ================================================ Dim L_TASKSLBL_TEXT Dim L_PAGETITLE_TEXT Dim L_NOTASKS_MESSAGE Dim mstrPageName Dim mintPageIndex Dim mobjElements Dim mobjTab Dim mstrContainer Dim mstrTabContainer Dim mstrGraphic Dim mstrHeaderLabel Dim mstrSource Dim mintPos Class Test Dim intType Public Property Set Hype(inputVal) End Property 'Public Property Let Type(intType) ' intType = intType 'End Property Private Sub Test_Initialize() intType = 1 End Sub End Class Dim objTest Set objTest = new Test 'HandleServerError On Error Resume Next L_PAGETITLE_TEXT = "Windows for Express Networks" L_TASKSLBL_TEXT = "tasks" L_NOTASKS_MESSAGE = "No tasks available" mstrTabContainer = "TABS" 'Get query parms mstrPageName = Trim(Request("PN")) mintPageIndex = CInt(Request("PI")) 'response.write "mintPageIndex: " & mintPageIndex mintPos = 0 Set mobjElements = GetElements(mstrTabContainer) For Each mobjTab in mobjElements If mintPageIndex = mintPos Then mstrContainer = mobjTab.GetProperty("ElementID") mstrGraphic = mobjTab.GetProperty("ElementGraphic") mstrSource = "" mstrSource = mobjTab.GetProperty("Source") mstrHeaderLabel = GetLocString(mstrSource, mobjTab.GetProperty("CaptionRID"), "") Exit For End If mintPos = mintPos + 1 Next Set mobjElements = Nothing 'response.write "mintPageIndex: " & mintPageIndex %> <% ServePageWaterMark mstrGraphic ServeTabBar mstrTabContainer Response.Write "
" ServeStandardLabelBar(mstrHeaderLabel) ServeElementBlock mstrContainer, L_NOTASKS_MESSAGE, True, True, False response.write "
Backup and restore files

" response.write "Setup disks" Response.Write "" Response.End Function ServeTabBar(TabContainer) '================================== 'Tab bar page - Chameleon Server Appliance ' ' ' (c) 1999 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 Dim strSource Dim L_HELPTOOLTIP_TEXT Dim L_HELP_TEXT Dim L_HELPLABEL_TEXT 'HandleServerError On Error Resume Next Response.Buffer = True L_HELPTOOLTIP_TEXT = "Displays Help menu." L_HELP_TEXT = "?" L_HELPLABEL_TEXT = "Windows for Express Networks Help" ' Constant color values mstrActiveTabColor = "#CCCCFF" mstrInactiveTabColor = "#7B7B7B" mstrActiveTextColor = "#000000" mstrInactiveTextColor = "#CCCC99" 'response.write "TabContainer: " & TabContainer Set objElements = GetElements(TabContainer) 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 strSource = "" strSource = objItem.GetProperty("Source") marrTabText(i) = GetLocString(strSource, objItem.GetProperty("CaptionRID"), "") marrTabURL(i) = GetScriptFileName & "?PI=" & i 'objItem.GetProperty("URL") marrTextColor(i) = mstrInactiveTextColor marrTabColor(i) = mstrInactiveTabColor marrTabStyle(i) = "INACTIVETAB" i = i + 1 Next Set objElements = Nothing Set objItem = Nothing mintTab = mintPageIndex 'carried down from main routine mintTab = CInt(mintTab) marrTextColor(mintTab) = mstrActiveTextColor marrTabColor(mintTab) = mstrActiveTabColor marrTabStyle(mintTab) = "ACTIVETAB" %> <% 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 " " %>

<% End Function %>