| Line 23... |
Line 23... |
| 23 |
<!--#include file="common/common_subs.asp"-->
|
23 |
<!--#include file="common/common_subs.asp"-->
|
| 24 |
<%
|
24 |
<%
|
| 25 |
'------------ Variable Definition -------------
|
25 |
'------------ Variable Definition -------------
|
| 26 |
Dim rsTemp
|
26 |
Dim rsTemp
|
| 27 |
Dim pkgId
|
27 |
Dim pkgId
|
| 28 |
Dim parPkg_id
|
- |
|
| 29 |
Dim parVext
|
- |
|
| 30 |
Dim parPvId
|
28 |
Dim parPvId
|
| 31 |
Dim projId, projName, projCount
|
29 |
Dim projId, projName, projCount
|
| 32 |
Dim parExactMatch
|
30 |
Dim parMode
|
| 33 |
Dim matchPVID
|
- |
|
| 34 |
Dim divId
|
31 |
Dim divId
|
| 35 |
'------------ Constants Declaration -----------
|
32 |
'------------ Constants Declaration -----------
|
| 36 |
'------------ Variable Init -------------------
|
33 |
'------------ Variable Init -------------------
|
| 37 |
parPvId = Request("pv_id")
|
34 |
parPvId = Request("pv_id")
|
| 38 |
parPkg_id = Request ("pkg_id")
|
- |
|
| 39 |
parVext = Request ("v_ext")
|
- |
|
| 40 |
matchPVID = -1
|
- |
|
| 41 |
parExactMatch = Request ("mode")
|
35 |
parMode = Request("mode")
|
| 42 |
If (parExactMatch = 1 ) Then
|
- |
|
| 43 |
matchPVID = parPvId
|
- |
|
| 44 |
End If
|
- |
|
| 45 |
'----------------------------------------------
|
36 |
'----------------------------------------------
|
| 46 |
%>
|
37 |
%>
|
| 47 |
<%
|
38 |
<%
|
| 48 |
'------------------------------------------------------------------------------------------------------------------------
|
39 |
'------------------------------------------------------------------------------------------------------------------------
|
| 49 |
%>
|
40 |
%>
|
| 50 |
<%
|
41 |
<%
|
| 51 |
'------------------------ MAIN LINE ---------------------------------
|
42 |
'------------------------ MAIN LINE ---------------------------------
|
| 52 |
'--------------------------------------------------------------------
|
43 |
'--------------------------------------------------------------------
|
| 53 |
%>
|
44 |
%>
|
| 54 |
|
- |
|
| 55 |
<table width="100%" border="0" cellspacing="1" cellpadding="4">
|
45 |
<table width="100%" border="0" cellspacing="1" cellpadding="4">
|
| 56 |
<tr>
|
46 |
<tr>
|
| 57 |
<td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
|
47 |
<td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
|
| 58 |
<td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Project</td>
|
48 |
<td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Project</td>
|
| 59 |
</tr>
|
49 |
</tr>
|
| 60 |
<%
|
50 |
<%
|
| 61 |
OraDatabase.Parameters.Add "PKG_ID", parPkg_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
51 |
OraDatabase.Parameters.Add "MATCH", parMode, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 62 |
OraDatabase.Parameters.Add "V_EXT", EmptyToNull(parVext), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
- |
|
| 63 |
OraDatabase.Parameters.Add "PV_ID", matchPVID, ORAPARM_INPUT, ORATYPE_NUMBER
|
52 |
OraDatabase.Parameters.Add "PV_ID", parPvId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 64 |
|
53 |
|
| 65 |
Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByProjects.sql"), cint(0) )
|
54 |
Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByProjects.sql"), cint(0) )
|
| 66 |
|
55 |
|
| 67 |
OraDatabase.Parameters.Remove "PKG_ID"
|
- |
|
| 68 |
OraDatabase.Parameters.Remove "V_EXT"
|
56 |
OraDatabase.Parameters.Remove "MATCH"
|
| 69 |
OraDatabase.Parameters.Remove "PV_ID"
|
57 |
OraDatabase.Parameters.Remove "PV_ID"
|
| 70 |
%>
|
58 |
%>
|
| 71 |
<%If rsTemp.RecordCount < 1 Then%>
|
59 |
<%If rsTemp.RecordCount < 1 Then%>
|
| 72 |
<tr>
|
60 |
<tr>
|
| 73 |
<td background="images/bg_form_lightgray.gif" nowrap class="form_item"> </td>
|
61 |
<td background="images/bg_form_lightgray.gif" nowrap class="form_item"> </td>
|
| Line 76... |
Line 64... |
| 76 |
<%End If%>
|
64 |
<%End If%>
|
| 77 |
<%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
|
65 |
<%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
|
| 78 |
projId = rsTemp("proj_id")
|
66 |
projId = rsTemp("proj_id")
|
| 79 |
projName = rsTemp("proj_name")
|
67 |
projName = rsTemp("proj_name")
|
| 80 |
projCount = rsTemp("used_count")
|
68 |
projCount = rsTemp("used_count")
|
| 81 |
divId = "PROJID_" & projId & parExactMatch
|
69 |
divId = "PROJID_" & parMode & "_" & projId
|
| 82 |
%>
|
70 |
%>
|
| 83 |
<tr>
|
71 |
<tr>
|
| 84 |
<td background="images/bg_form_lightgray.gif" class="form_item"></td>
|
72 |
<td background="images/bg_form_lightgray.gif" class="form_item"></td>
|
| 85 |
<td nowrap background="images/bg_form_lightgray.gif" class="form_item">
|
73 |
<td nowrap background="images/bg_form_lightgray.gif" class="form_item">
|
| 86 |
<a href="javascript:;" class="txt_linked" onClick="ToggleUsedByControl('<%=divId%>','RequestUsedByThisProject.asp?pv_id=<%=parPvId%>&proj_id=<%=projId%>&mode=<%=parExactMatch%>');">
|
74 |
<a href="javascript:;" class="txt_linked" onClick="ToggleUsedByControl('<%=divId%>','RequestUsedByThisProject.asp?pv_id=<%=parPvId%>&proj_id=<%=projId%>&mode=<%=parMode%>');">
|
| 87 |
<img id=IMG_<%=divId%> src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
|
75 |
<img id=IMG_<%=divId%> src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
|
| 88 |
<%= projName &" ("& projCount &")"%>
|
76 |
<%= projName &" ("& projCount &")"%>
|
| 89 |
</a>
|
77 |
</a>
|
| 90 |
<DIV class="form_item" id="<%=divId%>" style="display:none;"><%=enumLOADING%></DIV>
|
78 |
<DIV class="form_item" id="<%=divId%>" style="display:none;"><%=enumLOADING%></DIV>
|
| 91 |
</td>
|
79 |
</td>
|