Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'   RequestUsedByThisSnapshot.asp
'
'
'=====================================================
%>
<%
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 parPvId
Dim parMode
Dim divId, rtag_id, rtag_name, rtag_count
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parPvId = Request("pv_id")
parMode = Request ("mode")
'----------------------------------------------
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3" class="stdGrey">
    <thead>
      <tr>
             <tr>
                <th width="100%">Parent Release</th>
             </tr>
      </tr>
    </thead>
<%
  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("UsedByThisSnapshot.sql"), cint(0))
  
  OraDatabase.Parameters.Remove "PROJ_ID"
  OraDatabase.Parameters.Remove "PV_ID"
  OraDatabase.Parameters.Remove "MATCH"
  %>
    <%If rsTemp.RecordCount < 1 Then%>
    <tr>
       <td>None Found</td>
    </tr>
    <%End If%>
    <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
    rtag_id = rsTemp("rtag_id")
    rtag_name = rsTemp("rtag_name")
    rtag_count = rsTemp("used_count")
    divId = "RTAGP_ID_" & parMode & "_" & rtag_id
    %>
    <tr>
       <td nowrap>
          <span class="txt_linked pointer" onClick="ToggleLoadControl('<%=divId%>','RequestUsedByThisSnapshotDetail.asp?pv_id=<%=parPvId%>&rtag_id=<%=rtag_id%>&mode=<%=parMode%>');">
                <img id=IMG_<%=divId%> src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
                <%= rtag_name &" ("& rtag_count &")"%>
           </span>
          <DIV id="<%=divId%>" style="display:none;"><%=enumLOADING%></DIV>
       </td>
    </tr>

    <%rsTemp.MoveNext
    WEnd
    rsTemp.Close
    Set rsTemp = nothing%>
</table>
<%
Call Destroy_All_Objects
%>