Subversion Repositories DevTools

Rev

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

Rev 2365 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				        MESSAGE					     |
 5 
'|				        MESSAGE					     |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
' Good idea to set when using redirect
 11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
 12 
Response.Expires = 0	' always load the page, dont store
13 
%>
 13 
%>
14 
<%
 14 
<%
15 
'------------ Variable Definition -------------
 15 
'------------ Variable Definition -------------
16 
Dim parMsg, reqParam, ERRlog, ERRlogFULL, AdditionalParams
 16 
Dim parMsg, reqParam, ERRlog, ERRlogFULL, AdditionalParams
17 
Dim MSG, msgFile, i, parArr, parJustemplate, parLinksON
 17 
Dim MSG, msgFile, i, parArr, parJustemplate, parLinksON
18 
'------------ Constants Declaration -----------
 18 
'------------ Constants Declaration -----------
19 
'------------ Variable Init -------------------
 19 
'------------ Variable Init -------------------
20 
parMsg = QStrPar("msg")							' message template
 20 
parMsg = QStrPar("msg")							' message template
21 
reqParam = Session("reqParam")					' parameters passed for processing
 21 
reqParam = Session("reqParam")					' parameters passed for processing
22 
ERRlog = Session("ERRlog")						' pkgs with errors + error type
 22 
ERRlog = Session("ERRlog")						' pkgs with errors + error type
23 
ERRlogFULL = Session("ERRlogFULL") 				' full list of submitted packages
 23 
ERRlogFULL = Session("ERRlogFULL") 				' full list of submitted packages
24 
AdditionalParams = Session("AdditionalParams")	' additional parameters populating message template
 24 
AdditionalParams = Session("AdditionalParams")	' additional parameters populating message template
25 
parJustemplate = QStrPar("justemplate")
 25 
parJustemplate = QStrPar("justemplate")
26 
parLinksON = QStrPar("linksON")
 26 
parLinksON = QStrPar("linksON")
27 
'----------------------------------------------
 27 
'----------------------------------------------
28 
%>
 28 
%>
29 
<!--#include file="common/conf.asp"-->
 29 
<!--#include file="common/conf.asp"-->
30 
<!--#include file="common/globals.asp"-->
 30 
<!--#include file="common/globals.asp"-->
31 
<!--#include file="common/formating.asp"-->
 31 
<!--#include file="common/formating.asp"-->
32 
<!--#include file="common/qstr.asp"-->
 32 
<!--#include file="common/qstr.asp"-->
33 
<!--#include file="common/common_subs.asp"-->
 33 
<!--#include file="common/common_subs.asp"-->
34 
<%
 34 
<%
35 
Function Format_ERRlog( SSerrLog, SSerrFull )
 35 
Function Format_ERRlog( SSerrLog, SSerrFull )
36 
	' SSerrLog = "|pkgn,pkgv,errtype||pkgn,pkgv,errtype||pkgn,pkgv,errtype|"
 36 
	' SSerrLog = "|pkgn,pkgv,errtype||pkgn,pkgv,errtype||pkgn,pkgv,errtype|"
37 
	' SSerrFull	  = "|pkgn,pkgv||pkgn,pkgv|"   contains all submitted items
 37 
	' SSerrFull	  = "|pkgn,pkgv||pkgn,pkgv|"   contains all submitted items
38
38
39
39
40 
	Dim errDetSTR, errlistARR, fullARR, pkgpair, pkgdetailsARR, errDetARR, errItem, errTypesUsed
 40 
	Dim errDetSTR, errlistARR, fullARR, pkgpair, pkgdetailsARR, errDetARR, errItem, errTypesUsed
41 
	Dim item, i, tempARR, tmpStr, errcolumnsARR, columnDrawn, mypkgname, mypkgversion
 41 
	Dim item, i, tempARR, tmpStr, errcolumnsARR, columnDrawn, mypkgname, mypkgversion
42
42
43 
	Set errTypesUsed = CreateObject("Scripting.Dictionary")
 43 
	Set errTypesUsed = CreateObject("Scripting.Dictionary")
44
44
45 
	errlistARR = SplitPipes( SSerrLog ) 		'split  |pkgn,pkgv,errtype||pkgn,pkgv,errtype|
 45 
	errlistARR = SplitPipes( SSerrLog ) 		'split  |pkgn,pkgv,errtype||pkgn,pkgv,errtype|
46 
	fullARR = SplitPipes( SSerrFull ) 			'split  |pkgpair1||pkgpair2|
 46 
	fullARR = SplitPipes( SSerrFull ) 			'split  |pkgpair1||pkgpair2|
