Subversion Repositories DevTools

Rev

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

Rev 129 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|                   wAddProc                        |
 5 
'|                   wAddProc                        |
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/conf.asp"-->
 13 
<!--#include file="common/conf.asp"-->
14 
<!--#include file="common/globals.asp"-->
 14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/formating.asp"-->
 15 
<!--#include file="common/formating.asp"-->
16 
<!--#include file="common/qstr.asp"-->
 16 
<!--#include file="common/qstr.asp"-->
17 
<!--#include file="common/common_subs.asp"-->
 17 
<!--#include file="common/common_subs.asp"-->
18 
<!--#include file="common/_form_window_common.asp"-->
 18 
<!--#include file="common/_form_window_common.asp"-->
19 
<%
 19 
<%
20 
'------------ ACCESS CONTROL ------------------
 20 
'------------ ACCESS CONTROL ------------------
21 
%>
 21 
%>
22 
<!--#include file="_access_control_general.asp"-->
 22 
<!--#include file="_access_control_general.asp"-->
23 
<!--#include file="_access_control_login.asp"-->
 23 
<!--#include file="_access_control_login.asp"-->
24 
<%
 24 
<%
25 
'------------ VARIABLE DEFINITION -------------
 25 
'------------ VARIABLE DEFINITION -------------
26 
Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc
 26 
Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc
27 
Dim sMessage
 27 
Dim sMessage
28 
Dim SEQ_proc_id
 28 
Dim SEQ_proc_id
29 
'------------ CONSTANTS DECLARATION -----------
 29 
'------------ CONSTANTS DECLARATION -----------
30 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 30 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
31 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
 31 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
32 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
 32 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
33 
'------------ VARIABLE INIT -------------------
 33 
'------------ VARIABLE INIT -------------------
34 
sMessage = NULL
 34 
sMessage = NULL
35 
isInterface = NULL
 35 
isInterface = NULL
36 
'parOs_id = Request("os_id")
 36 
'parOs_id = Request("os_id")
37 
'parBom_id = Request("bom_id")
 37 
'parBom_id = Request("bom_id")
38 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 38 
Set objFormCollector = CreateObject("Scripting.Dictionary")
39 
'------------ CONDITIONS ----------------------
 39 
'------------ CONDITIONS ----------------------
40 
'----------------------------------------------
 40 
'----------------------------------------------
41 
%>
 41 
%>
42 
<%
 42 
<%
43 
 
 43 
 
44 
%>
 44 
%>
45 
<%
 45 
<%
46 
'------------ RUN BEFORE PAGE RENDER ----------
 46 
'------------ RUN BEFORE PAGE RENDER ----------
47 
 
 47 
 
48 
 
 48 
 
49 
If CBool(Request("action")) Then
 49 
If CBool(Request("action")) Then
50 
 
 50 
 
51 
   Dim Query_String
 51 
   Dim Query_String
52 
 
 52 
 
53 
   If Request("isInterface") = "" Then
 53 
   If Request("isInterface") = "" Then
54 
      isInterface = "F"
 54 
      isInterface = "F"
55 
   Else
 55 
   Else
56 
      isInterface = "T"
 56 
      isInterface = "T"
57 
   End If
 57 
   End If
58 
 
 58 
 
59 
   Query_String = _
 59 
   Query_String = _
60 
   "   SELECT * FROM PROCESSES WHERE PROC_NAME = '"& Request("healthTag") &"'"&_
 60 
   "   SELECT * FROM PROCESSES WHERE PROC_NAME = '"& Request("healthTag") &"'"&_
61 
   "   AND RUN_AS = '"& Request("cmdInterface") &"' AND PKG_OWNER = '"& Request("pkgOwner") &"'"&_
 61 
   "   AND RUN_AS = '"& Request("cmdInterface") &"' AND PKG_OWNER = '"& Request("pkgOwner") &"'"&_
