Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			           USED BY  				     |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
13 
%>
14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
19 
<!--#include file="common/common_dbedit.asp"-->
20 
<!--#include file="_tabs.asp"-->
21 
<!--#include file="common/_package_common.asp"-->
22 
<%
23 
'------------ ACCESS CONTROL ------------------
24 
%>
25 
<!--#include file="_access_control_general.asp"-->
26 
<%
27 
'------------ Variable Definition -------------
28 
Dim rsTemp, rsState
29 
Dim projId
30 
Dim	rsQry
31 
'------------ Constants Declaration -----------
32 
Const IMG_SVTREE = "<img src='images/i_vtree_small.gif' hspace='3' align='absmiddle' border='0'>"
33 
Const IMG_WORLD = "<img src='images/i_foldero_small.gif' hspace='3' align='absmiddle' border='0'>"
34 
Const IMG_GAP = "<img src='images/spacer.gif' width='20' height='1' border='0'>"
35 
Const IMG_POINTER = "<img src='images/i_pointer.gif' border='0'>"
36 
'------------ Variable Init -------------------
37 
'----------------------------------------------
38 
%>
39 
<%
40 
'-----------------------------------------------------------------------------------------------------------------------------
41 
Sub	SetUnignoreWarnings (strList)
42 
 
43 
	'Response.Write( pkgInfoHash.Item ("pkg_id"))
44 
 
45 
	OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