47
47
48 
	errDetSTR = ""
 48 
	errDetSTR = ""
49 
	errDetSTR =  errDetSTR & "<table width='100%' border='0' cellspacing='1' cellpadding='3' >"
 49 
	errDetSTR =  errDetSTR & "<table width='100%' border='0' cellspacing='1' cellpadding='3' >"
50 
	'==== Error Column Names ================
 50 
	'==== Error Column Names ================
51 
	For Each item In errlistARR
 51 
	For Each item In errlistARR
52 
		tempARR = Split (item, ",")		'split  pkgn,pkgv,errtype
 52 
		tempARR = Split (item, ",")		'split  pkgn,pkgv,errtype
53 
		If NOT errTypesUsed.Exists (tempARR(2)) Then errTypesUsed.ADD Cstr(tempARR(2)),""
 53 
		If NOT errTypesUsed.Exists (tempARR(2)) Then errTypesUsed.ADD Cstr(tempARR(2)),""
54 
	Next
 54 
	Next
55 
	errcolumnsARR = errTypesUsed.Keys
 55 
	errcolumnsARR = errTypesUsed.Keys
56 
	Set errTypesUsed = nothing
 56 
	Set errTypesUsed = nothing
57
57
58 
	' draw error columns
 58 
	' draw error columns
59 
	errDetSTR =  errDetSTR & "<tr><td><img src='images/h_trsp_dot.gif' width='40' height='1'></td><td></td>"
 59 
	errDetSTR =  errDetSTR & "<tr><td><img src='images/h_trsp_dot.gif' width='40' height='1'></td><td></td>"
60 
	For Each item In errcolumnsARR
 60 
	For Each item In errcolumnsARR
61 
		errDetSTR =  errDetSTR & "<td nowrap class='err_alert' background='images/bg_lght_gray.gif'>"& Error_Details ( item ) &" <a href='javascript:;' onMouseOver=""formTips.show('err"& item &"')"" onMouseOut=""formTips.hide()""><img src='images/i_help.gif' width='12' height='12' hspace='2' align='absmiddle' border='0' ></a></td>"
 61 
		errDetSTR =  errDetSTR & "<td nowrap class='err_alert' background='images/bg_lght_gray.gif'>"& Error_Details ( item ) &" <a href='javascript:;' onMouseOver=""formTips.show('err"& item &"')"" onMouseOut=""formTips.hide()""><img src='images/i_help.gif' width='12' height='12' hspace='2' align='absmiddle' border='0' ></a></td>"
62 
	Next
 62 
	Next
63 
	errDetSTR =  errDetSTR & "</tr>"
 63 
	errDetSTR =  errDetSTR & "</tr>"
64
64
65
65
66 
	'==== Error Details =====================
 66 
	'==== Error Details =====================
67 
	For Each pkgpair In fullARR
 67 
	For Each pkgpair In fullARR
68 
		pkgdetailsARR = Split(pkgpair, ",")		'split  pkg_name,pkg_version
 68 
		pkgdetailsARR = Split(pkgpair, ",")		'split  pkg_name,pkg_version
69
69
70 
		errItem = Filter(errlistARR, pkgdetailsARR(0) &",", True)
 70 
		errItem = Filter(errlistARR, pkgdetailsARR(0) &",", True)
71 
		errItem = Join(errItem, ",")
 71 
		errItem = Join(errItem, ",")
72
72
73 
		mypkgname = pkgdetailsARR(0)
 73 
		mypkgname = pkgdetailsARR(0)
74 
		mypkgversion = pkgdetailsARR(1)
 74 
		mypkgversion = pkgdetailsARR(1)
75
75
76 
		If errItem <> "" Then
 76 
		If errItem <> "" Then
77 
			'error FOUND for pkg_name
 77 
			'error FOUND for pkg_name
78 
			errDetARR = Split(errItem, ",")		'split  pkgn,pkgv,errtype
 78 
			errDetARR = Split(errItem, ",")		'split  pkgn,pkgv,errtype
79
79
80 
			errDetSTR = errDetSTR &_
 80 
			errDetSTR = errDetSTR &_
81 
					"<tr>"&_
 81 
					"<tr>"&_
82 
		            "<td nowrap background='images/bg_lght_gray.gif' class='err_sol'>"& mypkgname &"</td>"&_
 82 
		            "<td nowrap background='images/bg_lght_gray.gif' class='err_sol'>"& mypkgname &"</td>"&_
