<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| AdminDefault | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim LastZone Dim i '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '---------------------------------------------- %>

<% LastZone = UBound(aAdminZones) For i = 0 To LastZone Step 2 %> <% Next %> <%=aAdminZones(i)%>		<% 'Set objTabControl = New TabControl 'objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition 'objTabControl.TabStyle = "StyleWinXP" 'objTabControl.AddTabDefnition ( arrBomTabDef ) 'objTabControl.Render () %>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objPMod = Nothing Set objCrumbs = Nothing Set objTabControl = Nothing '---------------------------------------------- %>