<% '=================================================================== ' Personal Bar '=================================================================== %> <% '------------ VARIABLE DEFINITION ------------- Dim SnippetTemplate '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- SnippetTemplate = ReadFile ( APP_ROOT &"/scripts/snippet_style.html") '---------------------------------------------- %> <% '--------------------------------------------------------------------------------------------------------------------------------- Sub snipRecentlyReleasedProducts ( nBom_id ) Dim rsQry, query, snipBody, fullSnippet, rm_projects_fk, rm_vtree_fk snipBody = "" fullSnippet = SnippetTemplate '--- Get some parameters --- query = _ " SELECT proj.RM_PROJECTS_FK,"&_ " br.RM_VTREE_FK"&_ " FROM DM_PROJECTS proj,"&_ " BRANCHES br,"&_ " BOMS bo"&_ " WHERE br.PROJ_ID = proj.PROJ_ID"&_ " AND bo.BRANCH_ID = br.BRANCH_ID"&_ " AND bo.BOM_ID = :BOM_ID" OraDatabase.Parameters.Add "BOM_ID", nBom_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then rm_projects_fk = rsQry("rm_projects_fk") rm_vtree_fk = rsQry("rm_vtree_fk") End If '--- Get Recently Released Products --- If IsNull(rm_projects_fk) OR IsNull(rm_projects_fk) Then Exit Sub OraDatabase.Parameters.Add "RM_PROJECTS_FK", rm_projects_fk, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "RM_VTREE_FK", rm_vtree_fk, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "RM_PRODUCTS_BASE_VIEW", enumPRODUCTS_BASE_VIEW_ID, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "DAYS_BACK_IN_TIME", enumRELEASES_DAYS_BACK_IN_TIME, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("LatestRecentlyReleasedProducts.sql"), ORADYN_DEFAULT ) snipBody = snipBody &"" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) snipBody = snipBody &"" snipBody = snipBody &"" snipBody = snipBody &"" rsQry.MoveNext WEnd snipBody = snipBody &"

"& rsQry("pkg_name") &" "& rsQry("pkg_version") &"

" OraDatabase.Parameters.Remove "RM_PROJECTS_FK" OraDatabase.Parameters.Remove "RM_VTREE_FK" OraDatabase.Parameters.Remove "RM_PRODUCTS_BASE_VIEW" OraDatabase.Parameters.Remove "DAYS_BACK_IN_TIME" OraDatabase.Parameters.Remove "BOM_ID" rsQry.Close() Set rsQry = Nothing '--- Render Snippet --- fullSnippet = Replace( fullSnippet, "%SNIPPET_TITLE%", "Recently Released Products" ) fullSnippet = Replace( fullSnippet, "%SNIPPET_BODY%", snipBody ) Response.write fullSnippet End Sub '--------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE CONTROL RENDER ------- '---------------------------------------------- %> <%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%>

<%=GetNodeImage ( dbPARnode_id )%>

<% Call snipRecentlyReleasedProducts ( dbPARbom_id ) %>

<%End If%> <% '------------ RUN AFTER CONTROL RENDER -------- '---------------------------------------------- %>