83 
		            "<td nowrap background='images/bg_lght_gray.gif' class='err_sol'>"& mypkgversion &"</td>"
 83 
		            "<td nowrap background='images/bg_lght_gray.gif' class='err_sol'>"& mypkgversion &"</td>"
84
84
85 
			'run through all error types if multiple pkgs found
 85 
			'run through all error types if multiple pkgs found
86 
			columnDrawn = FALSE
 86 
			columnDrawn = FALSE
87 
			For Each item In errcolumnsARR
 87 
			For Each item In errcolumnsARR
88
88
89 
				For i = 0 To UBound(errDetARR) Step 3
 89 
				For i = 0 To UBound(errDetARR) Step 3
90 
					If item = errDetARR(i+2) Then
 90 
					If item = errDetARR(i+2) Then
91 
						If (parLinksON <> "") AND (item = 4) Then
 91 
						If (parLinksON <> "") AND (item = 4) Then
92 
							errDetSTR = errDetSTR & "<td background='images/bg_lght_gray.gif' align='center' class='err_sol'>"&_
 92 
							errDetSTR = errDetSTR & "<td background='images/bg_lght_gray.gif' align='center' class='err_sol'>"&_
93 
													"<a href='#' onClick=""MM_openBrWindow('see_circular_dependencies.asp?pkgN="& mypkgname &"&pkgV="& mypkgversion & QSTR &"','ReleaseManager','scrollbars=yes,resizable=yes,width=500,height=300')"" class='txt_linked'><b>x</b></a></td>"
 93 
													"<a href='#' onClick=""MM_openBrWindow('see_circular_dependencies.asp?pkgN="& mypkgname &"&pkgV="& mypkgversion & QSTR &"','ReleaseManager','scrollbars=yes,resizable=yes,width=500,height=300')"" class='txt_linked'><b>x</b></a></td>"
94 
						Else
 94 
						Else
95 
							errDetSTR = errDetSTR & "<td background='images/bg_lght_gray.gif' align='center' class='err_sol'>x</td>"
 95 
							errDetSTR = errDetSTR & "<td background='images/bg_lght_gray.gif' align='center' class='err_sol'>x</td>"
96 
						End If
 96 
						End If
97 
						columnDrawn = TRUE
 97 
						columnDrawn = TRUE
98 
						Exit For
 98 
						Exit For
99 
					End If
 99 
					End If
100 
				Next
 100 
				Next
101
101
102 
				If NOT columnDrawn Then errDetSTR = errDetSTR & "<td background='images/bg_lght_gray.gif'>&nbsp;</td>"
 102 
				If NOT columnDrawn Then errDetSTR = errDetSTR & "<td background='images/bg_lght_gray.gif'>&nbsp;</td>"
103 
				columnDrawn = FALSE
 103 
				columnDrawn = FALSE
104
104
105 
			Next
 105 
			Next
106 
			errDetSTR = errDetSTR & "</tr>"
 106 
			errDetSTR = errDetSTR & "</tr>"
107
107
108 
		Else
 108 
		Else
109 
			'error NOT FOUND for pkg_name
 109 
			'error NOT FOUND for pkg_name
110 
			errDetSTR = errDetSTR &_
 110 
			errDetSTR = errDetSTR &_
111 
						"<tr>"&_
 111 
						"<tr>"&_
112 
			            "<td nowrap background='images/bg_lght_gray.gif' class='err_sol'>"& mypkgname &"</td>"&_
 112 
			            "<td nowrap background='images/bg_lght_gray.gif' class='err_sol'>"& mypkgname &"</td>"&_
113 
			            "<td nowrap background='images/bg_lght_gray.gif' class='err_sol'>"& mypkgversion &"</td>"
 113 
			            "<td nowrap background='images/bg_lght_gray.gif' class='err_sol'>"& mypkgversion &"</td>"
114 
						For Each item In errcolumnsARR
 114 
						For Each item In errcolumnsARR
115 
							errDetSTR = errDetSTR & "<td background='images/bg_lght_gray.gif'>&nbsp;</td>"
 115 
							errDetSTR = errDetSTR & "<td background='images/bg_lght_gray.gif'>&nbsp;</td>"
116 
						Next
 116 
						Next
117 
						errDetSTR = errDetSTR & "</tr>"
 117 
						errDetSTR = errDetSTR & "</tr>"
118 
		End If
 118 
		End If
119
119
120 
		errItem = ""	'clean errItem
 120 
		errItem = ""	'clean errItem
