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

<%Call RenderTitle( objProdCollector )%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleWinXP" objTabControl.AddTabDefnition ( arrProdTabDef ) objTabControl.SelectByName("Package History") objTabControl.Render () %>       <%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%> "&_ " "&_ " "&_ " "&_ "" %> <%Call objRepeater.Navigator ( TRUE, TRUE )%> <% OraDatabase.Parameters.Add "PROD_ID", Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("PkgHistory.sql") , ORADYN_DEFAULT ) 'Pass record set to Repeater objRepeater.RecordSet = rsQry 'Define Table Row with bound variables objRepeater.Row = _ " ""& <#DATE_TIME_STAMP#> &"" ""& <#TRAIL_ACTION#> &"" "&_ " ""& <#FULL_NAME#> &"" <%objRepeater.RenderDataGrid ()%> Date Action User <% OraDatabase.Parameters.Remove "PROD_ID" rsQry.Close() Set rsQry = Nothing %> <%Call objRepeater.Navigator ( FALSE, TRUE )%>

<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%> <%End If%>