Subversion Repositories DevTools

Rev

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

Rev 5184 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    	New Release				     |
 5 
'|				    	New Release				     |
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 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
 17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
 18 
<!--#include file="common/common_subs.asp"-->
19 
<!--#include file="common/_rtree_common.asp"-->
 19 
<!--#include file="common/_rtree_common.asp"-->
20 
<!--#include file="common/_form_window_common.asp"-->
 20 
<!--#include file="common/_form_window_common.asp"-->
21 
<%
 21 
<%
22 
' Set rfile parameter. This is a return page after Login
 22 
' Set rfile parameter. This is a return page after Login
23 
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
 23 
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
24 
objPMod.PersistInQryString("proj_id")
 24 
objPMod.PersistInQryString("proj_id")
25 
objPMod.PersistInQryString("branch")
 25 
objPMod.PersistInQryString("branch")
26 
'------------ ACCESS CONTROL ------------------
 26 
'------------ ACCESS CONTROL ------------------
27 
%>
 27 
%>
28 
<!--#include file="_access_control_login.asp"-->
 28 
<!--#include file="_access_control_login.asp"-->
29 
<!--#include file="_access_control_general.asp"-->
 29 
<!--#include file="_access_control_general.asp"-->
30 
<!--#include file="_access_control_project.asp"-->
 30 
<!--#include file="_access_control_project.asp"-->
31 
<%
 31 
<%
32 
'------------ Variable Definition -------------
 32 
'------------ Variable Definition -------------
33 
Dim objSortHelper
 33 
Dim objSortHelper
34 
Dim rsQry
 34 
Dim rsQry
35 
Dim parProjId
 35 
Dim parProjId
36 
Dim isSelectDisabled
 36 
Dim isSelectDisabled
37 
'------------ Constants Declaration -----------
 37 
'------------ Constants Declaration -----------
38 
'------------ Variable Init -------------------
 38 
'------------ Variable Init -------------------
39 
parProjId = Request("proj_id")
 39 
parProjId = Request("proj_id")
40 
'----------------------------------------------
 40 
'----------------------------------------------
41 
%>
 41 
%>
42 
<%
 42 
<%
43 
'--------------------------------------------------------------------------------------------------------------------------
 43 
'--------------------------------------------------------------------------------------------------------------------------
44 
Sub GetWipReleaseList ( nProjId )
 44 
Sub GetWipReleaseList ( nProjId )
45 
	Dim rsQry, query
 45 
	Dim rsQry, query
46 
	OraDatabase.Parameters.Add "PROJ_ID", 	nProjId,		ORAPARM_INPUT, ORATYPE_NUMBER
46 
	OraDatabase.Parameters.Add "PROJ_ID", 	nProjId,		ORAPARM_INPUT, ORATYPE_NUMBER
47
47
48 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("WipReleaseList.sql"), ORADYN_DEFAULT )
 48 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("WipReleaseList.sql"), ORADYN_DEFAULT )
49
49
50 
	OraDatabase.Parameters.Remove "PROJ_ID"
 50 
	OraDatabase.Parameters.Remove "PROJ_ID"
51
51
52 
	If rsQry.RecordCount < 1 Then
 52 
	If rsQry.RecordCount < 1 Then
53 
		Response.write "No recent releases found."
 53 
		Response.write "No recent releases found."
54 
	End If
 54 
	End If
55
55
56 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 56 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
57 
		Response.write "<a href='form_add_release.asp?source_rtag_id="& rsQry("rtag_id") &"&"& objPMod.ComposeURL() &"' class='body_link'>"&_
 57 
		Response.write "<a href='form_add_release.asp?source_rtag_id="& rsQry("rtag_id") &"&"& objPMod.ComposeURL() &"' class='body_link'>"&_
58 
					    ReleaseIcon( rsQry("official") ) & rsQry("rtag_name").Value &" ["& rsQry("version") &"]</a><br>"
 58 
					    ReleaseIcon( rsQry("official") ) & rsQry("rtag_name").Value &" ["& rsQry("version") &"]</a><br>"