62 
   "   AND IS_INTERFACE = '"& isInterface &"'"
 62 
   "   AND IS_INTERFACE = '"& isInterface &"'"
63 
 
 63 
 
64 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 64 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
65 
 
 65 
 
66 
   If rsTemp.RecordCount = 0 Then
 66 
   If rsTemp.RecordCount = 0 Then
67 
 
 67 
 
68 
      SEQ_proc_id = Get_From_DUAL("DEPLOYMENT_MANAGER.SEQ_PROC_ID.nextval")
 68 
      SEQ_proc_id = Get_From_DUAL("DEPLOYMENT_MANAGER.SEQ_PROC_ID.nextval")
69 
 
 69 
 
70 
      OraDatabase.Parameters.Add "PROC_ID",         SEQ_proc_id,              ORAPARM_INPUT, ORATYPE_NUMBER
 70 
      OraDatabase.Parameters.Add "PROC_ID",         SEQ_proc_id,              ORAPARM_INPUT, ORATYPE_NUMBER
71 
      OraDatabase.Parameters.Add "PKG_HEALTH_TAG",  Request("healthTag"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
 71 
      OraDatabase.Parameters.Add "PKG_HEALTH_TAG",  Request("healthTag"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
72 
      OraDatabase.Parameters.Add "PROC_DESC",       Request("procDesc"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
 72 
      OraDatabase.Parameters.Add "PROC_DESC",       Request("procDesc"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
73 
      OraDatabase.Parameters.Add "CMD_INTERFACE",   Request("cmdInterface"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
 73 
      OraDatabase.Parameters.Add "CMD_INTERFACE",   Request("cmdInterface"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
74 
      OraDatabase.Parameters.Add "PKG_OWNER",       Request("pkgOwner"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
 74 
      OraDatabase.Parameters.Add "PKG_OWNER",       Request("pkgOwner"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
75 
      OraDatabase.Parameters.Add "IS_INTERFACE",    isInterface,              ORAPARM_INPUT, ORATYPE_VARCHAR
 75 
      OraDatabase.Parameters.Add "IS_INTERFACE",    isInterface,              ORAPARM_INPUT, ORATYPE_VARCHAR
76 
      OraDatabase.Parameters.Add "PV_ID",           Request("pv_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
 76 
      OraDatabase.Parameters.Add "PV_ID",           Request("pv_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
77 
      OraDatabase.Parameters.Add "USER_ID",         objAccessControl.UserId,  ORAPARM_INPUT, ORATYPE_NUMBER
 77 
      OraDatabase.Parameters.Add "USER_ID",         objAccessControl.UserId,  ORAPARM_INPUT, ORATYPE_NUMBER
78 
 
 78 
 
79 
      objEH.TryORA ( OraSession )
 79 
      objEH.TryORA ( OraSession )
80 
      On Error Resume Next
 80 
      On Error Resume Next
81 
 
 81 
 
82 
      OraDatabase.ExecuteSQL _
 82 
      OraDatabase.ExecuteSQL _
83 
      "BEGIN  PK_PACKAGE.ADD_PROCESS( :PROC_ID, :PKG_HEALTH_TAG, :PROC_DESC, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PV_ID, :USER_ID);  END;"
 83 
      "BEGIN  PK_PACKAGE.ADD_PROCESS( :PROC_ID, :PKG_HEALTH_TAG, :PROC_DESC, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PV_ID, :USER_ID);  END;"
84 
 
 84 
 
85 
      objEH.CatchORA ( OraSession )
 85 
      objEH.CatchORA ( OraSession )
86 
 
 86 
 
87 
      OraDatabase.Parameters.Remove "PROC_ID"
 87 
      OraDatabase.Parameters.Remove "PROC_ID"
88 
      OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
 88 
      OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
89 
      OraDatabase.Parameters.Remove "PROC_DESC"
 89 
      OraDatabase.Parameters.Remove "PROC_DESC"
90 
      OraDatabase.Parameters.Remove "CMD_INTERFACE"
 90 
      OraDatabase.Parameters.Remove "CMD_INTERFACE"
91 
      OraDatabase.Parameters.Remove "PKG_OWNER"
 91 
      OraDatabase.Parameters.Remove "PKG_OWNER"
92 
      OraDatabase.Parameters.Remove "IS_INTERFACE"
 92 
      OraDatabase.Parameters.Remove "IS_INTERFACE"
93 
      OraDatabase.Parameters.Remove "PV_ID"
 93 
      OraDatabase.Parameters.Remove "PV_ID"
94 
      OraDatabase.Parameters.Remove "USER_ID"
 94 
      OraDatabase.Parameters.Remove "USER_ID"
95 
 
 95 
 
96 
      If objEH.Finally Then
 96 
      If objEH.Finally Then
97 
         Call OpenInParentWindow ("process_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 97 
         Call OpenInParentWindow ("process_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
98 
         Call CloseWindow()
 98 
         Call CloseWindow()
99 
      End If
 99 
      End If
100 
 
 100 
 
101 
   Else
 101 
   Else
102 
      Call RaiseMsg ( enum_MSG_PROCESS_EXISTS, Request("pv_id") )
 102 
      Call RaiseMsg ( enum_MSG_PROCESS_EXISTS, Request("pv_id") )
103 
   End If
 103 
   End If
104 
 
 104 
 
105 
   rsTemp.Close
 105 
   rsTemp.Close
106 
   Set rsTemp = nothing
 106 
   Set rsTemp = nothing
107 
 
 107 
 
108 
End If
 108 
End If
109 
 
 109 
 
110 
 
 110 
 
111 
'----------------------------------------------
 111 
'----------------------------------------------
112 
%>
 112 
%>
113 
<html>
 113 
<html>
114 
<head>
 114 
<head>
115 
<title>Release Manager</title>
 115 
<title>Release Manager</title>
116 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 116 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
117 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 117 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
118 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
 118 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
119 
<script language="JavaScript" src="scripts/common.js"></script>
 119 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
120 
</head>
 120 
<script language="JavaScript" src="scripts/common.js"></script>
121 
 
 121 
</head>
122 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormSearch.prod_name.focus();">
 122 
 
123 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 123 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormSearch.prod_name.focus();">
124 
   <tr>
 124 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
125 
      <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Process</span> <br>
 125 
   <tr>
126 
         Add a process for the package version.
 126 
      <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Process</span> <br>
127 
      </td>
 127 
         Add a process for the package version.
128 
   </tr>
 128 
      </td>
129 
   <%
 129 
   </tr>
130 
   '-- FROM START ---------------------------------------------------------------------------------------------------------------
 130 
   <%
131 
   objFormComponent.FormName = "FormSearch"
 131 
   '-- FROM START ---------------------------------------------------------------------------------------------------------------
132 
   objFormComponent.Action = "wAddProcessBySearch.asp"
 132 
   objFormComponent.FormName = "FormSearch"
133 
   Call objFormComponent.FormStart()
 133 
   objFormComponent.Action = "wAddProcessBySearch.asp"
134 
   %>
 134 
   Call objFormComponent.FormStart()
135 
   <tr>
 135 
   %>
136 
      <td background="images/bg_quicksearch.gif" class="body_txt">
 136 
   <tr>
137 
         <table width="100" border="0" cellspacing="3" cellpadding="0">
 137 
      <td background="images/bg_quicksearch.gif" class="body_txt">
138 
            <tr>
 138 
         <table width="100" border="0" cellspacing="3" cellpadding="0">
139 
               <td nowrap class="body_txtw"><strong>Process Search</strong> </td>
 139 
            <tr>
140 
               <td><input name="prod_name" type="text" class="body_txt" size="20"></td>
 140 
               <td nowrap class="body_txtw"><strong>Process Search</strong> </td>
141 
               <td><input name="btn" type="image" src="icons/b_search.gif" width="16" height="16" border="0"></td>
 141 
               <td><input name="prod_name" type="text" class="body_txt" size="20"></td>
142 
            </tr>
 142 
               <td><input name="btn" type="image" src="icons/b_search.gif" width="16" height="16" border="0"></td>
143 
         </table>
 143 
            </tr>
144 
      </td>
 144 
         </table>
145 
   </tr>
 145 
      </td>
146 
   <%=objPMod.ComposeHiddenTags()%>
 146 
   </tr>
147 
   <%
 147 
   <%=objPMod.ComposeHiddenTags()%>
148 
   Call objFormComponent.FormEnd()
 148 
   <%
149 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
 149 
   Call objFormComponent.FormEnd()
150 
   %>
 150 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
151 
 
 151 
   %>
152 
   <%
 152 
 
153 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
 153 
   <%
154 
   objFormComponent.FormName = "FormName"
 154 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
155 
   objFormComponent.Action = ScriptName
 155 
   objFormComponent.FormName = "FormName"
156 
   objFormComponent.OnSubmit = "ShowProgress();"
 156 
   objFormComponent.Action = ScriptName
157 
   Call objFormComponent.FormStart()
 157 
   objFormComponent.OnSubmit = "ShowProgress();"
158 
 
 158 
   Call objFormComponent.FormStart()
159 
   %>
 159 
 
160 
   <tr>
 160 
   %>
161 
      <td background="images/bg_login.gif">
 161 
   <tr>
162 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 162 
      <td background="images/bg_login.gif">
163 
            <tr>
 163 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
164 
               <td><%=ProgressBar()%></td>
 164 
            <tr>
165 
               <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
 165 
               <td><%=ProgressBar()%></td>
166 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();">
 166 
               <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
167 
               </td>
 167 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();">
168 
            </tr>
 168 
               </td>
169 
         </table>
 169 
            </tr>
170 
      </td>
 170 
         </table>
171 
   </tr>
 171 
      </td>
172 
   <tr>
 172 
   </tr>
173 
      <td>
 173 
   <tr>
174 
         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 174 
      <td>
175 
         <%Call Messenger ( sMessage , 3, "100%" )%>
 175 
         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
176 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 176 
         <%Call Messenger ( sMessage , 3, "100%" )%>
177 
         <!--#include file="messages/_msg_inline.asp"-->
 177 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
178 
         <table width="664" border="0">
 178 
         <!--#include file="messages/_msg_inline.asp"-->
179 
            <tr>
 179 
         <table width="664" border="0">
180 
               <td><span class="body_txt">Package Health Tag</span>&nbsp;</td>
 180 
            <tr>
181 
               <td><input name="healthTag" type="text" class="body_txt" value="<%=healthTag%>">&nbsp;</td>
 181 
               <td><span class="body_txt">Package Health Tag</span>&nbsp;</td>
182 
            </tr>
 182 
               <td><input name="healthTag" type="text" class="body_txt" value="<%=healthTag%>">&nbsp;</td>
183 
            <tr>
 183 
            </tr>
184 
               <td><span class="body_txt">Process Description</span></td>
 184 
            <tr>
185 
               <td><textarea name="procDesc" rows=3 cols=50 class="body_txt"><%=procDesc%></textarea></td>
 185 
               <td><span class="body_txt">Process Description</span></td>
186 
            </tr>
 186 
               <td><textarea name="procDesc" rows=3 cols=50 class="body_txt"><%=procDesc%></textarea></td>
187 
            <tr>
 187 
            </tr>
188 
               <td><span class="body_txt">Package/Product</span></td>
 188 
            <tr>
189 
               <td>
 189 
               <td><span class="body_txt">Package/Product</span></td>
190 
                  <%
 190 
               <td>
191 
                  Dim rsTemp
 191 
                  <%
192 
 
 192 
                  Dim rsTemp
193 
                  Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM PACKAGE_VERSIONS PV, PACKAGES PKG WHERE PV.PKG_ID = PKG.PKG_ID AND PV.PV_ID ="& Request("pv_id") &"", cint(0))
 193 
 
194 
                  Response.Write("<input name=""pkg_version"" type=""text"" class=""body_txt"" value="& rsTemp("pkg_name") &" size=70 disabled>")
 194 
                  Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM PACKAGE_VERSIONS PV, PACKAGES PKG WHERE PV.PKG_ID = PKG.PKG_ID AND PV.PV_ID ="& Request("pv_id") &"", cint(0))
195 
                  rsTemp.Close
 195 
                  Response.Write("<input name=""pkg_version"" type=""text"" class=""body_txt"" value="& rsTemp("pkg_name") &" size=70 disabled>")
196 
                  Set rsTemp = nothing
 196 
                  rsTemp.Close
197 
                  %>
 197 
                  Set rsTemp = nothing
198 
               </td>
 198 
                  %>
199 
            </tr>
 199 
               </td>
200 
            <tr>
 200 
            </tr>
201 
               <td><span class="body_txt">Command Interface</span></td>
 201 
            <tr>
202 
               <td><input name="cmdInterface" type="text" class="body_txt" value="<%=cmdInterface%>" size=80></td>
 202 
               <td><span class="body_txt">Command Interface</span></td>
203 
            </tr>
 203 
               <td><input name="cmdInterface" type="text" class="body_txt" value="<%=cmdInterface%>" size=80></td>
204 
            <tr>
 204 
            </tr>
205 
               <td><span class="body_txt">Is Interface</span></td>
 205 
            <tr>
206 
               <td><input type="checkbox" name="isInterface">
 206 
               <td><span class="body_txt">Is Interface</span></td>
207 
                  <span class="body_txt">(Checked If True)</span>
 207 
               <td><input type="checkbox" name="isInterface">
208 
               </td>
 208 
                  <span class="body_txt">(Checked If True)</span>
209 
            </tr>
 209 
               </td>
210 
            <tr>
 210 
            </tr>
211 
               <td><span class="body_txt">Package Owner</span></td>
 211 
            <tr>
212 
               <td><input name="pkgOwner" type="text" class="body_txt" value="<%=pkgOwner%>"></td>
 212 
               <td><span class="body_txt">Package Owner</span></td>
213 
            </tr>
 213 
               <td><input name="pkgOwner" type="text" class="body_txt" value="<%=pkgOwner%>"></td>
214 
            <tr>
 214 
            </tr>
215 
               <td>&nbsp;</td>
 215 
            <tr>
216 
               <td>&nbsp;</td>
 216 
               <td>&nbsp;</td>
217 
            </tr>
 217 
               <td>&nbsp;</td>
218 
         </table>
 218 
            </tr>
219 
      </td>
 219 
         </table>
220 
   </tr>
 220 
      </td>
221 
   <%=objPMod.ComposeHiddenTags()%>
 221 
   </tr>
222 
   <input type="hidden" name="action" value="true">
 222 
   <%=objPMod.ComposeHiddenTags()%>
223 
   <%
 223 
   <input type="hidden" name="action" value="true">
224 
   Call objFormComponent.FormEnd()
 224 
   <%
225 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
 225 
   Call objFormComponent.FormEnd()
226 
   %>
 226 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
227 
</table>
 227 
   %>
228 
</body>
 228 
</table>
229 
</html>
 229 
</body>
230 
<%
 230 
</html>
231 
'------------ RUN AFTER PAGE RENDER -----------
 231 
<%
232 
Set objFormCollector = Nothing
 232 
'------------ RUN AFTER PAGE RENDER -----------
233 
'----------------------------------------------
 233 
Set objFormCollector = Nothing
234 
Call Destroy_All_Objects
 234 
'----------------------------------------------
235 
%>
 235 
Call Destroy_All_Objects
- 
 
 236 
%>