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

<% OraDatabase.Parameters.Add "OS_ID", dbPARos_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProjectList.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <% rsQry.MoveNext WEnd rsQry.Close() Set rsQry = Nothing %> <%=rsQry("proj_name").Value%>		<% '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 '---------------------------------------------- %>