<%@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 pkgId Dim parMode '------------ Constants Declaration ----------- '------------ Variable Init ------------------- pkgId = Request ("pkg_id") parMode = Request ("mode") '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------ %> <% '------------------------ MAIN LINE --------------------------------- '-------------------------------------------------------------------- %> <% OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", pkgId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "MATCH", parMode, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackageDetail.sql"), cint(0)) OraDatabase.Parameters.Remove "MATCH" OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "PKG_ID" %> <%If rsTemp.RecordCount < 1 Then%> <%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing%>

Package and Version	Version Used		Last Modified
<%If rsTemp("dlocked") = "Y" Then%><%=imgPkgLocked%><%Else%><%=imgPkgLockSpacer%><%End If%> <%=rsTemp("pkg_name")%> " class="txt_linked"><%=rsTemp("pkg_version")%>	" class="txt_linked <%=iif(rsTemp("MATCH") <> 1,"err_alert","")%>"> <%=rsTemp("used_version")%>		<%=enum_imgUser%><%=emailField(rsTemp("full_name"), rsTemp("user_email"))%> <%=DisplayDate ( rsTemp("modified_stamp") )%>

<% Call Destroy_All_Objects %>