59 
		rsQry.MoveNext
 59 
		rsQry.MoveNext
60 
	WEnd
 60 
	WEnd
61
61
62
62
63
63
64 
	rsQry.Close
 64 
	rsQry.Close
65 
	Set rsQry = Nothing
 65 
	Set rsQry = Nothing
66 
End Sub
 66 
End Sub
67 
'--------------------------------------------------------------------------------------------------------------------------
 67 
'--------------------------------------------------------------------------------------------------------------------------
68 
Function GetReleaseList ( nProjId, nRtagId )
 68 
Function GetReleaseList ( nProjId, nRtagId )
69 
	Dim rsQry, Selected, aComboItems, lastItem, i
 69 
	Dim rsQry, Selected, aComboItems, lastItem, i
70
70
71 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,	ORAPARM_INPUT, ORATYPE_NUMBER
 71 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,	ORAPARM_INPUT, ORATYPE_NUMBER
72 
	OraDatabase.Parameters.Add "RTAG_ID", 	nRtagId,	ORAPARM_INPUT, ORATYPE_NUMBER
72 
	OraDatabase.Parameters.Add "RTAG_ID", 	nRtagId,	ORAPARM_INPUT, ORATYPE_NUMBER
73
73
74 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReleasesCombo.sql"), ORADYN_DEFAULT )
 74 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReleasesCombo.sql"), ORADYN_DEFAULT )
75
75
76 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 76 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
77 
		aComboItems = rsQry.GetRows()
 77 
		aComboItems = rsQry.GetRows()
78
78
79 
	Else
 79 
	Else
80 
		Err.Raise 8, "Sub GetReleaseList", "Empty record set returned. nProjId="& nProjId
 80 
		Err.Raise 8, "Sub GetReleaseList", "Empty record set returned. nProjId="& nProjId
81
81
82 
	End If
 82 
	End If
83
83
84 
	OraDatabase.Parameters.Remove "PROJ_ID"
 84 
	OraDatabase.Parameters.Remove "PROJ_ID"
85 
	OraDatabase.Parameters.Remove "PROJ_ID"
 85 
	OraDatabase.Parameters.Remove "PROJ_ID"
86
86
87 
	rsQry.Close
 87 
	rsQry.Close
88 
	Set rsQry = Nothing
 88 
	Set rsQry = Nothing
89
89
90
90
91 
	'-- Return Combo Items Array
 91 
	'-- Return Combo Items Array
92 
	GetReleaseList = aComboItems
 92 
	GetReleaseList = aComboItems
93
93
94 
End Function
 94 
End Function
95 
'--------------------------------------------------------------------------------------------------------------------------
 95 
'--------------------------------------------------------------------------------------------------------------------------
96 
Function GetProjectList ( nProjId )
 96 
Function GetProjectList ( nProjId )
97 
	Dim rsQry, Selected, aComboItems, lastItem, i
 97 
	Dim rsQry, Selected, aComboItems, lastItem, i
98
98
99 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,	ORAPARM_INPUT, ORATYPE_NUMBER
 99 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,	ORAPARM_INPUT, ORATYPE_NUMBER
100
100
101 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), ORADYN_DEFAULT )
 101 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), ORADYN_DEFAULT )
102
102
103 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 103 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
104 
		aComboItems = rsQry.GetRows()
 104 
		aComboItems = rsQry.GetRows()
105
105
106 
	Else
 106 
	Else
107 
		Err.Raise 8, "Sub GetProjectList", "Empty record set returned. nProjId="& nProjId
 107 
		Err.Raise 8, "Sub GetProjectList", "Empty record set returned. nProjId="& nProjId
108
108
109 
	End If
 109 
	End If
110
110
111 
	OraDatabase.Parameters.Remove "PROJ_ID"
 111 
	OraDatabase.Parameters.Remove "PROJ_ID"
112
112
113 
	rsQry.Close
 113 
	rsQry.Close
