Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

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

' Essential to get UTF through all the hoops. ie: VÄSTTRAFIK (VTK)

Response.ContentType = "text/html"

Response.AddHeader "Content-Type", "text/html;charset=UTF-8"

Response.CodePage = 65001

Response.CharSet = "UTF-8"

%>

<!--#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 parPvId

Dim projId, projName, projCount

Dim parMode

Dim divId

'------------ Constants Declaration -----------

'------------ Variable Init -------------------

parPvId = Request("pv_id")

parMode = Request("mode")

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

%>

<%

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

%>

<%

'------------------------ MAIN LINE ---------------------------------

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

%>

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

          <thead>

             <tr>

                <th width="1%"></th>

                <th width="100%">Project</th>

             </tr>

          </thead>

         <%

         OraDatabase.Parameters.Add "MATCH",  parMode, ORAPARM_INPUT, ORATYPE_NUMBER

         OraDatabase.Parameters.Add "PV_ID",   parPvId, ORAPARM_INPUT, ORATYPE_NUMBER

         Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByProjects.sql"), cint(0) )

         OraDatabase.Parameters.Remove "MATCH"

         OraDatabase.Parameters.Remove "PV_ID"

         %>

         <%If rsTemp.RecordCount < 1 Then%>

            <tr>

               <td>&nbsp;</td>

               <td>None Found</td>

            </tr>

         <%End If%>

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

            projId = rsTemp("proj_id")

            projName = rsTemp("proj_name")

            projCount = rsTemp("used_count")

            divId = "PROJID_" & parMode & "_" & projId

            %>

            <tr>

               <td></td>

               <td nowrap>

                  <span class="txt_linked pointer" onClick="ToggleLoadControl('<%=divId%>','RequestUsedByThisProject.asp?pv_id=<%=parPvId%>&proj_id=<%=projId%>&mode=<%=parMode%>');">

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

                        <%= projName &" ("& projCount &")"%>

                   </span>

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

               </td>

            </tr>

            <%rsTemp.MoveNext

         WEnd

         rsTemp.Close

         Set rsTemp = nothing%>

      </table><br>

<%

Call Destroy_All_Objects

%>