Subversion Repositories DevTools

Rev

Rev 4556 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4556 Rev 5356
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          Product Issues 			 	 |
 5 
'|			          Product Issues 			 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_product_common.asp"-->
 16 
<!--#include file="common/_product_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
24 
Dim errNumber
 24 
Dim errNumber
25 
Dim objIssueCollector
 25 
Dim objIssueCollector
26 
Dim altRowColor
 26 
Dim altRowColor
27 
Dim currRowColor
 27 
Dim currRowColor
28 
Dim outORDER_BY
 28 
Dim outORDER_BY
29 
Dim parFilter_on
 29 
Dim parFilter_on
30 
Dim parBase_env_id
 30 
Dim parBase_env_id
31 
Dim objFormCollector
 31 
Dim objFormCollector
32 
Dim a, b, VersionList, sqlstrA
 32 
Dim a, b, VersionList, sqlstrA
33 
'------------ CONSTANTS DECLARATION -----------
 33 
'------------ CONSTANTS DECLARATION -----------
34 
Const LIMG_FIXED = "<img src='icons/i_tick.gif' border='0' hspace='2' title='Latest Fixed Issue'>"
 34 
Const LIMG_FIXED = "<img src='icons/i_tick.gif' border='0' hspace='2' title='Latest Fixed Issue'>"
35 
Const LIMG_OLD_FIXED = "<img src='icons/i_tick_gray.gif' border='0' hspace='2' title='Old Fixed Issue'>"
 35 
Const LIMG_OLD_FIXED = "<img src='icons/i_tick_gray.gif' border='0' hspace='2' title='Old Fixed Issue'>"
36 
'------------ VARIABLE INIT -------------------
 36 
'------------ VARIABLE INIT -------------------
37 
errNumber = 0
 37 
errNumber = 0
38 
Set objIssueCollector = CreateObject("Scripting.Dictionary")
 38 
Set objIssueCollector = CreateObject("Scripting.Dictionary")
39 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 39 
Set objFormCollector = CreateObject("Scripting.Dictionary")
40 
parProd_id = Request("prod_id_list")
 40 
parProd_id = Request("prod_id_list")
41 
parOs_id = Request("os_id")
 41 
parOs_id = Request("os_id")
42 
parBom_id = Request("bom_id")
 42 
parBom_id = Request("bom_id")
43 
parFilter_on = Request("filter_on")
 43 
parFilter_on = Request("filter_on")
44 
parBase_env_id = Request("base_env_id")
 44 
parBase_env_id = Request("base_env_id")
45 
'------------ CONDITIONS ----------------------
 45 
'------------ CONDITIONS ----------------------
46 
'----------------------------------------------
 46 
'----------------------------------------------
47 
%>
 47 
%>
48 
<%
 48 
<%
49 
'--------------------------------------------------------------------------------------------------------------------------
 49 
'--------------------------------------------------------------------------------------------------------------------------
50 
Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )
 50 
Sub GetFormDetails ( nProd_id, nOs_id, nBaseEnvId, nBom_id, ByRef outobjDetails )
51 
	Dim rsQry, query
 51 
	Dim rsQry, query
52 
 
 52 
 
53 
	OraDatabase.Parameters.Add "BOM_ID", nBom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
53 
	OraDatabase.Parameters.Add "BOM_ID", nBom_id,	ORAPARM_INPUT, ORATYPE_NUMBER
54
54
55
55
56
56
57
57
58
58
59 
	'/* Get Project Details */
 59 
	'/* Get Project Details */
60 
	query = _
 60 
	query = _
61 
	" SELECT proj.RM_PROJECTS_FK, bo.rtag_id_fk"&_
 61 
	" SELECT proj.RM_PROJECTS_FK, bo.rtag_id_fk"&_
62 
	"  FROM BOMS bo,"&_
 62 
	"  FROM BOMS bo,"&_
63 
	"  	   BRANCHES br,"&_
 63 
	"  	   BRANCHES br,"&_
64 
	"	   DM_PROJECTS proj"&_
 64 
	"	   DM_PROJECTS proj"&_
65 
	" WHERE br.PROJ_ID = proj.PROJ_ID"&_
 65 
	" WHERE br.PROJ_ID = proj.PROJ_ID"&_
66 
	"   AND bo.BRANCH_ID = br.BRANCH_ID"&_
 66 
	"   AND bo.BRANCH_ID = br.BRANCH_ID"&_
67 
	"   AND bo.BOM_ID = :BOM_ID"
 67 
	"   AND bo.BOM_ID = :BOM_ID"
68
68
69 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 69 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
70
70
71 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 71 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
72 
		outobjDetails.Item ("rm_projects_fk")   = rsQry("rm_projects_fk")
 72 
		outobjDetails.Item ("rm_projects_fk")   = rsQry("rm_projects_fk")
73 
		outobjDetails.Item ("rtag_id_fk")   = rsQry("rtag_id_fk")
 73 
		outobjDetails.Item ("rtag_id_fk")   = rsQry("rtag_id_fk")
74
74
75 
	Else
 75 
	Else