114 
	Set rsQry = Nothing
 114 
	Set rsQry = Nothing
115
115
116
116
117 
	'-- Alter combo item link column to work with OnChange javascript
 117 
	'-- Alter combo item link column to work with OnChange javascript
118 
	lastItem = Ubound( aComboItems, 2 )
 118 
	lastItem = Ubound( aComboItems, 2 )
119 
	For i = 0 To lastItem
 119 
	For i = 0 To lastItem
120 
		aComboItems(0, i) = ScriptName &"?from_proj_id="& aComboItems(0, i) &"&"& objPMod.ComposeURL()
 120 
		aComboItems(0, i) = ScriptName &"?from_proj_id="& aComboItems(0, i) &"&"& objPMod.ComposeURL()
121 
	Next
 121 
	Next
122
122
123
123
124 
	'-- Return Combo Items Array
 124 
	'-- Return Combo Items Array
125 
	GetProjectList = aComboItems
 125 
	GetProjectList = aComboItems
126
126
127 
End Function
 127 
End Function
128 
'--------------------------------------------------------------------------------------------------------------------------
 128 
'--------------------------------------------------------------------------------------------------------------------------
129 
%>
 129 
%>
130 
<%
 130 
<%
131 
'------------ RUN BEFORE PAGE RENDER ----------
 131 
'------------ RUN BEFORE PAGE RENDER ----------
132 
'-- Redirect if known from_bom_id
 132 
'-- Redirect if known from_bom_id
133 
If Request("rtag_id_list") <> "" Then
 133 
If Request("rtag_id_list") <> "" Then
134 
	Call OpenInWindow ( "form_add_release.asp?source_rtag_id="& Request("rtag_id_list") &"&"& objPMod.ComposeURL() )
 134 
	Call OpenInWindow ( "form_add_release.asp?source_rtag_id="& Request("rtag_id_list") &"&"& objPMod.ComposeURL() )
135 
End If
 135 
End If
136 
 
 136 
 
137 
'----------------------------------------------
 137 
'----------------------------------------------
138 
%>
 138 
%>
139 
 
 139 
 
140 
<html>
 140 
<html>
141 
<head>
 141 
<head>
142 
<title>Release Manager</title>
 142 
<title>Release Manager</title>
143 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 143 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
144 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 144 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
145 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 145 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
146 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 146 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
147 
<script language="JavaScript" src="images/common.js"></script>
 147 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
148 
 
 148 
<script language="JavaScript" src="images/common.js"></script>
149 
<!-- DROPDOWN MENUS -->
 149 
 
150 
<!--#include file="_menu_def.asp"-->
 150 
<!-- DROPDOWN MENUS -->
151 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 151 
<!--#include file="_menu_def.asp"-->
152 
 
 152 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
153 
</head>
 153 
 
154 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 154 
</head>
155 
<!-- MENU LAYERS -------------------------------------->
 155 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
156 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
156 
<!-- MENU LAYERS -------------------------------------->
157 
</div>
 157 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
158 
<!-- TIPS LAYERS -------------------------------------->
 158 
</div>
159 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 159 
<!-- TIPS LAYERS -------------------------------------->
160 
<!----------------------------------------------------->
 160 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
161 
<!-- HEADER -->
 161 
<!----------------------------------------------------->
162 
<!--#include file="_header.asp"-->
 162 
<!-- HEADER -->
163 
<!-- BODY ---->
 163 
<!--#include file="_header.asp"-->
164 
 
 164 
<!-- BODY ---->
165 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 165 
 
166 
<%
 166 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
167 
'-- FROM START ---------------------------------------------------------------------------------------------------------
 167 
<%
168 
objFormComponent.FormName = "FormName"
 168 
'-- FROM START ---------------------------------------------------------------------------------------------------------
169 
objFormComponent.Action = "form_add_release.asp?proj_id="&Request("proj_id")
 169 
objFormComponent.FormName = "FormName"
170 
Call objFormComponent.FormStart()
 170 
