<%@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 parPvId Dim parMode '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPvId = Request("pv_id") parMode = Request ("mode") '---------------------------------------------- %> <% OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", parPvId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "MATCH", parMode, ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByThisProject.sql"), cint(0)) OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "MATCH" %> <%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")%>	<%=emailField(enum_imgUser & rsTemp("full_name"), rsTemp("user_email"))%> <%=DisplayDate ( rsTemp("modified_stamp") )%>

<% Call Destroy_All_Objects %>