76 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id
76 
		Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nBom_id="& nBom_id
77
77
78 
	End If
 78 
	End If
79
79
80 
	OraDatabase.Parameters.Remove "PROD_ID"
 80 
	OraDatabase.Parameters.Remove "PROD_ID"
81 
	OraDatabase.Parameters.Remove "OS_ID"
 81 
	OraDatabase.Parameters.Remove "OS_ID"
82 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 82 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
83 
	OraDatabase.Parameters.Remove "BOM_ID"
 83 
	OraDatabase.Parameters.Remove "BOM_ID"
84
84
85 
	rsQry.Close
 85 
	rsQry.Close
86 
	Set rsQry = Nothing
 86 
	Set rsQry = Nothing
87 
End Sub
 87 
End Sub
88 
'--------------------------------------------------------------------------------------------------------------------------
 88 
'--------------------------------------------------------------------------------------------------------------------------
89 
'----------------------------------------------------------------------------------------------------------------------------------------
 89 
'----------------------------------------------------------------------------------------------------------------------------------------
90 
Sub GetIssueDetails ( nIssID, nIssDB, oIssueCollector, nErrNumber )
 90 
Sub GetIssueDetails ( nIssID, nIssDB, oIssueCollector, nErrNumber )
91 
	Dim query, rsCQ
 91 
	Dim query, rsCQ
92
92
93 
	If objFormCollector.Item("rm_projects_fk") = 122 Then
 93 
	If objFormCollector.Item("rm_projects_fk") = 122 Then
94 
		query = GetQuery ("IssuesList_cqVTSUP.sql")
 94 
		query = GetQuery ("IssuesList_cqVTSUP.sql")
95 
		query = Replace( query, "/*VTSUPiss*/", nIssID )
 95 
		query = Replace( query, "/*VTSUPiss*/", nIssID )
96 
	Else
 96 
	Else
97 
		query = GetQuery ("IssuesList_cqDEVI.sql")
 97 
		query = GetQuery ("IssuesList_cqDEVI.sql")
98 
		query = Replace( query, "/*DEVIiss*/", nIssID )
 98 
		query = Replace( query, "/*DEVIiss*/", nIssID )
99 
	End If
 99 
	End If
100
100
101 
	nErrNumber = GetCQIssue ( query, rsCQ )
 101 
	nErrNumber = GetCQIssue ( query, rsCQ )
102
102
103 
	If nErrNumber = 0 Then
 103 
	If nErrNumber = 0 Then
104 
		If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
 104 
		If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
105 
			oIssueCollector.Item ("iss_id") = CStr( rsCQ("iss_id") )
 105 
			oIssueCollector.Item ("iss_id") = CStr( rsCQ("iss_id") )
106 
			oIssueCollector.Item ("iss_num") = CStr( rsCQ("iss_num") )
 106 
			oIssueCollector.Item ("iss_num") = CStr( rsCQ("iss_num") )
107 
			oIssueCollector.Item ("summary") = CStr( rsCQ("summary") )
 107 
			oIssueCollector.Item ("summary") = CStr( rsCQ("summary") )
108 
			oIssueCollector.Item ("status") = CStr( rsCQ("status") )
 108 
			oIssueCollector.Item ("status") = CStr( rsCQ("status") )
109 
			oIssueCollector.Item ("priority") = CStr( rsCQ("priority") )
 109 
			oIssueCollector.Item ("priority") = CStr( rsCQ("priority") )
110 
			oIssueCollector.Item ("issue_type") = CStr( rsCQ("issue_type") )
 110 
			oIssueCollector.Item ("issue_type") = CStr( rsCQ("issue_type") )
111
111
112 
		End If
 112 
		End If
113 
	End If
 113 
	End If
114
114
115 
End Sub
 115 
End Sub
116 
'----------------------------------------------------------------------------------------------------------------------------------------
 116 
'----------------------------------------------------------------------------------------------------------------------------------------
117 
Function  GetCQIssue ( sSQL, oRsCQ )
 117 
Function  GetCQIssue ( sSQL, oRsCQ )
118 
	On Error Resume Next
 118 
	On Error Resume Next
119 
    Set oRsCQ = OraDatabase.DbCreateDynaset( sSQL, cint(0))
 119 
    Set oRsCQ = OraDatabase.DbCreateDynaset( sSQL, cint(0))
120 
	GetCQIssue = Err.Number
 120 
	GetCQIssue = Err.Number
121
121
122 
End Function
 122 
End Function
123 
'----------------------------------------------------------------------------------------------------------------------------------------
 123 
'----------------------------------------------------------------------------------------------------------------------------------------
124 
Function SetRowColor( cRowColor )
 124 
Function SetRowColor( cRowColor )
125 
	If cRowColor = "" Then
 125 
	If cRowColor = "" Then
126 
		SetRowColor = altRowColor
 126 
		SetRowColor = altRowColor
127 
	Else
 127 
	Else
128 
		SetRowColor = ""
 128 
		SetRowColor = ""
129 
	End If
 129 
	End If
130 
End Function
 130 
