<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| RequestProductLocation | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim IsProductInNewBom Dim bgColor Dim QueryName Dim parBomId Dim rsPkg, pkgName, pkgVersion, pkgId Dim rsProj, projName, branchName, projId Dim rsOS, OSName Dim objZIPObject '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parBomId = Request("bom_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- If (Request("change_type") = "R") Then QueryName = "BomRemovedProductLocation.sql" IsProductInNewBom = FALSE ElseIf (Request("change_type") = "U") Then QueryName = "BomUpdatedProductLocation.sql" IsProductInNewBom = FALSE Else QueryName = "BomAddedProductLocation.sql" IsProductInNewBom = TRUE End If Call GetProjDetails ( parBomId, objFormCollector ) '---------------------------------------------- %> <% OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMPARE_BOM_ID", Request("compare_bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PROD_ID", Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_NAME", Request("pkg_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ( QueryName ), ORADYN_DEFAULT ) bgColor = NULL If rsQry.RecordCount < 1 Then %> <% End If While (NOT rsQry.BOF) AND (NOT rsQry.EOF) If IsNull( bgColor ) Then bgColor = "bgcolor='#F5F5F5'" Else bgColor = NULL End If If Request("bom_id") <> "" AND Request("prod_id") <> "" Then Set rsPkg = OraDatabase.DbCreateDynaset( "select * from package_versions pv, packages pkg where pv.pv_id = "&Request("prod_id")&" and pkg.pkg_id = pv.pkg_id", cint(0)) pkgName = rsPkg("pkg_name") pkgVersion = rsPkg("pkg_version") pkgId = rsPkg("pkg_id") rsPkg.Close() Set rsPkg = nothing Set rsProj = OraDatabase.DbCreateDynaset( "select br.branch_name, prj.proj_name, prj.proj_id from boms bm, branches br, dm_projects prj where bm.bom_id = "&Request("bom_id")&" and br.BRANCH_ID = bm.BRANCH_ID and prj.PROJ_ID = br.PROJ_ID", cint(0)) projName = rsProj("proj_name") branchName = rsProj("branch_name") projId = rsProj("proj_id") rsProj.Close() Set rsProj = nothing Set rsOS = OraDatabase.DbCreateDynaset( "select bt.bos_type from os_base_env obe, base_env be, bos_types bt where obe.OS_ID = "&rsQry("os_id")&" and be.BASE_ENV_ID = obe.BASE_ENV_ID and bt.BOS_ID = be.BOS_ID", cint(0)) OSName = rsOS("bos_type") If OSName = "Windows" OR OSName = "MOS" Then OSName = "win32" Else OSName = "sparc" End If rsOS.Close() Set rsOS = nothing Dim sSourcePath, sDestPath, sSourcePathTest sSourcePath = "F:\"&projName&"\"&branchName&"\"&pkgName&"\"&OSName&"\"&pkgVersion&"\*.*" sSourcePathTest = "http://auperaunx26/releases/"&projName&"/"&branchName&"/"&pkgName&"/"&OSName&"/"&pkgVersion&"/" sDestPath = ""& Request.ServerVariables("APPL_PHYSICAL_PATH") &"deployment_manager\zipdownloads\" Dim oFileSys Set oFileSys = CreateObject("Scripting.FileSystemObject") 'Response.Write(sSourcePath) End If %> <% rsQry.MoveNext WEnd OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "PROD_ID" OraDatabase.Parameters.Remove "COMPARE_BOM_ID" OraDatabase.Parameters.Remove "PKG_NAME" rsQry.Close Set rsQry = Nothing %>

nowrap valign="top" class="body_row" colspan="2">Product not found.

nowrap valign="top" class="body_row" colspan="2">     <%If IsProductInNewBom Then%> " align="absmiddle" border="0">&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("node_name")%>  / &bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %>  / &prod_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%> <%If NOT IsNull(objFormCollector.Item("is_download")) Then%>   Download Version: <%=Request("new_version") %>   <%End If%> <%Else%> " align="absmiddle" border="0">&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("node_name")%>  / &bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %> /  <%If NOT IsNull(objFormCollector.Item("is_download")) Then%>   Download Version: <%=Request("new_version") %>   <%End If%> <%End If%>

<% '------------ RUN AFTER PAGE RENDER ----------- '---------------------------------------------- %>