objFormComponent.Action = "form_add_release.asp?proj_id="&Request("proj_id")
171 
%>
 171 
Call objFormComponent.FormStart()
172 
  <tr>
172 
%>
173 
    <td width="1" background="images/bg_home_orange.gif" valign="top">
 173 
  <tr>
174 
	</td>
 174 
    <td width="1" background="images/bg_home_orange.gif" valign="top">
175 
	<td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0">
 175 
	</td>
176 
      <tr>
 176 
	<td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0">
177 
        <td width="1%"></td>
 177 
      <tr>
178 
        <td width="100%">
 178 
        <td width="1%"></td>
179 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
 179 
        <td width="100%">
180 
            <tr>
 180 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
181 
              <td nowrap class="form_ttl">NEW RELEASE </td>
 181 
            <tr>
182 
              <td align="right" valign="bottom"></td>
 182 
              <td nowrap class="form_ttl">NEW RELEASE </td>
183 
            </tr>
 183 
              <td align="right" valign="bottom"></td>
184 
        </table></td>
 184 
            </tr>
185 
        <td width="1%"></td>
 185 
        </table></td>
186 
      </tr>
 186 
        <td width="1%"></td>
187 
      <tr>
 187 
      </tr>
188 
        <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 188 
      <tr>
189 
        <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
 189 
        <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
190 
        <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 190 
        <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
191 
      </tr>
 191 
        <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
192 
      <tr>
 192 
      </tr>
193 
        <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 193 
      <tr>
194 
        <td bgcolor="#FFFFFF" valign="top">
 194 
        <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
195 
          <table width="100%"  border="0" cellspacing="10" cellpadding="0">
 195 
        <td bgcolor="#FFFFFF" valign="top">
196 
            <tr>
 196 
          <table width="100%"  border="0" cellspacing="10" cellpadding="0">
197 
              <td width="33%" valign="top" class="body_txt"> <strong>Create New</strong><br><br>
 197 
            <tr>
198 
                  <a href="form_add_release.asp?NEXT=OK&<%=objPMod.ComposeURL()%>" class="body_link" title="Create release without any contents."><img src="images/i_rtag_new.gif" width="17" height="15" hspace="5" vspace="3" border="0" align="absmiddle">Blank </a><br>
 198 
              <td width="33%" valign="top" class="body_txt"> <strong>Create New</strong><br><br>
199 
                  <br>
 199 
                  <a href="form_add_release.asp?NEXT=OK&<%=objPMod.ComposeURL()%>" class="body_link" title="Create release without any contents."><img src="images/i_rtag_new.gif" width="17" height="15" hspace="5" vspace="3" border="0" align="absmiddle">Blank </a><br>
200 
              </td>
 200 
                  <br>
201 
              <td width="1" background="images/bg_bage_2.gif"><img src="images/spacer.gif" width="1" height="250"></td>
 201 
              </td>
202 
              <td nowrap width="34%" valign="top" class="body_txt"> <strong>Create from Recent </strong><br><br>
 202 
              <td width="1" background="images/bg_bage_2.gif"><img src="images/spacer.gif" width="1" height="250"></td>
203 
                  <%Call GetWipReleaseList ( parProjId )%>
 203 
              <td nowrap width="34%" valign="top" class="body_txt"> <strong>Create from Recent </strong><br><br>
204 
              </td>
 204 
                  <%Call GetWipReleaseList ( parProjId )%>
205 
              <td width="1" background="images/bg_bage_2.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 205 
              </td>
206 
              <td width="33%" valign="top" class="body_txt" nowrap> <strong>Create From Other</strong><br>
 206 
              <td width="1" background="images/bg_bage_2.gif"><img src="images/spacer.gif" width="1" height="1"></td>
207 
                  <br>
 207 
              <td width="33%" valign="top" class="body_txt" nowrap> <strong>Create From Other</strong><br>
208 
              	<%=objFormComponent.Combo ( "from_proj_id", GetProjectList( Request("from_proj_id") ), TRUE, "class='form_ivalue' onChange=""MM_jumpMenu('parent',this,0)"" " )%><br>
 208 
                  <br>