121 
	Next
 121 
	Next
122 
	errDetSTR = errDetSTR & "</table>"
 122 
	errDetSTR = errDetSTR & "</table>"
123
123
124 
	Format_ERRlog = errDetSTR
 124 
	Format_ERRlog = errDetSTR
125 
End Function
 125 
End Function
126 
 
 126 
 
127 
 
 127 
 
128 
Function Format_reqParam( SSreqParam )
 128 
Function Format_reqParam( SSreqParam )
129 
	' SSreqParam = "|parname=parvalue||parname=parvalue|"
 129 
	' SSreqParam = "|parname=parvalue||parname=parvalue|"
130 
	Dim errReqSTR, reqParamARR, tempARR, item
 130 
	Dim errReqSTR, reqParamARR, tempARR, item
131
131
132 
	'==== Required Parameters ===============
 132 
	'==== Required Parameters ===============
133 
	errReqSTR = ""
 133 
	errReqSTR = ""
134 
	reqParamARR = SplitAmpasans( SSreqParam )	'split  &par=value&&par=value&
 134 
	reqParamARR = SplitAmpasans( SSreqParam )	'split  &par=value&&par=value&
135
135
136 
	For Each item In reqParamARR
 136 
	For Each item In reqParamARR
137 
		tempARR = Split(item, "=")			'split par=value
 137 
		tempARR = Split(item, "=")			'split par=value
138 
		errReqSTR = errReqSTR & "<input type='hidden' name='"& tempARR(0) &"' value='"& URLEncode(tempARR(1)) &"'>" & VBNewLine
 138 
		errReqSTR = errReqSTR & "<input type='hidden' name='"& tempARR(0) &"' value='"& URLEncode(tempARR(1)) &"'>" & VBNewLine
139 
	Next
 139 
	Next
140
140
141 
	Format_reqParam = errReqSTR
 141 
	Format_reqParam = errReqSTR
142 
End Function
 142 
End Function
143 
 
 143 
 
144 
 
 144 
 
145 
Private Function Error_Details ( NNerrnum )
 145 
Private Function Error_Details ( NNerrnum )
146 
	Dim errorType
 146 
	Dim errorType
147 
	Set errorType = CreateObject("Scripting.Dictionary")
 147 
	Set errorType = CreateObject("Scripting.Dictionary")
148 
	'--- load error definition ------------------
 148 
	'--- load error definition ------------------
149 
	errorType.ADD		"1","VERSION NOT FOUND"
 149 
	errorType.ADD		"1","VERSION NOT FOUND"
150 
	errorType.ADD		"2","VERSION EXISTS"
 150 
	errorType.ADD		"2","VERSION EXISTS"
151 
	errorType.ADD		"3","DUPLICATE PACKAGE NAME"
 151 
	errorType.ADD		"3","DUPLICATE PACKAGE NAME"
152 
	errorType.ADD		"4","CIRCULAR DEPENDENCY"
 152 
	errorType.ADD		"4","CIRCULAR DEPENDENCY"
153 
	errorType.ADD		"5","EXISTS IN THIS RELEASE"
 153 
	errorType.ADD		"5","EXISTS IN THIS RELEASE"
154 
	'this must match descriptions in images/_help_tips.js	e.g. errorType 1 has decsription err1
 154 
	'this must match descriptions in images/_help_tips.js	e.g. errorType 1 has decsription err1
155 
	'--------------------------------------------
 155 
	'--------------------------------------------
156 
	Error_Details = errorType.Item (Cstr( NNerrnum ))
 156 
	Error_Details = errorType.Item (Cstr( NNerrnum ))
157 
End Function
 157 
End Function
158 
%>
 158 
%>
159 
<%
 159 
<%
160 
'-----------------------  MAIN LINE  ---------------------------
 160 
'-----------------------  MAIN LINE  ---------------------------
161 
'Read the message template
 161 
