Subversion Repositories DevTools

<%@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

%>

<!--#include file="common/conf.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/formating.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/common_subs.asp"-->

<%

'------------ 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 ---------------------------------

'--------------------------------------------------------------------

%>

  <table width="100%"  border="0" cellspacing="1" cellpadding="4">

     <tr>

        <td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>

        <td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Package</td>

     </tr>

     <%

     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%>

        <tr>

           <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>

           <td background="images/bg_form_lightgray.gif" nowrap class="form_item">None Found</td>

        </tr>

     <%End If%>

     <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))

        pkgId = rsTemp("pkg_id")

        divId = "PKGID_" & parMode & "_" & pkgId

        %>

        <tr>

           <td background="images/bg_form_lightgray.gif" class="form_item"></td>

           <td nowrap background="images/bg_form_lightgray.gif" class="form_item">

              <a href="javascript:;" class="txt_linked" onClick="ToggleLoadControl('<%=divId%>','UsedByPackageDetail.asp?pv_id=<%=parPv_id%>&pkg_id=<%=pkgId%>&mode=<%=parMode%>');">

                    <img id=IMG_<%=divId%> src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">

                    <%= rsTemp("pkg_name") &" ("& rsTemp("count") &")"%>

              </a>

              <DIV class="form_item" id="<%=divId%>" style="display:none;"><%=enumLOADING%></DIV>

           </td>

        </tr>

        <%rsTemp.MoveNext

     WEnd

     rsTemp.Close

     Set rsTemp = nothing%>

  </table><br>

<%

Call Destroy_All_Objects

%>