209 
				<%
 209 
              	<%=objFormComponent.Combo ( "from_proj_id", GetProjectList( Request("from_proj_id") ), TRUE, "class='form_ivalue' onChange=""MM_jumpMenu('parent',this,0)"" " )%><br>
210 
				isSelectDisabled = "disabled"
 210 
				<%
211 
				If Request("from_proj_id") <> "" Then
211 
				isSelectDisabled = "disabled"
212 
					Response.write objFormComponent.Combo ( "source_rtag_id", GetReleaseList( Request("from_proj_id"), Request("source_rtag_id") ), FALSE, "class='form_ivalue' " )
 212 
				If Request("from_proj_id") <> "" Then
213 
					Response.write "<br>"
 213 
					Response.write objFormComponent.Combo ( "source_rtag_id", GetReleaseList( Request("from_proj_id"), Request("source_rtag_id") ), FALSE, "class='form_ivalue' " )
214 
					isSelectDisabled = ""
 214 
					Response.write "<br>"
215 
				End If
 215 
					isSelectDisabled = ""
216 
				%>
216 
				End If
217
217 
				%>
218 
				  <%=objFormComponent.SubmitButton ( "Select", "class='form_ivalue' "& isSelectDisabled )%>
 218
219 
				  </td>
 219 
				  <%=objFormComponent.SubmitButton ( "Select", "class='form_ivalue' "& isSelectDisabled )%>
220 
            </tr>
 220 
				  </td>
221 
          </table>
 221 
            </tr>
222
222 
          </table>
223 
        </td>
 223
224 
        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 224 
        </td>
225 
      </tr>
 225 
        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
226 
	  <tr>
 226 
      </tr>
227 
        <td background="images/bg_action_norm.gif" ></td>
 227 
	  <tr>
228 
        <td align="right" background="images/bg_action_norm.gif" ><input type="reset" name="btn" value="Cancel" class="form_btn" onClick="history.back();"></td>
 228 
        <td background="images/bg_action_norm.gif" ></td>
229 
        <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
 229 
        <td align="right" background="images/bg_action_norm.gif" ><input type="reset" name="btn" value="Cancel" class="form_btn" onClick="history.back();"></td>
230 
      </tr>
 230 
        <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
231 
      <tr>
 231 
      </tr>
232 
        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 232 
      <tr>
233 
        <td background="images/lbox_bg_blue.gif"></td>
 233 
        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
234 
        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 234 
        <td background="images/lbox_bg_blue.gif"></td>
235 
      </tr>
 235 
        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
236 
    </table>
 236 
      </tr>
237
237 
    </table>
238 
	<!-- ACTION BUTTONS ---------------------------------------------->
 238
239 
	<!-- ACTION BUTTONS END  ------------------------------------------></td>
 239 
	<!-- ACTION BUTTONS ---------------------------------------------->
240 
	<td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 240 
	<!-- ACTION BUTTONS END  ------------------------------------------></td>
241 
  </tr>
 241 
	<td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
242 
  <tr>
242 
  </tr>
243 
    <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
 243 
  <tr>
244 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
 244 
    <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
245 
  </tr>
 245 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
246 
 <%
 246 
  </tr>
247 
Call objFormComponent.FormEnd()
 247 
 <%
248 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 248 
Call objFormComponent.FormEnd()
249 
%>
249 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
250 
</table>
 250 
%>
251 
 
 251 
</table>
252 
 
 252 
 
253 
<!-- FOOTER -->
 253 
 
254 
<!--#include file="_footer.asp"-->
 254 
<!-- FOOTER -->
255 
</body>
 255 
<!--#include file="_footer.asp"-->
256 
</html>
 256 
</body>
257 
<%
 257 
</html>
258 
Call Destroy_All_Objects
 258 
<%
- 
 
 259 
Call Destroy_All_Objects
259 
%>
 260 
%>
260 

            261