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 
'|				    	Add Release				     |
 5 
'|				    	Add 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/_form_window_common.asp"-->
 19 
<!--#include file="common/_form_window_common.asp"-->
20 
<%
 20 
<%
21 
' Set rfile parameter. This is a return page after Login
 21 
' Set rfile parameter. This is a return page after Login
22 
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
 22 
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
23 
objPMod.PersistInQryString("proj_id")
 23 
objPMod.PersistInQryString("proj_id")
24 
'------------ ACCESS CONTROL ------------------
 24 
'------------ ACCESS CONTROL ------------------
25 
%>
 25 
%>
26 
<!--#include file="_access_control_login.asp"-->
 26 
<!--#include file="_access_control_login.asp"-->
27 
<!--#include file="_access_control_general.asp"-->
 27 
<!--#include file="_access_control_general.asp"-->
28 
<!--#include file="_access_control_project.asp"-->
 28 
<!--#include file="_access_control_project.asp"-->
29 
<%
 29 
<%
30 
'------------ Variable Definition -------------
 30 
'------------ Variable Definition -------------
31 
Dim objSortHelper
 31 
Dim objSortHelper
32 
Dim rsQry
 32 
Dim rsQry
33 
Dim parProjId
 33 
Dim parProjId
34 
Dim parSourceRtagId
 34 
Dim parSourceRtagId
35 
'------------ Constants Declaration -----------
 35 
'------------ Constants Declaration -----------
36 
'------------ Variable Init -------------------
 36 
'------------ Variable Init -------------------
37 
parProjId = Request("proj_id")
 37 
parProjId = Request("proj_id")
38 
parSourceRtagId = Request("source_rtag_id")
 38 
parSourceRtagId = Request("source_rtag_id")
39 
objPMod.PersistInQryString("proj_id")
 39 
objPMod.PersistInQryString("proj_id")
40 
'----------------------------------------------
 40 
'----------------------------------------------
41 
%>
 41 
%>
42 
<%
 42 
<%
43 
'--------------------------------------------------------------------------------------------------------------------------
 43 
'--------------------------------------------------------------------------------------------------------------------------
44 
Sub GetFormDetails ( nSourceRtagId, ByRef outobjDetails )
 44 
Sub GetFormDetails ( nSourceRtagId, ByRef outobjDetails )
45 
	Dim rsQry, query
 45 
	Dim rsQry, query
46
46
47 
	' Exit if nSourceRtagId is empty
 47 
	' Exit if nSourceRtagId is empty
48 
	If nSourceRtagId = "" Then Exit Sub
48 
	If nSourceRtagId = "" Then Exit Sub
49
49
50
50
51 
	OraDatabase.Parameters.Add "SOURCE_RTAG_ID", 	nSourceRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
51 
	OraDatabase.Parameters.Add "SOURCE_RTAG_ID", 	nSourceRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
52
52
53 
	query = _
 53 
	query = _
54 
	" SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME ||' ['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']'  AS LOCATION"&_
 54 
	" SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME ||' ['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']'  AS LOCATION"&_
55 
	"  FROM RELEASE_TAGS rt,"&_
 55 
	"  FROM RELEASE_TAGS rt,"&_
56 
	"  	   PROJECTS pr"&_
 56 
	"  	   PROJECTS pr"&_
57 
	" WHERE rt.PROJ_ID = pr.PROJ_ID"&_
 57 
	" WHERE rt.PROJ_ID = pr.PROJ_ID"&_
58 
	"   AND rt.RTAG_ID = :SOURCE_RTAG_ID"
 58 
	"   AND rt.RTAG_ID = :SOURCE_RTAG_ID"
59
59
60 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 60 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
61
61
62 
	OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"
 62 
	OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"
63
63
64
64
65
65
66 
	If rsQry.RecordCount > 0 Then
 66 
	If rsQry.RecordCount > 0 Then
67 
		outobjDetails.Item ("location") = rsQry("location")
 67 
		outobjDetails.Item ("location") = rsQry("location")
68
68
69 
	Else
 69 
	Else
70 
		Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nSourceRtagId="& nSourceRtagId
 70 
		Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nSourceRtagId="& nSourceRtagId
71
71
72 
	End If
 72 
	End If
73
73
74
74
75 
	rsQry.Close
 75 
	rsQry.Close
76 
	Set rsQry = Nothing
 76 
	Set rsQry = Nothing
77 
End Sub
 77 
End Sub
78 
'--------------------------------------------------------------------------------------------------------------------------
 78 
'--------------------------------------------------------------------------------------------------------------------------
79 
Sub AddRelease ()
 79 
Sub AddRelease ()
80 
	On Error Resume Next
 80 
	On Error Resume Next