46 
	OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item ("pkg_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
47 
	OraDatabase.Parameters.Add "SELECTED",  strList, 		ORAPARM_INPUT, ORATYPE_VARCHAR2
48 
 
49 
	If pkgInfoHash.Item ("v_ext") <> "" Then
50 
		OraDatabase.Parameters.Add "V_EXT",   pkgInfoHash.Item ("v_ext"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
51 
	Else
52 
	 	OraDatabase.Parameters.Add "V_EXT",   NULL, 		ORAPARM_INPUT, ORATYPE_VARCHAR2
53 
	End If
54 
 
55 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UnIgnoreUsedByPackagesInThisRelease.sql"), cint(0))
56 
 
57 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
58 
		Call SetIgnoreWarnings(NULL, rsTemp("pv_id"))
59 
		rsTemp.MoveNext()
60 
	Wend
61 
 
62 
	Set rsTemp = Nothing
63 
	rsTemp.Close()
64 
 
65 
	OraDatabase.Parameters.Remove "RTAG_ID"
66 
	OraDatabase.Parameters.Remove "PKG_ID"
67 
	OraDatabase.Parameters.Remove "V_EXT"
68 
	OraDatabase.Parameters.Remove "SELECTED"
69 
 
70 
 
71 
 
72 
End Sub
73 
'---------------------------------------------------------------------------------------------------------------------
74 
Sub SetIgnoreWarnings (dpvId, pvId)
75 
 
76 
	OraDatabase.Parameters.Add "RTAG_ID", 			parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
77 
	OraDatabase.Parameters.Add "PV_ID", 			pvId,   ORAPARM_INPUT, ORATYPE_NUMBER
78 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
79 
	OraDatabase.Parameters.Add "IGNORE_ID_LIST", 	dpvId, ORAPARM_INPUT, ORATYPE_VARCHAR2
80 
 
81 
	OraSession.BeginTrans
82 
 
83 
	OraDatabase.ExecuteSQL _
84 
	"BEGIN "&_
85 
	" Ignore_Dependency_Warnings( :RTAG_ID, :PV_ID, :IGNORE_ID_LIST, FALSE, :USER_ID ); "&_
86 
	"END; "
87 
 
88 
  	OraSession.CommitTrans
89 
 
90 
	OraDatabase.Parameters.Remove "RTAG_ID"
91 
	OraDatabase.Parameters.Remove "PV_ID"
92 
	OraDatabase.Parameters.Remove "USER_ID"
93 
	OraDatabase.Parameters.Remove "IGNORE_ID_LIST"
94 
End Sub
95 
'-----------------------------------------------------------------------------------------------------------------------------
96 
If Request("action") <> "" Then
97 
%>
98 
<!--#include file="_access_control_login.asp"-->
99 
<!--#include file="_access_control_project.asp"-->
100 
<%
101 
	If ( parRtag_id <> "") AND (parPv_id <> "") Then
102 
		Dim posComma, txt, posUnderscore, dpvId, pvId, value, pvIdList, apvIdList, strList
103 
 
104 
		Set pvIdList = CreateObject("Scripting.Dictionary")
105 
		'On Error Resume Next
106 
		txt = Mid(Request("ignore_warnings"), 1, len(Request("ignore_warnings")))
107 
		posComma = InStr(txt, ",")
108 
 
109 
 
110 
		While posComma <> 0
111 
			'Response.Write(txt)
112 
			value = Mid(txt, 1, posComma-1)
113 
			posUnderscore = Instr(value, "_")
114 
			pvId = Mid(value, 1, posUnderscore - 1)
115 
			dpvId = Mid(value, posUnderscore + 1, posComma-1)
116 
 
117 
			Call SetIgnoreWarnings(dpvId, pvId)
118 
			pvIdList.Add CStr( pvId ), Empty
119 
			txt = Mid(txt, posComma + 1, Len(txt))
120 
			posComma = InStr(txt, ",")
121 
		Wend
122 
 
123 
		If posComma = 0 And Len(txt) > 0 Then
124 
			posUnderscore = Instr(txt, "_")
125 
			pvId = Mid(txt, 1, posUnderscore - 1)
126 
			dpvId = Mid(txt, posUnderscore + 1)
127 
			Call SetIgnoreWarnings(dpvId, pvId)
128 
			pvIdList.Add CStr( pvId ), Empty
129 
		End if
130 
 
131 
		apvIdList = pvIdList.Keys
132 
 
133 
		'strList = 0
134 
 
135 
		'For Each pvId In apvIdList
136 
		'	strList = strList&", "&pvId
137 
		'Next
138 
 
139 
 
140 
		'Call SetUnignoreWarnings (strList)
141 
		'Call Notify ( parRtag_id )
142 
 
143 
		Response.Redirect("used_by.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
144 
	Else
145 
		Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
146 
		Response.write QSTR_All
147 
	End If
148 
End If
149 
%>
150 
<html>
151 
<title><%=Title(Request("rtag_id"))%></title>
152 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
153 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
154 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
155 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
156 
<script language="JavaScript" src="images/common.js"></script>
157 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
158 
<script language="javascript">
159 
<!--
160 
function checkUncheckAll(theElement) {
161 
     var theForm = theElement.form, z = 0;
162 
	 for(z=0; z<theForm.length;z++){
163 
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
164 
	  theForm[z].checked = theElement.checked;
165 
	  }
166 
     }
167 
    }
168 
//-->
169 
</script>
170 
<!-- DROPDOWN MENUS -->
171 
<!--#include file="_menu_def.asp"-->
172 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
173 
<script language="JavaScript" type="text/javascript">
174 
<!--
175 
 
176 
function RequestUsedByThisProject( paramString, rowId ){
177 
	var requestURL = 'RequestUsedByThisProject.asp';
178 
 
179 
	// Show div
180 
	ToggleDisplay( 'PROJECT_'+ rowId, 'IMG_EXPAND_USED_BY_' + rowId, 'IMG_COLLAPSE_USED_BY_' + rowId );
181 
 
182 
	// Set ajax divname
183 
	ajaxdivname = 'PROJECT_'+ rowId;
184 
 
185 
	if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
186 
	{
187 
 
188 
		//Append the name to search for to the requestURL
189 
		var url = requestURL + paramString;
190 
 
191 
		//Create the xmlHttp object to use in the request
192 
		//stateChangeHandler will fire when the state has changed, i.e. data is received back
193 
		// This is non-blocking (asynchronous)
194 
		xmlHttp = GetXmlHttpObject(stateChangeHandler);
195 
 
196 
		//Send the xmlHttp get to the specified url
197 
		xmlHttp_Get(xmlHttp, url);
198 
 
199 
	}
200 
 
201 
 
202 
}
203 
 
204 
//-->
205 
</script>
206 
</head>
207 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
208 
<!-- MENU LAYERS -------------------------------------->
209 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
210 
  <!----------------------------------------------------->
211 
</div>
212 
<!-- HEADER -->
213 
<!--#include file="_header.asp"-->
214 
<!-- BODY ---->
215 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
216 
	<tr>
217 
		<td valign="top" width="1" background="images/bg_bage.gif">
218 
		<!-- LEFT -->
219 
		<!--#include file="_environment.asp"-->
220 
		</td>
221 
		<td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
222 
		<td valign="top" width="100%">
223 
		<!-- MIDDLE -->
224 
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
225 
		  <tr>
226 
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
227 
		    <td width="100%" background="images/bg_action_norm.gif"><!--#include file="_pkg_action_buttons.asp"--></td>
228 
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
229 
		  </tr>
230 
		  <!-- PACKAGE PROPERTIES ----------------------------  -->
231 
          <%Call RenderPackageProperties ()%>
232 
		  <tr>
233 
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
234 
		    <td valign="bottom" background="images/bg_lght_gray.gif">
235 
		      <table width="100" border="0" cellspacing="0" cellpadding="0">
236 
		        <tr>
237 
		          <td><IMG height=1 src="images/spacer.gif" width=50></td>
238 
		          <td>
239 
				  <!-- TABS ------------------------------------->
240 
				  <%Call Generate_Tab_Menu ( TABarray1, "Used by", "orange" )%>
241 
				  </td>
242 
		        </tr>
243 
		      </table>
244 
		    </td>
245 
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
246 
		  </tr>
247 
		  <tr>
248 
		    <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
249 
		    <td background="images/lbox_bg_orange.gif">
250 
			<!-- TAB ACTION BUTTONS ------------------------------------->
251 
			</td>
252 
		    <td background="images/lbox_bg_orange.gif">&nbsp;</td>
253 
		  </tr>
254 
		  <tr>
255 
		    <td></td>
256 
		    <td valign="top">
257 
			<!-- DETAILS ------------------------------------------------->
258 
<%
259 
'-- FROM START ---------------------------------------------------------------------------------------------------------
260 
objFormComponent.FormName = "FormName"
261 
objFormComponent.Action = ScriptName&"?pv_id="&Request("pv_id")&"&rtag_id="&parRtag_id
262 
Call objFormComponent.FormStart()
263 
%>
264 
					<%If Request("rtag_id") <> "" Then%>
265 
					<br>
266 
					<span class="body_sect">Used by Packages In This Release</span>			<br>
267 
                        <!-- USED BY ------------------------------------------------>
268 
                        <table width="100%" border="0" cellspacing="1" cellpadding="3">
269 
                          <tr>
270 
						  	<td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
271 
						    <td background="images/bg_form_lightbluedark.gif" nowrap width="1"></td>
272 
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Name</td>
273 
							<td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version</td>
274 
							<td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Location</td>
275 
							<td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"></td>
276 
							<td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version Used</td>
277 
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Last Modified</td>
278 
                          </tr>
279 
						  <%
280 
						  OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
281 
						  OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item ("pkg_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
282 
 
283 
						  If pkgInfoHash.Item ("v_ext") <> "" Then
284 
					  	  	OraDatabase.Parameters.Add "V_EXT",   pkgInfoHash.Item ("v_ext"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
285 
						  Else
286 
						  	OraDatabase.Parameters.Add "V_EXT",   NULL, 		ORAPARM_INPUT, ORATYPE_VARCHAR2
287 
						  End If
288 
 
289 
 
290 
						  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackagesInThisRelease.sql"), cint(0))
291 
 
292 
						  OraDatabase.Parameters.Remove "RTAG_ID"
293 
						  OraDatabase.Parameters.Remove "PKG_ID"
294 
						  OraDatabase.Parameters.Remove "V_EXT"
295 
 
296 
 
297 
						  %>
298 
						  <%If rsTemp.RecordCount < 1 Then%>
299 
						  <tr>
300 
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
301 
						    <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
302 
                            <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
303 
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
304 
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td><br>
305 
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
306 
                            <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
307 
                            <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
308 
                          </tr>
309 
						  <%End If%>
310 
			  			  <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
311 
                          <tr>
312 
						  <%
313 
						  Set rsState = OraDatabase.DbCreateDynaset( "select deprecated_state from release_content where rtag_id="&parRtag_id&" and pv_id="&rsTemp("pv_id"), cint(0))%>
314 
 
315 
						 <%If rsTemp("dpv_id") <> parPv_id And IsNull(rsTemp("ignore_warn")) Then%>
316 
							<td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>"></td>
317 
						 <%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%>
318 
							<td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" disabled></td>
319 
						 <%Else%>
320 
						 	<td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" checked></td>
321 
						 <%End If%>
322 
						  <%
323 
						  If rsState("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then
324 
						  %>
325 
						    <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsState("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
326 
						<%Else%>
327 
						    <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
328 
						<%End If%>
329 
                            <td background="images/bg_form_lightgray.gif" nowrap><a href="used_by.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_name")%></a></td>
330 
							<td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_version")%></td>
331 
							<td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap><%=GetEnvName(rsTemp("env_area"))%></td>
332 
							<td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%></td>
333 
							<td background="images/bg_form_lightgray.gif" <%If rsTemp("dpv_id") <> parPv_id Then%>class="err_alert"<%Else%>class="form_item"<%End If%>><%=pkgInfoHash.Item ("pkg_name") &" "& rsTemp("dpkg_version")%></td>
334 
                            <td background="images/bg_form_lightgray.gif" class="form_item"><a href="mailto:<%=rsTemp("user_email")%>" class="txt_linked"><%=enum_imgUser%><%=rsTemp("full_name")%></a>&nbsp;<%=EuroDate ( rsTemp("modified_stamp") )%></td>
335 
                          </tr>
336 
                          <%rsTemp.MoveNext
337 
						  rsTemp.Close()
338 
						  rsState.Close()
339 
 
340 
						  Set rsState = nothing
341 
						  WEnd
342 
						  Set rsTemp = nothing
343 
							%>
344 
                        </table>
345 
						<input name="btn" type="submit" class="form_btn" value="Apply"><br>
346 
						<SPAN class="rep_small">NOTE: Click on Apply "To Ignore Warnings" On Packages Used By</SPAN><br>
347 
						<SPAN class="rep_small">NOTE: Versions in <SPAN class="err_alert">RED</SPAN> are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%></span>
348 
						<br><br>
349 
						<input type="hidden" name="action" value="true">
350 
					<%End If%>
351 
<%
352 
Call objFormComponent.FormEnd()
353 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
354 
%>
355 
                       <!------------------------------------------------------------>
356 
                       <br>
357 
                       <span class="body_sect">Used by Projects</span>
358 
					   <table width="100%"  border="0" cellspacing="1" cellpadding="4">
359 
					     <tr>
360 
						   <td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
361 
                           <td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Project</td>
362 
                         </tr>
363 
					    <%
364 
						  Dim currWorld, bgColor, linkSync
365 
						  currWorld = -1
366 
 
367 
						  OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
368 
						  OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item ("pkg_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
369 
 
370 
						  If pkgInfoHash.Item ("v_ext") <> "" Then
371 
					  	  	OraDatabase.Parameters.Add "V_EXT",   pkgInfoHash.Item ("v_ext"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
372 
						  Else
373 
						  	OraDatabase.Parameters.Add "V_EXT",   NULL, 		ORAPARM_INPUT, ORATYPE_VARCHAR2
374 
						  End If
375 
 
376 
 
377 
						  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByProjects.sql"), cint(0) )
378 
 
379 
						  OraDatabase.Parameters.Remove "RTAG_ID"
380 
						  OraDatabase.Parameters.Remove "PKG_ID"
381 
						  OraDatabase.Parameters.Remove "V_EXT"
382 
 
383 
						  %>
384 
						 <%If rsTemp.RecordCount < 1 Then%>
385 
						 <tr>
386 
						   <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
387 
						   <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
388 
                         </tr>
389 
						  <%End If%>
390 
						  <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
391 
						  	projId = rsTemp("proj_id")
392 
						  %>
393 
						  <tr>
394 
						   <td background="images/bg_form_lightgray.gif" class="form_item"></td>
395 
						   <td nowrap background="images/bg_form_lightgray.gif" class="form_item">
396 
						     <SPAN id="IMG_EXPAND_USED_BY_<%=projId%>" name="IMG_EXPAND_USED_BY_<%=projId%>" style="display:block;"><a href="javascript:;" class="txt_linked" onClick="RequestUsedByThisProject('?pv_id=<%=pkgInfoHash.Item("pv_id")%>&proj_id=<%=projId%>', '<%=projId%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("proj_name") &" ("& rsTemp("used_count") &")"%></a></SPAN>
397 
							 <SPAN id="IMG_COLLAPSE_USED_BY_<%=projId%>" name="IMG_COLLAPSE_USED_BY_<%=projId%>" style="display:none;"><a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'PROJECT_<%=projId%>', 'IMG_EXPAND_USED_BY_<%=projId%>', 'IMG_COLLAPSE_USED_BY_<%=projId%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("proj_name") &" ("& rsTemp("used_count") &")"%></a></SPAN>
398 
 
399 
							 <DIV id="PROJECT_<%=projId%>" name="PROJECT_<%=projId%>" style="display:none;"><%=enumLOADING%></DIV>
400 
						   </td>
401 
						  </tr>
402 
 
403 
 
404 
						 <%rsTemp.MoveNext
405 
						  WEnd
406 
						  rsTemp.Close
407 
						  Set rsTemp = nothing%>
408 
 
409 
                       </table><br>
410 
					   <SPAN class="rep_small">NOTE: Versions in <SPAN class="err_alert">RED</SPAN> are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%></span>
411 
					   <br>
412 
			<!-- END DETAILS ------------------------------------------------->			</td>
413 
		    <td>&nbsp;</td>
414 
		  </tr>
415 
		</table>
416 
		<!-- END MIDDLE -------->
417 
		</td>
418 
	</tr>
419 
</table>
420 
<!-- FOOTER -->
421 
<!--#include file="_footer.asp"-->
422 
</body>
423 
</html>
424 
<%
425 
Call Destroy_All_Objects
426 
%>