End Function
131 
'----------------------------------------------------------------------------------------------------------------------------------------
 131 
'----------------------------------------------------------------------------------------------------------------------------------------
132 
Sub PreviousVersions(a, b)
 132 
Sub PreviousVersions(a, b)
133
133
134 
	If CLng(a) < CLng(b) Then
 134 
	If CLng(a) < CLng(b) Then
135 
		While CLng(a) < CLng(b)
 135 
		While CLng(a) < CLng(b)
136 
			b = LastPvId(b)
 136 
			b = LastPvId(b)
137 
			If CLng(a) < CLng(b) Then
 137 
			If CLng(a) < CLng(b) Then
138 
				VersionList = VersionList + ","& b
 138 
				VersionList = VersionList + ","& b
139 
			End If
 139 
			End If
140 
		Wend
 140 
		Wend
141 
	End If
141 
	End If
142 
 
 142 
 
143 
	If CLng(b) < CLng(a) Then
 143 
	If CLng(b) < CLng(a) Then
144 
		While CLng(b) < CLng(a)
 144 
		While CLng(b) < CLng(a)
145 
			a = LastPvId(a)
 145 
			a = LastPvId(a)
146 
			If CLng(b) < CLng(a) Then
 146 
			If CLng(b) < CLng(a) Then
147 
				VersionList = VersionList + ","& a
 147 
				VersionList = VersionList + ","& a
148 
			End If
 148 
			End If
149 
		Wend
149 
		Wend
150 
	End If
 150 
	End If
151
151
152 
 
 152 
 
153 
End Sub
 153 
End Sub
154 
'----------------------------------------------------------------------------------------------------------------------------------------
 154 
'----------------------------------------------------------------------------------------------------------------------------------------
155 
Sub GetDependencies(pv_id_a, pv_id_b)
 155 
Sub GetDependencies(pv_id_a, pv_id_b)
156
156
157 
	VersionList = "0"
 157 
	VersionList = "0"
158 
	Set sqlstrA = OraDatabase.DbCreateDynaset("select distinct dpv_id from package_dependencies where pv_id IN ("& pv_id_b &") and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id ="& pv_id_a &" ) order by dpv_id desc", cint(0))
158 
	Set sqlstrA = OraDatabase.DbCreateDynaset("select distinct dpv_id from package_dependencies where pv_id IN ("& pv_id_b &") and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id ="& pv_id_a &" ) order by dpv_id desc", cint(0))
159 
 
 159 
 
160
160
161 
	If sqlstrA.RecordCount <> 0 Then
 161 
	If sqlstrA.RecordCount <> 0 Then
162
162
163 
		While ((NOT sqlstrA.BOF) AND (NOT sqlstrA.EOF))
 163 
		While ((NOT sqlstrA.BOF) AND (NOT sqlstrA.EOF))
164 
			VersionList = VersionList + ","& sqlstrA("dpv_id")
 164 
			VersionList = VersionList + ","& sqlstrA("dpv_id")
165 
			sqlstrA.MoveNext
 165 
			sqlstrA.MoveNext
166 
		Wend
 166 
		Wend
167 
 
 167 
 
168 
	End If
 168 
	End If
169
169
170 
	sqlstrA.Close()
 170 
	sqlstrA.Close()
171 
	Set sqlstrA = Nothing
 171 
	Set sqlstrA = Nothing
172 
 
 172 
 
173 
End Sub
 173 
End Sub
174 
'----------------------------------------------------------------------------------------------------------------------------------------
 174 
'----------------------------------------------------------------------------------------------------------------------------------------
175 
Function LastPvId(pvId)
 175 
Function LastPvId(pvId)
176 
	Dim qryA
 176 
	Dim qryA
177 
	Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId , cint(0))
 177 
	Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId , cint(0))
178
178
179 
	LastPvId = pvId
 179 
	LastPvId = pvId
180
180
181 
	If pvId <> qryA("last_pv_id") Then
181 
	If pvId <> qryA("last_pv_id") Then
182 
		LastPvId = qryA("last_pv_id")
 182 
		LastPvId = qryA("last_pv_id")
183 
	Else
183 
	Else
184 
		errormsg = true
 184 
		errormsg = true
185 
	End If
 185 
	End If
186
186
187 
	qryA.Close()
 187 
	qryA.Close()
188 
	Set qryA = Nothing
 188 
	Set qryA = Nothing
189 
 
 189 
 
190 
End Function
 190 
End Function
191 
'----------------------------------------------------------------------------------------------------------------------------------------
 191 
'----------------------------------------------------------------------------------------------------------------------------------------
192 
%>
 192 
%>
193 
<%
 193 
<%
194 
'------------ RUN BEFORE PAGE RENDER ----------
 194 
'------------ RUN BEFORE PAGE RENDER ----------
195 
' --- Get Form details from DB ---
 195 
' --- Get Form details from DB ---
196 
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )
 196 
Call GetFormDetails ( parProd_id, parOs_id, parBase_env_id, parBom_id, objFormCollector )
197 
'----------------------------------------------
 197 
