<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| RequestUsedByThisProject.asp | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ Variable Definition ------------- Dim rsTemp Dim PageInfoHash '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set PageInfoHash = CreateObject("Scripting.Dictionary") '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------ Sub GetPageHash ( outHash ) Dim rsQry, query OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER query = _ " SELECT PV_ID, PKG_ID, V_EXT FROM PACKAGE_VERSIONS WHERE PV_ID = :PV_ID" Set rsQry = OraDatabase.DbCreateDynaset( query, cint(0)) OraDatabase.Parameters.Remove "RTAG_ID" If rsQry.RecordCount > 0 Then outHash.Item ("pv_id") = rsQry("pv_id") outHash.Item ("pkg_id") = rsQry("pkg_id") outHash.Item ("v_ext") = rsQry("v_ext") End If End Sub '------------------------------------------------------------------------------------------------------------------------ %> <% '------------------------ MAIN LINE --------------------------------- Call GetPageHash ( PageInfoHash ) '-------------------------------------------------------------------- %>

<% OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", PageInfoHash.Item ("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER If PageInfoHash.Item ("v_ext") <> "" Then OraDatabase.Parameters.Add "V_EXT", PageInfoHash.Item ("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2 Else OraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2 End If Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByThisProject.sql"), cint(0)) OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "V_EXT" %> <%If rsTemp.RecordCount < 1 Then%> <%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing%> Release Location Version Used Last Modified         &rtag_id=<%=rsTemp("rtag_id")%>" class="txt_linked"><%=ReleaseIcon( rsTemp("official") )%> <%=rsTemp("rtag_name")%> <%=GetEnvName(rsTemp("env_area")) %> Request("pv_id") Then%>class="err_alert"<%Else%>class="form_item"<%End If%>><%=rsTemp.Item ("pkg_name") &" "& rsTemp("pkg_version")%> " class="txt_linked"><%=enum_imgUser%><%=rsTemp("full_name")%> <%=EuroDate ( rsTemp("modified_stamp") )%>

<% Call Destroy_All_Objects %>