<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' UsedByPackageSummary.asp ' Show the body of the used by packages summary display ' This is invoked via AJAX '===================================================== %> <% 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 parPv_id Dim parMode Dim divId '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = Request ("pv_id") parMode = Request ("mode") '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------ %> <% '------------------------ MAIN LINE --------------------------------- '-------------------------------------------------------------------- %> <% OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "MATCH", parMode, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackageSummary.sql"), cint(0) ) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "MATCH" %> <%If rsTemp.RecordCount < 1 Then%> <%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) pkgId = rsTemp("pkg_id") divId = "PKGID_" & parMode & "_" & pkgId %> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing%>
Package
  None Found
src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"> <%= rsTemp("pkg_name") &" ("& rsTemp("count") &")"%>

<% Call Destroy_All_Objects %>