'----------------------------------------------
198 
%>
 198 
%>
199 
<html>
 199 
<html>
200 
<head>
 200 
<head>
201 
<title>Production Manager</title>
 201 
<title>Production Manager</title>
202 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 202 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
203 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 203 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
204 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 204 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
205 
<script language="JavaScript" src="scripts/common.js"></script>
 205 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
206 
</head>
 206 
<script language="JavaScript" src="scripts/common.js"></script>
207 
 
 207 
</head>
208 
<body leftmargin="0" topmargin="0">
 208 
 
209 
<!-- HEADER ++++++++++++++++ -->
 209 
<body leftmargin="0" topmargin="0">
210 
<!--#include file="_header.asp"-->
 210 
<!-- HEADER ++++++++++++++++ -->
211 
<!-- +++++++++++++++++++++++ -->
 211 
<!--#include file="_header.asp"-->
212 
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
 212 
<!-- +++++++++++++++++++++++ -->
213 
<!--#include file="_main_menu.asp"-->
 213 
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
214 
<!-- +++++++++++++++++++++++++++++++++++++ -->
 214 
<!--#include file="_main_menu.asp"-->
215 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 215 
<!-- +++++++++++++++++++++++++++++++++++++ -->
216 
  <tr>
 216 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
217 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
 217 
  <tr>
218 
	<!-- NODE BROWSER ++++++++++++++++++++++ -->
 218 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
219 
	<!--#include file="_bom_browser.asp"-->
 219 
	<!-- NODE BROWSER ++++++++++++++++++++++ -->
220 
	<!-- END OF NODE BROWSER +++++++++++++++ -->
 220 
	<!--#include file="_bom_browser.asp"-->
221 
	</td>
 221 
	<!-- END OF NODE BROWSER +++++++++++++++ -->
222 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 222 
	</td>
223 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
 223 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
224 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 224 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
225 
	  <tr>
 225 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
226 
        <td valign="top" background="images/bg_green.gif"></td>
 226 
	  <tr>
227 
        <td align="right" valign="bottom" background="images/bg_green.gif" class="body_txtw"><%Call RenderTitle( objProdCollector )%></td>
 227 
        <td valign="top" background="images/bg_green.gif"></td>
228 
        <td background="images/bg_green.gif"><img src="images/spacer.gif" width="10" height="20"></td>
 228 
        <td align="right" valign="bottom" background="images/bg_green.gif" class="body_txtw"><%Call RenderTitle( objProdCollector )%></td>
229 
      </tr>
 229 
        <td background="images/bg_green.gif"><img src="images/spacer.gif" width="10" height="20"></td>
230 
      <tr>
 230 
      </tr>
231 
        <td width="1%" valign="top" background="images/bg_green.gif"></td>
 231 
      <tr>
232 
        <td width="100%" valign="bottom" background="images/bg_green.gif">
 232 
        <td width="1%" valign="top" background="images/bg_green.gif"></td>
233 
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
 233 
        <td width="100%" valign="bottom" background="images/bg_green.gif">
234 
		<!--#include file="_tabs_definition.asp"-->
 234 
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
235 
		<%
 235 
		<!--#include file="_tabs_definition.asp"-->
236 
		Set objTabControl = New TabControl
 236 
		<%
237 
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
 237 
		Set objTabControl = New TabControl
238 
		objTabControl.TabStyle = "StyleWinXP"
 238 
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
239 
		objTabControl.AddTabDefnition ( arrProdTabDef )
 239 
		objTabControl.TabStyle = "StyleWinXP"
240 
		objTabControl.SelectByName ("Issues")
 240 
		objTabControl.AddTabDefnition ( arrProdTabDef )
241 
		objTabControl.Render ()
 241 
		objTabControl.SelectByName ("Issues")
242 
		%>
 242 
		objTabControl.Render ()
243 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
 243 
		%>
244 
		</td>
 244 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
245 
        <td width="1%" background="images/bg_green.gif"><img src="images/spacer.gif" width="10" height="35"></td>
 245 
		</td>
246 
        </tr>
 246 
        <td width="1%" background="images/bg_green.gif"><img src="images/spacer.gif" width="10" height="35"></td>
247 
      <tr>
 247 
        </tr>
248 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
 248 
      <tr>
249 
        <td background="images/bg_bage_0.gif">
 249 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
250 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
 250 
        <td background="images/bg_bage_0.gif">
251 
		<%
 251 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
252 
		'-- Define Action buttons on this tab
 252 
		<%
253 
		'aTabBtnsDef = Array("btnAddOs", "width=10", "btnCopyOs", "btnPasteOs")
 253 
		'-- Define Action buttons on this tab
254
254 
		'aTabBtnsDef = Array("btnAddOs", "width=10", "btnCopyOs", "btnPasteOs")
255 
		'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
 255
256
256 
		'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
257 
		'objBtnControl.Render( aTabBtnsDef )
 257
258 
		%>
 258 
		'objBtnControl.Render( aTabBtnsDef )
259 
		<!-- +++++++++++++++++++++++++++++++++++ -->
 259 
		%>