'Read the message template
162 
MSG = ReadFile( rootPath &"messages\"& parMsg &".html" )
 162 
MSG = ReadFile( rootPath &"messages\"& parMsg &".html" )
163 
 
 163 
 
164 
'== $TABLE$ parameter ================
 164 
'== $TABLE$ parameter ================
165 
If ERRlog <> "" Then
 165 
If ERRlog <> "" Then
166 
	MSG = Replace( MSG, "$TABLE$", Format_ERRlog( ERRlog, ERRlogFULL) )
 166 
	MSG = Replace( MSG, "$TABLE$", Format_ERRlog( ERRlog, ERRlogFULL) )
167 
End If
 167 
End If
168 
 
 168 
 
169 
'== $HIDDEN$ =========================
 169 
'== $HIDDEN$ =========================
170 
If reqParam <> "" Then
 170 
If reqParam <> "" Then
171 
	MSG = Replace( MSG, "$HIDDEN$", Format_reqParam( reqParam ) )
 171 
	MSG = Replace( MSG, "$HIDDEN$", Format_reqParam( reqParam ) )
172 
End If
 172 
End If
173 
 
 173 
 
174 
'== AdditionalParams =================
 174 
'== AdditionalParams =================
175 
If AdditionalParams <> "" Then
 175 
If AdditionalParams <> "" Then
176 
	parArr = Split(AdditionalParams, ",")
 176 
	parArr = Split(AdditionalParams, ",")
177 
	For i = 0 To UBound(parArr) Step 2
 177 
	For i = 0 To UBound(parArr) Step 2
178 
		MSG = Replace( MSG, parArr(i), parArr(i+1) )
 178 
		MSG = Replace( MSG, parArr(i), parArr(i+1) )
179 
	Next
 179 
	Next
180 
End If
 180 
End If
181 
 
 181 
 
182 
'== Query String parameter ===========
 182 
'== Query String parameter ===========
183 
MSG = Replace( MSG, "$QSTR$", QSTR_All )
 183 
MSG = Replace( MSG, "$QSTR$", QSTR_All )
184 
 
 184 
 
185 
'== Clean the session variables ======
 185 
'== Clean the session variables ======
186 
Session("reqParam") = ""
 186 
Session("reqParam") = ""
187 
Session("ERRlog") = ""
 187 
Session("ERRlog") = ""
188 
Session("ERRlogFULL") = ""
 188 
Session("ERRlogFULL") = ""
189 
Session("AdditionalParams") = ""
 189 
Session("AdditionalParams") = ""
190 
%>
 190 
%>
191 
<%If parJustemplate <> "" Then%>
 191 
<%If parJustemplate <> "" Then%>
192 
	<%Response.write MSG%>
 192 
	<%Response.write MSG%>
193 
<%Else%>
 193 
<%Else%>
194 
<html>
 194 
<html>
195 
<head>
 195 
<head>
196 
<title>Release Manager</title>
 196 
<title>Release Manager</title>
197 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 197 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
198 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 198 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
199 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 199 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
200 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 200 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
201 
<script language="JavaScript" src="images/common.js"></script>
 201 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
202 
<!-- TIPS -->
 202 
<script language="JavaScript" src="images/common.js"></script>
203 
<script language="JavaScript" src="images/tipster.js"></script>
 203 
<!-- TIPS -->
204 
<script language="JavaScript" src="images/_help_tips.js"></script>
 204 
<script language="JavaScript" src="images/tipster.js"></script>
205 
</head>
 205 
<script language="JavaScript" src="images/_help_tips.js"></script>
206 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 206 
</head>
207 
<!-- MENU LAYERS -------------------------------------->
 207 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
208 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
208 
<!-- MENU LAYERS -------------------------------------->
209 
</div>
 209 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
210 
<!-- TIPS LAYERS -------------------------------------->
 210 
</div>
211 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 211 
<!-- TIPS LAYERS -------------------------------------->
212 
<!----------------------------------------------------->
 212 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
213 
<!-- HEADER -->
 213 
<!----------------------------------------------------->
214 
<!--#include file="_header.asp"-->
 214 
<!-- HEADER -->
215 
<!-- BODY ---->
 215 
<!--#include file="_header.asp"-->
216 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 216 
<!-- BODY ---->
217 
  <tr>
 217 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
218 
    <td background="images/bg_lght_gray.gif" align="left" valign="top">
218 
  <tr>
219 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
 219 
    <td background="images/bg_lght_gray.gif" align="left" valign="top">
220 
        <tr>
220 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
221 
          <td valign="top" width="1%"><img src="images/h_trsp_dot.gif" width="10" height="10"></td>
 221 
        <tr>
222 
          <td valign="top" width="1%">
 222 
          <td valign="top" width="1%"><img src="images/h_trsp_dot.gif" width="10" height="10"></td>
223 
		  <!-- LEFT -->
 223 
          <td valign="top" width="1%">
224 
		  </td>
 224 
		  <!-- LEFT -->
225 
          <td valign="top" width="1%"><img src="images/h_trsp_dot.gif" width="30" height="550"></td>
 225 
		  </td>
226 
          <td valign="top" width="100%">
 226 
          <td valign="top" width="1%"><img src="images/h_trsp_dot.gif" width="30" height="550"></td>
227 
		  <!-- MIDDLE -->
 227 
          <td valign="top" width="100%">
228 
			<table width="650" border="0" cellspacing="0" cellpadding="0">
 228 
		  <!-- MIDDLE -->
229 
			  <tr>
229 
			<table width="650" border="0" cellspacing="0" cellpadding="0">
230 
			    <td>
230 
			  <tr>
231 
			      <table width="100%" border="0" cellspacing="0" cellpadding="0">
 231 
			    <td>
232 
			        <tr>
232 
			      <table width="100%" border="0" cellspacing="0" cellpadding="0">
233 
			          <td width="1%">&nbsp;</td>
 233 
			        <tr>
234 
			          <td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td>
 234 
			          <td width="1%">&nbsp;</td>
235 
			          <td width="1%">&nbsp;</td>
 235 
			          <td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td>
236 
			        </tr>
 236 
			          <td width="1%">&nbsp;</td>
237 
			        <tr>
237 
			        </tr>
238 
			          <td width="1%">&nbsp;</td>
 238 
			        <tr>
239 
			          <td>
239 
			          <td width="1%">&nbsp;</td>
240 
			            <table width="100%" border="0" cellspacing="0" cellpadding="0">
 240 
			          <td>
241 
			              <tr>
241 
			            <table width="100%" border="0" cellspacing="0" cellpadding="0">
242 
			                <td nowrap class="form_ttl"></td>
 242 
			              <tr>
243 
			                <td align="right" valign="bottom">
 243 
			                <td nowrap class="form_ttl"></td>
244 
			                  <!-- TABS -->
 244 
			                <td align="right" valign="bottom">
245 
							  &nbsp;
 245 
			                  <!-- TABS -->
246 
			                </td>
 246 
							  &nbsp;
247 
			              </tr>
 247 
			                </td>
248 
			            </table>
 248 
			              </tr>
249 
			          </td>
 249 
			            </table>
250 
			          <td width="1%">&nbsp;</td>
 250 
			          </td>
251 
			        </tr>
 251 
			          <td width="1%">&nbsp;</td>
252 
			        <tr>
252 
			        </tr>
253 
			          <td align="left" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 253 
			        <tr>
254 
			          <td background="images/lbox_bg_blue.gif"></td>
 254 
			          <td align="left" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
255 
			          <td align="right" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 255 
			          <td background="images/lbox_bg_blue.gif"></td>
256 
			        </tr>
 256 
			          <td align="right" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
257 
			        <tr>
257 
			        </tr>
258 
			          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 258 
			        <tr>
259 
			          <td bgcolor="#FFFFFF" valign="top">
259 
			          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
260 
			            <!-- Body -->
 260 
			          <td bgcolor="#FFFFFF" valign="top">
261 
						<%Response.Write MSG%>
 261 
			            <!-- Body -->
262 
			            <!-- END Body-->
 262 
						<%Response.Write MSG%>
263 
			          </td>
 263 
			            <!-- END Body-->
264 
			          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
 264 
			          </td>
265 
			        </tr>
 265 
			          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
266 
			        <tr>
266 
			        </tr>
267 
			          <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 267 
			        <tr>
268 
			          <td background="images/lbox_bg_blue.gif"></td>
 268 
			          <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
269 
			          <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 269 
			          <td background="images/lbox_bg_blue.gif"></td>
270 
			        </tr>
 270 
			          <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
271 
			      </table>
 271 
			        </tr>
272 
			    </td>
 272 
			      </table>
273 
			  </tr>
 273 
			    </td>
274 
			</table>
274 
			  </tr>
275 
		  </td>
 275 
			</table>
276 
        </tr>
 276 
		  </td>
277 
      </table>
 277 
        </tr>
278 
    </td>
 278 
      </table>
279 
  </tr>
 279 
    </td>
280 
</table>
 280 
  </tr>
281 
<!-- FOOTER -->
 281 
</table>
282 
<!--#include file="_footer.asp"-->
 282 
<!-- FOOTER -->
283 
</body>
 283 
<!--#include file="_footer.asp"-->
284 
</html>
 284 
</body>
285 
<%
 285 
</html>
286 
Call Destroy_All_Objects
 286 
<%
287 
%>
 287 
Call Destroy_All_Objects
- 
 
 288 
%>
288 
<%End If%>
 289 
<%End If%>
289 

            290