81
81
82 
	OraDatabase.Parameters.Add "SOURCE_RTAG_ID", 	Request("source_rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
82 
	OraDatabase.Parameters.Add "SOURCE_RTAG_ID", 	Request("source_rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
83 
	OraDatabase.Parameters.Add "PROJ_ID", 			Request("proj_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
83 
	OraDatabase.Parameters.Add "PROJ_ID", 			Request("proj_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
84 
	OraDatabase.Parameters.Add "RTAG_NAME", 		Request("rtag_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
 84 
	OraDatabase.Parameters.Add "RTAG_NAME", 		Request("rtag_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
85 
	OraDatabase.Parameters.Add "RTAG_DESCRIPTION", 	Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 85 
	OraDatabase.Parameters.Add "RTAG_DESCRIPTION", 	Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
86 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
86 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
87 
	OraDatabase.Parameters.Add "IS_BRANCH", 		Request("branch"), 	ORAPARM_INPUT, ORATYPE_CHAR
 87 
	OraDatabase.Parameters.Add "IS_BRANCH", 		Request("branch"), 	ORAPARM_INPUT, ORATYPE_CHAR
88
88
89 
	objEH.TryORA ( OraSession )
 89 
	objEH.TryORA ( OraSession )
90
90
91 
	OraDatabase.ExecuteSQL _
 91 
	OraDatabase.ExecuteSQL _
92 
	"BEGIN   PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID );   END;"
 92 
	"BEGIN   PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID );   END;"
93
93
94 
	objEH.CatchORA ( OraSession )
 94 
	objEH.CatchORA ( OraSession )
95
95
96 
	OraDatabase.Parameters.Add "SOURCE_RTAG_ID"
 96 
	OraDatabase.Parameters.Add "SOURCE_RTAG_ID"
97 
	OraDatabase.Parameters.Add "PROJ_ID"
 97 
	OraDatabase.Parameters.Add "PROJ_ID"
98 
	OraDatabase.Parameters.Add "RTAG_NAME"
 98 
	OraDatabase.Parameters.Add "RTAG_NAME"
99 
	OraDatabase.Parameters.Add "RTAG_DESCRIPTION"
 99 
	OraDatabase.Parameters.Add "RTAG_DESCRIPTION"
100 
	OraDatabase.Parameters.Add "USER_ID"
 100 
	OraDatabase.Parameters.Add "USER_ID"
101 
	OraDatabase.Parameters.Add "IS_BRANCH"
 101 
	OraDatabase.Parameters.Add "IS_BRANCH"
102 
End Sub
 102 
End Sub
103 
'--------------------------------------------------------------------------------------------------------------------------
 103 
'--------------------------------------------------------------------------------------------------------------------------
104 
%>
 104 
%>
105 
<%
 105 
<%
106 
'------------ RUN BEFORE PAGE RENDER ----------
 106 
'------------ RUN BEFORE PAGE RENDER ----------
107 
' --- Get Form details from DB ---
 107 
' --- Get Form details from DB ---
108 
Call GetFormDetails ( parSourceRtagId, objFormCollector )
 108 
Call GetFormDetails ( parSourceRtagId, objFormCollector )
109 
 
 109 
 
110 
' --- Load Validation Rules ---
 110 
' --- Load Validation Rules ---
111 
Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description"), OraDatabase )		' Load Validation Rules
 111 
Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description"), OraDatabase )		' Load Validation Rules
112 
 
 112 
 
113 
' --- Enter Form Validation Rule Changes here... ----
 113 
' --- Enter Form Validation Rule Changes here... ----
114 
'----------------------------------------------------
 114 
'----------------------------------------------------
115 
 
 115 
 
116 
' --- RUN onPostBack ---
 116 
' --- RUN onPostBack ---
117 
If Request("action") <> "" Then
 117 
If Request("action") <> "" Then
118 
	If objForm.IsValidOnPostBack Then
 118 
	If objForm.IsValidOnPostBack Then
119 
		' --- Form is Valid ---
 119 
		' --- Form is Valid ---
120 
		Call AddRelease()
 120 
		Call AddRelease()
121
121
122 
		If objEH.Finally Then
 122 
		If objEH.Finally Then
123 
			Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
 123 
			Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
124 
		End If
 124 
		End If
125
125
126 
	End If
 126 
	End If
127
127
128 
End If
 128 
End If
129 
 
 129 
 
130 
'----------------------------------------------
 130 
'----------------------------------------------
131 
%>
 131 
%>
132 
 
 132 
 
133 
<html>
 133 
<html>
134 
<head>
 134 
<head>
135 
<title>Release Manager</title>
 135 
<title>Release Manager</title>
136 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 136 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
137 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 137 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
138 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 138 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
139 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 139 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
140 
<script language="JavaScript" src="images/common.js"></script>
 140 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
141 
 
 141 
<script language="JavaScript" src="images/common.js"></script>
142 
<!-- DROPDOWN MENUS -->
 142 
 
143 
<!--#include file="_menu_def.asp"-->
 143 
<!-- DROPDOWN MENUS -->
144 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 144 
<!--#include file="_menu_def.asp"-->
145 
 
 145 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
146 
</head>
 146 
 
147 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onLoad="FormName.rtag_name.focus();">
 147 
</head>
148 
<!-- MENU LAYERS -------------------------------------->
 148 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onLoad="FormName.rtag_name.focus();">
149 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
149 
<!-- MENU LAYERS -------------------------------------->
150 
</div>
 150 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
151 
<!-- TIPS LAYERS -------------------------------------->
 151 
</div>
152 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 152 
<!-- TIPS LAYERS -------------------------------------->
153 
<!----------------------------------------------------->
 153 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
154 
<!-- HEADER -->
 154 
<!----------------------------------------------------->
155 
<!--#include file="_header.asp"-->
 155 
<!-- HEADER -->
156 
<!-- BODY ---->
 156 
<!--#include file="_header.asp"-->
157 
 
 157 
<!-- BODY ---->
158 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 158 
 
159 
<%
 159 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
160 
'-- FROM START ---------------------------------------------------------------------------------------------------------
 160 
<%
161 
objFormComponent.FormName = "FormName"
 161 
'-- FROM START ---------------------------------------------------------------------------------------------------------
162 
objFormComponent.Action = ScriptName
 162 
objFormComponent.FormName = "FormName"
163 
Call objFormComponent.FormStart()
 163 
objFormComponent.Action = ScriptName
164 
%>
 164 
Call objFormComponent.FormStart()
165 
  <tr>
165 
%>
166 
    <td width="1" background="images/bg_home_orange.gif" valign="top">
 166 
  <tr>
167 
	</td>
 167 
    <td width="1" background="images/bg_home_orange.gif" valign="top">
168 
	<td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0">
 168 
	</td>
169 
      <tr>
 169 
	<td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0">
170 
        <td width="1%"></td>
 170 
      <tr>
171 
        <td width="100%">
 171 
        <td width="1%"></td>
172 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
 172 
        <td width="100%">
173 
            <tr>
 173 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
174 
              <td nowrap class="form_ttl">NEW RELEASE </td>
 174 
            <tr>
175 
              <td align="right" valign="bottom"></td>
 175 
              <td nowrap class="form_ttl">NEW RELEASE </td>
176 
            </tr>
 176 
              <td align="right" valign="bottom"></td>
177 
        </table></td>
 177 
            </tr>
178 
        <td width="1%"></td>
 178 
        </table></td>
179 
      </tr>
 179 
        <td width="1%"></td>
180 
      <tr>
 180 
      </tr>
181 
        <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 181 
      <tr>
182 
        <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
 182 
        <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
183 
        <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 183 
        <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
184 
      </tr>
 184 
        <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
185 
      <tr>
 185 
      </tr>
186 
        <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 186 
      <tr>
187 
        <td bgcolor="#FFFFFF" valign="top">
 187 
        <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
188 
		<%
 188 
        <td bgcolor="#FFFFFF" valign="top">
189 
		If parSourceRtagId <> "" Then
 189 
		<%
190 
			Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
 190 
		If parSourceRtagId <> "" Then
191 
		End If
 191 
			Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
192 
		%>
 192 
		End If
193 
		<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
193 
		%>
194 
		<!--#include file="messages/_msg_inline.asp"-->
 194 
		<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
195 
		<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 195 
		<!--#include file="messages/_msg_inline.asp"-->
196 
		<br>
 196 
		<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
197 
		<table width="100%"  border="0" cellspacing="2" cellpadding="0">
 197 
		<br>
198 
		  <tr>
 198 
		<table width="100%"  border="0" cellspacing="2" cellpadding="0">
199 
			<td nowrap class="form_iname" valign="top">Release Name </td>
 199 
		  <tr>
200 
			<td valign="top" nowrap><%=objFormComponent.TextBox ( "rtag_name", objFormCollector.Item("rtag_name"), "class='form_ivalue' size='60'" )%></td>
 200 
			<td nowrap class="form_iname" valign="top">Release Name </td>
201 
			<td valign="top"><%=objForm.Validate ("rtag_name")%></td>
 201 
			<td valign="top" nowrap><%=objFormComponent.TextBox ( "rtag_name", objFormCollector.Item("rtag_name"), "class='form_ivalue' size='60'" )%></td>
202 
		  </tr>
 202 
			<td valign="top"><%=objForm.Validate ("rtag_name")%></td>
203 
		  <tr>
 203 
		  </tr>
204 
			<td nowrap class="form_iname" valign="top">Branch Release </td>
 204 
		  <tr>
205 
			<td valign="top" nowrap class="form_iname">
 205 
			<td nowrap class="form_iname" valign="top">Branch Release </td>
206 
			  <input name="branch" type="radio" value="N" checked>No
 206 
			<td valign="top" nowrap class="form_iname">
207 
			  <input name="branch" type="radio" value="Y" <%=iif(Request("branch") = "Y", " checked","")%>>Yes</td>
 207 
			  <input name="branch" type="radio" value="N" checked>No
208 
			<td valign="top"></td>
 208 
			  <input name="branch" type="radio" value="Y" <%=iif(Request("branch") = "Y", " checked","")%>>Yes</td>
209 
		  </tr>
 209 
			<td valign="top"></td>
210 
		  <tr>
 210 
		  </tr>
211 
			<td valign="top" nowrap class="form_iname">Comments</td>
 211 
		  <tr>
212 
			<td valign="top"><%=objFormComponent.TextArea ( "rtag_description", Request("rtag_description"), 10, 60, "class='form_ivalue'" )%></td>
 212 
			<td valign="top" nowrap class="form_iname">Comments</td>
213 
			<td valign="top"><%=objForm.Validate ("rtag_description")%></td>
 213 
			<td valign="top"><%=objFormComponent.TextArea ( "rtag_description", Request("rtag_description"), 10, 60, "class='form_ivalue'" )%></td>
214 
		  </tr>
 214 
			<td valign="top"><%=objForm.Validate ("rtag_description")%></td>
215 
		  <tr>
 215 
		  </tr>
216 
			<td width="10%" class="form_iname">&nbsp;</td>
 216 
		  <tr>
217 
			<td width="1%">&nbsp;</td>
 217 
			<td width="10%" class="form_iname">&nbsp;</td>
218 
			<td width="90%" class="val_err"></td>
 218 
			<td width="1%">&nbsp;</td>
219 
		  </tr>
 219 
			<td width="90%" class="val_err"></td>
220 
		</table>
 220 
		  </tr>
221
221 
		</table>
222 
		</td>
 222
223 
        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 223 
		</td>
224 
      </tr>
 224 
        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
225 
	  <tr>
 225 
      </tr>
226 
        <td background="images/bg_action_norm.gif" ></td>
 226 
	  <tr>
227 
        <td align="right" background="images/bg_action_norm.gif" >
 227 
        <td background="images/bg_action_norm.gif" ></td>
228 
		<%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
 228 
        <td align="right" background="images/bg_action_norm.gif" >
229 
		<%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
 229 
		<%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
230 
		<%=objPMod.ComposeHiddenTags()%>
 230 
		<%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
231 
		<input type="hidden" name="source_rtag_id" value="<%=parSourceRtagId%>">
 231 
		<%=objPMod.ComposeHiddenTags()%>
232 
		<input type="hidden" name="action" value="true">
 232 
		<input type="hidden" name="source_rtag_id" value="<%=parSourceRtagId%>">
233 
		</td>
 233 
		<input type="hidden" name="action" value="true">
234 
        <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
 234 
		</td>
235 
      </tr>
 235 
        <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
236 
      <tr>
 236 
      </tr>
237 
        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 237 
      <tr>
238 
        <td background="images/lbox_bg_blue.gif"></td>
 238 
        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
239 
        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 239 
        <td background="images/lbox_bg_blue.gif"></td>
240 
      </tr>
 240 
        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
241 
    </table>
 241 
      </tr>
242
242 
    </table>
243 
	<!-- ACTION BUTTONS ---------------------------------------------->
 243
244 
	<!-- ACTION BUTTONS END  ------------------------------------------></td>
 244 
	<!-- ACTION BUTTONS ---------------------------------------------->
245 
	<td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 245 
	<!-- ACTION BUTTONS END  ------------------------------------------></td>
246 
  </tr>
 246 
	<td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
247 
  <tr>
247 
  </tr>
248 
    <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>
 248 
  <tr>
249 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
 249 
    <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>
250 
  </tr>
 250 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
251 
<%
 251 
  </tr>
252 
Call objFormComponent.FormEnd()
 252 
<%
253 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 253 
Call objFormComponent.FormEnd()
254 
%>
254 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
255 
</table>
 255 
%>
256 
 
 256 
</table>
257 
 
 257 
 
258 
<!-- FOOTER -->
 258 
 
259 
<!--#include file="_footer.asp"-->
 259 
<!-- FOOTER -->
260 
</body>
 260 
<!--#include file="_footer.asp"-->
261 
</html>
 261 
</body>
262 
<%
 262 
</html>
263 
Call Destroy_All_Objects
 263 
<%
- 
 
 264 
Call Destroy_All_Objects
264 
%>
 265 
%>
265 

            266