260 
		</td>
 260 
		<!-- +++++++++++++++++++++++++++++++++++ -->
261 
        <td background="images/bg_green.gif"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
 261 
		</td>
262 
        </tr>
 262 
        <td background="images/bg_green.gif"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
263 
      <tr>
 263 
        </tr>
264 
        <td>&nbsp;</td>
 264 
      <tr>
265 
        <td>&nbsp;</td>
 265 
        <td>&nbsp;</td>
266 
        <td valign="top"><%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><a href="<%=SCRIPT_NAME%>?user_bar=<%=enumDEFAULT%>&<%=objPMod.ComposeURL()%>"><img src="icons/b_left.gif" title="Maximize favourits" width="13" height="13" vspace="5" border="0"></a><%End If%></td>
 266 
        <td>&nbsp;</td>
267 
        </tr>
 267 
        <td valign="top"><%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><a href="<%=SCRIPT_NAME%>?user_bar=<%=enumDEFAULT%>&<%=objPMod.ComposeURL()%>"><img src="icons/b_left.gif" title="Maximize favourits" width="13" height="13" vspace="5" border="0"></a><%End If%></td>
268 
    </table>
 268 
        </tr>
269 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 269 
    </table>
270 
      <tr>
 270 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
271 
        <td>
 271 
      <tr>
272 
		<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 272 
        <td>
273 
		<%
 273 
		<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
274 
		OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
274 
		<%
275 
		%>
 275 
		OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
276 
		<form name="OldVersion" method="get" action="<%=SCRIPT_NAME%>">
 276 
		%>
277 
			<SPAN class="body_txt">Changes since version&nbsp;</SPAN>
 277 
		<form name="OldVersion" method="get" action="<%=SCRIPT_NAME%>">
278 
			<select name="old_prod_id" class="form_ivalue">
 278 
			<SPAN class="body_txt">Changes since version&nbsp;</SPAN>
279 
			   <option value=""></option>
 279 
			<select name="old_prod_id" class="form_ivalue">
280 
			  <%
 280 
			   <option value=""></option>
281 
			  Dim nOldProdID
 281 
			  <%
282 
			  nOldProdID = Request("old_prod_id")
 282 
			  Dim nOldProdID
283 
			  If nOldProdID = "" Then nOldProdID = objProdCollector.Item ("last_pv_id")
 283 
			  nOldProdID = Request("old_prod_id")
284
284 
			  If nOldProdID = "" Then nOldProdID = objProdCollector.Item ("last_pv_id")
285
285
286 
			  OraDatabase.Parameters.Add "PKG_ID", 		objProdCollector.Item ("pkg_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
286
287 
			  OraDatabase.Parameters.Add "V_EXT", 		objProdCollector.Item ("v_ext"),	ORAPARM_INPUT, ORATYPE_NUMBER
287 
			  OraDatabase.Parameters.Add "PKG_ID", 		objProdCollector.Item ("pkg_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
288 
			  OraDatabase.Parameters.Add "OLD_PROD_ID", nOldProdID,	ORAPARM_INPUT, ORATYPE_NUMBER
288 
			  OraDatabase.Parameters.Add "V_EXT", 		objProdCollector.Item ("v_ext"),	ORAPARM_INPUT, ORATYPE_NUMBER
289 
			  OraDatabase.Parameters.Add "PROJ_ID",   objFormCollector.Item("rm_projects_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
289 
			  OraDatabase.Parameters.Add "OLD_PROD_ID", nOldProdID,	ORAPARM_INPUT, ORATYPE_NUMBER
290 
			  OraDatabase.Parameters.Add "BRANCH_ID",   objFormCollector.Item("rtag_id_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
290 
			  OraDatabase.Parameters.Add "PROJ_ID",   objFormCollector.Item("rm_projects_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
291 
		      OraDatabase.Parameters.Add "FILTER_ON",   0,	ORAPARM_INPUT, ORATYPE_NUMBER
291 
			  OraDatabase.Parameters.Add "BRANCH_ID",   objFormCollector.Item("rtag_id_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
292
292 
		      OraDatabase.Parameters.Add "FILTER_ON",   0,	ORAPARM_INPUT, ORATYPE_NUMBER
293
293
294 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsList.sql"), ORADYN_DEFAULT )
 294
295 
			  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 295 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsList.sql"), ORADYN_DEFAULT )
296 
			  %>
 296 
			  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
297 
				<option value="<%=rsQry("pv_id")%>" <%=rsQry("selected")%>><%=rsQry("pkg_version")%></option>
 297 
			  %>
298 
			  <%
 298 
				<option value="<%=rsQry("pv_id")%>" <%=rsQry("selected")%>><%=rsQry("pkg_version")%></option>
299 
			  	rsQry.MoveNext
 299 
			  <%
300 
			  WEnd
 300 
			  	rsQry.MoveNext
301 
			  rsQry.Close
 301 
			  WEnd
302
302 
			  rsQry.Close
303 
			  OraDatabase.Parameters.Remove "PROD_ID"
 303
304 
			  OraDatabase.Parameters.Remove "PKG_ID"
 304 
			  OraDatabase.Parameters.Remove "PROD_ID"
305 
			  OraDatabase.Parameters.Remove "V_EXT"
 305 
			  OraDatabase.Parameters.Remove "PKG_ID"
306 
			  OraDatabase.Parameters.Remove "OLD_PROD_ID"
 306 
			  OraDatabase.Parameters.Remove "V_EXT"
307 
		      OraDatabase.Parameters.Remove "PROJ_ID"
 307 
			  OraDatabase.Parameters.Remove "OLD_PROD_ID"
308 
   			  OraDatabase.Parameters.Remove "BRANCH_ID"
 308 
		      OraDatabase.Parameters.Remove "PROJ_ID"
309 
		      OraDatabase.Parameters.Remove "FILTER_ON"
 309 
   			  OraDatabase.Parameters.Remove "BRANCH_ID"
310
310 
		      OraDatabase.Parameters.Remove "FILTER_ON"
311 
			  %>
 311
312 
			</select>
 312 
			  %>
313 
			<%=objPMod.ComposeHiddenTags()%>
 313 
			</select>
314 
			<input type="submit" name="btn" value="Compare" class="form_btn">
 314 
			<%=objPMod.ComposeHiddenTags()%>
315 
		<hr width="100%" size="1px" noshade color="Black">
 315 
			<input type="submit" name="btn" value="Compare" class="form_btn">
316 
		</form>
 316 
		<hr width="100%" size="1px" noshade color="Black">
317
317 
		</form>
318 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 318
319 
          <tr>
319 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
320 
            <td width="1%" nowrap align="right" <%Call DisplayColumn("Issue ID", "iss_id", outORDER_BY, TRUE)%></td>
 320 
          <tr>
321 
			<td width="100%" nowrap align="right" <%Call DisplayColumn("Summary", NULL, outORDER_BY, FALSE)%></td>
 321 
            <td width="1%" nowrap align="right" <%Call DisplayColumn("Issue ID", "iss_id", outORDER_BY, TRUE)%></td>
322 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Issue Type", NULL, outORDER_BY, FALSE)%></td>
 322 
			<td width="100%" nowrap align="right" <%Call DisplayColumn("Summary", NULL, outORDER_BY, FALSE)%></td>
323 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Priority", NULL, outORDER_BY, FALSE)%></td>
 323 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Issue Type", NULL, outORDER_BY, FALSE)%></td>
324 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Source", "pkg_name", outORDER_BY, FALSE)%></td>
 324 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Priority", NULL, outORDER_BY, FALSE)%></td>
325 
          </tr>
 325 
			<td width="1%" nowrap align="right" <%Call DisplayColumn("Source", "pkg_name", outORDER_BY, FALSE)%></td>
326 
		  <%
 326 
          </tr>
327 
		  VersionList = "0"
327 
		  <%
328 
		  On Error Resume Next
 328 
		  VersionList = "0"
329 
		  Dim rsQryLast
 329 
		  On Error Resume Next
330 
		  Set rsQryLast = OraDatabase.DbCreateDynaset( "SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="& Request("old_prod_id"), cint(0))
330 
		  Dim rsQryLast
331 
 
 331 
		  Set rsQryLast = OraDatabase.DbCreateDynaset( "SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="& Request("old_prod_id"), cint(0))
332 
		  If rsQryLast("last_pv_id") <> Request("prod_id") Then
332 
 
333 
			Call PreviousVersions( Request("prod_id"), Request("old_prod_id") )
 333 
		  If rsQryLast("last_pv_id") <> Request("prod_id") Then
334 
		  End If
 334 
			Call PreviousVersions( Request("prod_id"), Request("old_prod_id") )
335 
 
 335 
		  End If
336 
		  Call GetDependencies(Request("prod_id"), VersionList + ","+ Request("old_prod_id"))
 336 
 
337
337 
		  Call GetDependencies(Request("prod_id"), VersionList + ","+ Request("old_prod_id"))
338 
 
 338
339 
		  Set rsQry = OraDatabase.DbCreateDynaset( "select * from cq_issues cq, packages pkg, package_versions pv "&_
 339 
 
340 
		  " where cq.iss_db = 7 and pv.pv_id IN ("&VersionList&") and pv.pkg_id = pkg.pkg_id and cq.pv_id = pv.pv_id order by pv.pv_id desc", ORADYN_DEFAULT )
 340 
		  Set rsQry = OraDatabase.DbCreateDynaset( "select * from cq_issues cq, packages pkg, package_versions pv "&_
341 
		  'Response.Write VersionList
 341 
		  " where cq.iss_db = 7 and pv.pv_id IN ("&VersionList&") and pv.pkg_id = pkg.pkg_id and cq.pv_id = pv.pv_id order by pv.pv_id desc", ORADYN_DEFAULT )
342 
		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 342 
		  'Response.Write VersionList
343 
		  	Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
 343 
		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
344
344 
		  	Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
345 
			currRowColor = SetRowColor( currRowColor )
 345
346
346 
			currRowColor = SetRowColor( currRowColor )
347 
			If errNumber <> 0 Then Exit Do
 347
348 
		  %>
 348 
			If errNumber <> 0 Then Exit Do
349 
          <tr>
349 
		  %>
350 
            <td <%=currRowColor%> nowrap valign="top" class="body_link"><%=objIssueCollector.Item ("iss_num")%></td>
 350 
          <tr>
351 
			<td <%=currRowColor%> valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%></td>
 351 
            <td <%=currRowColor%> nowrap valign="top" class="body_link"><%=objIssueCollector.Item ("iss_num")%></td>
352 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%></td>
 352 
			<td <%=currRowColor%> valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%></td>
353 
            <td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%></td>
 353 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%></td>
354 
			<%If IsEmpty(objIssueCollector.Item ("summary")) Then%>
 354 
            <td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%></td>
355 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"></a></td>
 355 
			<%If IsEmpty(objIssueCollector.Item ("summary")) Then%>
356 
			<%Else%>
 356 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"></a></td>
357 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%></a></td>
 357 
			<%Else%>
358 
			<%End If%>
 358 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%></a></td>
359
359 
			<%End If%>
360 
          </tr>
 360
361 
		  <%rsQry.MoveNext%>
 361 
          </tr>
362
362 
		  <%rsQry.MoveNext%>
363 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 363
364 
          <tr>
 364 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
365 
            <td colspan="6"><img src="images/spacer.gif" width="1" height="1"></td>
 365 
          <tr>
366 
          </tr>
 366 
            <td colspan="6"><img src="images/spacer.gif" width="1" height="1"></td>
367 
		  <%End If%>
 367 
          </tr>
368
368 
		  <%End If%>
369 
		  <%
 369
370 
		  Loop
370 
		  <%
371 
 
 371 
		  Loop
372 
		  rsQry.Close()
 372 
 
373 
		  Set rsQry = Nothing
373 
		  rsQry.Close()
374 
		  rsQryLast.Close()
 374 
		  Set rsQry = Nothing
375 
		  Set rsQryLast = Nothing
 375 
		  rsQryLast.Close()
376 
 
 376 
		  Set rsQryLast = Nothing
377 
 
 377 
 
378
378 
 
379 
 
 379
380 
		  OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
380 
 
381 
		  OraDatabase.Parameters.Add "OLD_PROD_ID",  	objProdCollector.Item("last_pv_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
381 
		  OraDatabase.Parameters.Add "PROD_ID", 		dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
382 
		  OraDatabase.Parameters.Add "OTHER_PROD_ID", 	dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
382 
		  OraDatabase.Parameters.Add "OLD_PROD_ID",  	objProdCollector.Item("last_pv_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
383
383 
		  OraDatabase.Parameters.Add "OTHER_PROD_ID", 	dbPARprod_id,		ORAPARM_INPUT, ORATYPE_NUMBER
384 
		  If objFormCollector.Item("rm_projects_fk") = 122 Then
384
385 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("VTIssuesList.sql") & outORDER_BY, ORADYN_DEFAULT )
 385 
		  If objFormCollector.Item("rm_projects_fk") = 122 Then
386 
		  Else
 386 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("VTIssuesList.sql") & outORDER_BY, ORADYN_DEFAULT )
387 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("IssuesList.sql") & outORDER_BY, ORADYN_DEFAULT )
 387 
		  Else
388 
		  End If
 388 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("IssuesList.sql") & outORDER_BY, ORADYN_DEFAULT )
389 
 
 389 
		  End If
390 
		  altRowColor = "bgcolor='#F7F7F8'"
 390 
 
391 
		  currRowColor = ""
 391 
		  altRowColor = "bgcolor='#F7F7F8'"
392
392 
		  currRowColor = ""
393 
		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 393
394 
		  	Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
 394 
		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
395
395 
		  	Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
396 
			currRowColor = SetRowColor( currRowColor )
 396
397
397 
			currRowColor = SetRowColor( currRowColor )
398 
			If errNumber <> 0 Then Exit Do
 398
399 
		  %>
 399 
			If errNumber <> 0 Then Exit Do
400 
          <tr>
 400 
		  %>
401 
            <td <%=currRowColor%> nowrap valign="top" class="body_link"><%=objIssueCollector.Item ("iss_num")%></td>
 401 
          <tr>
402 
			<td <%=currRowColor%> valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%></td>
 402 
            <td <%=currRowColor%> nowrap valign="top" class="body_link"><%=objIssueCollector.Item ("iss_num")%></td>
403 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%></td>
 403 
			<td <%=currRowColor%> valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%></td>
404 
            <td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%></td>
 404 
			<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%></td>
405 
			<%If IsEmpty(objIssueCollector.Item ("summary")) Then%>
 405 
            <td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%></td>
406 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"></a></td>
 406 
			<%If IsEmpty(objIssueCollector.Item ("summary")) Then%>
407 
			<%Else%>
 407 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"></a></td>
408 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%></a></td>
 408 
			<%Else%>
409 
			<%End If%>
 409 
				<td <%=currRowColor%> nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%></a></td>
410
410 
			<%End If%>
411 
          </tr>
 411
412 
		  <%rsQry.MoveNext%>
 412 
          </tr>
413
413 
		  <%rsQry.MoveNext%>
414 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 414
415 
          <tr>
 415 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
416 
            <td colspan="6"><img src="images/spacer.gif" width="1" height="1"></td>
 416 
          <tr>
417 
          </tr>
 417 
            <td colspan="6"><img src="images/spacer.gif" width="1" height="1"></td>
418 
		  <%End If%>
 418 
          </tr>
419
419 
		  <%End If%>
420 
		  <%
 420
421 
		  Loop
 421 
		  <%
422 
		  OraDatabase.Parameters.Remove "PROD_ID"
 422 
		  Loop
423 
		  OraDatabase.Parameters.Remove "OLD_PROD_ID"
 423 
		  OraDatabase.Parameters.Remove "PROD_ID"
424 
		  OraDatabase.Parameters.Remove "OTHER_PROD_ID"
 424 
		  OraDatabase.Parameters.Remove "OLD_PROD_ID"
425 
 
 425 
		  OraDatabase.Parameters.Remove "OTHER_PROD_ID"
426 
		  %>
 426 
 
427
427 
		  %>
428
428
429 
		  <%If errNumber <> 0 Then		'--- Handle any errors during data retrieve from MS SQL database (i.e. Cannot connect to DB.)%>
 429
430 
		  <tr>
 430 
		  <%If errNumber <> 0 Then		'--- Handle any errors during data retrieve from MS SQL database (i.e. Cannot connect to DB.)%>
431 
            <td colspan="6">
 431 
		  <tr>
432 
			  <%Response.write enumMSSQL_ERROR%>
 432 
            <td colspan="6">
433 
			</td>
 433 
			  <%Response.write enumMSSQL_ERROR%>
434 
          </tr>
 434 
			</td>
435 
		  <%End If%>
 435 
          </tr>
436
436 
		  <%End If%>
437 
          <tr>
 437
438 
            <td colspan="6" background="images/bg_table_border.gif">
 438 
          <tr>
439 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 439 
            <td colspan="6" background="images/bg_table_border.gif">
440 
              <tr>
 440 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
441 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 441 
              <tr>
442 
              </tr>
 442 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
443 
             </table>
 443 
              </tr>
444 
			</td>
 444 
             </table>
445 
          </tr>
 445 
			</td>
446 
         </table>
446 
          </tr>
447 
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 447 
         </table>
448 
		</td>
 448 
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
449 
      </tr>
 449 
		</td>
450 
    </table>
 450 
      </tr>
451 
	</td>
 451 
    </table>
452 
    <td width="1%" valign="top" background="images/bg_favourits.gif">
 452 
	</td>
453 
	<!-- PERSONAL BAR +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 453 
    <td width="1%" valign="top" background="images/bg_favourits.gif">
454 
	<!--#include file="_personal_bar.asp"-->
 454 
	<!-- PERSONAL BAR +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
455 
	<!-- END OF PERSONAL BAR ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 455 
	<!--#include file="_personal_bar.asp"-->
456 
   </td>
 456 
	<!-- END OF PERSONAL BAR ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
457 
  </tr>
 457 
   </td>
458 
  <tr>
 458 
  </tr>
459 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="15"></td>
 459 
  <tr>
460 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 460 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="1" height="15"></td>
461 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 461 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
462 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 462 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
463 
  </tr>
 463 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
464 
  <tr>
 464 
  </tr>
465 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
 465 
  <tr>
466 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 466 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
467 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 467 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
468 
    <td bgcolor="#FFFFFF">&nbsp;</td>
 468 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
469 
  </tr>
 469 
    <td bgcolor="#FFFFFF">&nbsp;</td>
470 
</table>
 470 
  </tr>
471 
<!-- FOOTER ++++++++++++++++ -->
 471 
</table>
472 
<!--#include file="_footer.asp"-->
 472 
<!-- FOOTER ++++++++++++++++ -->
473 
<!-- +++++++++++++++++++++++ -->
 473 
<!--#include file="_footer.asp"-->
474 
</body>
 474 
<!-- +++++++++++++++++++++++ -->
475 
</html>
 475 
</body>
476 
<%
 476 
</html>
477 
'------------ RUN AFTER PAGE RENDER -----------
 477 
<%
478 
Set objPMod = Nothing
 478 
'------------ RUN AFTER PAGE RENDER -----------
479 
Set objCrumbs = Nothing
 479 
Set objPMod = Nothing
480 
Set objTabControl = Nothing
 480 
Set objCrumbs = Nothing
481 
Set objBtnControl = Nothing
 481 
Set objTabControl = Nothing
482 
'----------------------------------------------
 482 
Set objBtnControl = Nothing
- 
 
 483 
'----------------------------------------------
483 
%><!--#include file="common/globals_destructor.asp"-->
 484 
%><!--#include file="common/globals_destructor.asp"-->
484 

            485