Subversion Repositories DevTools

Rev

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

Rev 4218 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    	My Details				     |
 5 
'|				    	My Details				     |
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 
<%
 19 
<%
20 
'------------ ACCESS CONTROL ------------------
 20 
'------------ ACCESS CONTROL ------------------
21 
%>
 21 
%>
22 
<!--#include file="_access_control_login.asp"-->
 22 
<!--#include file="_access_control_login.asp"-->
23 
<!--#include file="_access_control_general.asp"-->
 23 
<!--#include file="_access_control_general.asp"-->
24 
<%
 24 
<%
25 
'------------ Variable Definition -------------
 25 
'------------ Variable Definition -------------
26 
Dim parDomainAuth
 26 
Dim parDomainAuth
27 
'------------ Constants Declaration -----------
 27 
'------------ Constants Declaration -----------
28 
'------------ Variable Init -------------------
 28 
'------------ Variable Init -------------------
29 
parDomainAuth = QStrPar("FRdomainauth")
 29 
parDomainAuth = QStrPar("FRdomainauth")
30 
If parDomainAuth = "" Then parDomainAuth = "N"
 30 
If parDomainAuth = "" Then parDomainAuth = "N"
31 
'----------------------------------------------
 31 
'----------------------------------------------
32 
%>
 32 
%>
33 
<%
 33 
<%
34 
Sub Update_Personal_Details ( NNuser_id, SSfullname, SSemail, SSDomainAuth, SSdomain_name )
 34 
Sub Update_Personal_Details ( NNuser_id, SSfullname, SSemail, SSDomainAuth, SSdomain_name )
35 
	Dim rsTemp, Query_String
 35 
	Dim rsTemp, Query_String
36 
	Query_String = _
 36 
	Query_String = _
37 
	"SELECT * FROM users WHERE user_id= "& NNuser_id
 37 
	"SELECT * FROM users WHERE user_id= "& NNuser_id
38 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 38 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
39
39
40 
	'update fields
 40 
	'update fields
41 
	rsTemp.Edit
 41 
	rsTemp.Edit
42 
	rsTemp.Fields("full_name").Value = SSfullname
 42 
	rsTemp.Fields("full_name").Value = SSfullname
43 
	rsTemp.Fields("user_email").Value = SSemail
 43 
	rsTemp.Fields("user_email").Value = SSemail
44 
 
 44 
 
45 
    ' Removed ability for user to configure domain name
 45 
    ' Removed ability for user to configure domain name
46 
    ' This is done via access manager
 46 
    ' This is done via access manager
47 
    ' Note: Code is suspect anyway. Can clear domain login - but can't set it
 47 
    ' Note: Code is suspect anyway. Can clear domain login - but can't set it
48 
	'If SSDomainAuth = "N"  AND objAccessControl.Domain <> "" Then
 48 
	'If SSDomainAuth = "N"  AND objAccessControl.Domain <> "" Then
49 
	'	If SSDomainAuth = "Y" Then
 49 
	'	If SSDomainAuth = "Y" Then
50 
	'		rsTemp.Fields("user_password").Value = NULL
 50 
	'		rsTemp.Fields("user_password").Value = NULL
51 
	'		rsTemp.Fields("domain").Value = SSdomain_name
 51 
	'		rsTemp.Fields("domain").Value = SSdomain_name
52 
	'	Else
 52 
	'	Else
53 
	'		rsTemp.Fields("domain").Value = NULL
 53 
	'		rsTemp.Fields("domain").Value = NULL
54 
	'	End If
 54 
	'	End If
55 
	'End If
 55 
	'End If
56 
	rsTemp.Update
 56 
	rsTemp.Update
57
57
58 
	rsTemp.Close
 58 
	rsTemp.Close
59 
	Set rsTemp = nothing
 59 
	Set rsTemp = nothing
60 
End Sub
 60 
End Sub
61 
%>
 61 
%>
62 
<%
 62 
<%
63 
'--- Process submition ---
 63 
'--- Process submition ---
64 
If CBool(QStrPar("action")) Then
 64 
If CBool(QStrPar("action")) Then
65 
	' All mandatory parameters FOUND
 65 
	' All mandatory parameters FOUND
66 
	Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
 66 
	Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
67
67
68 
	If NOT objAccessControl.Domain <> "" Then
 68 
	If NOT objAccessControl.Domain <> "" Then
69 
		If parDomainAuth = "N" Then
 69 
		If parDomainAuth = "N" Then
70 
			Response.Redirect("members_new_password.asp")
 70 
			Response.Redirect("members_new_password.asp")
71 
		End If
 71 
		End If
72 
	End If
 72 
	End If
73
73
74 
	Session.Abandon
 74 
	Session.Abandon
75 
	Response.Redirect("message.asp?msg=200-9")
 75 
	Response.Redirect("message.asp?msg=200-9")
76 
End If
 76 
End If
77 
%>
 77 
%>
78 
<html>
 78 
<html>
79 
<head>
 79 
<head>
80 
<title>Release Manager</title>
 80 
<title>Release Manager</title>
81 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 81 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
82 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 82 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
83 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 83 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
84 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 84 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
85 
<script language="JavaScript" src="images/common.js"></script>
 85 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
86 
<!-- TIPS -->
 86 
<script language="JavaScript" src="images/common.js"></script>
87 
<script language="JavaScript" src="images/tipster.js"></script>
 87 
<!-- TIPS -->
88 
<script language="JavaScript" src="images/_help_tips.js"></script>
 88 
<script language="JavaScript" src="images/tipster.js"></script>
89 
<script language="JavaScript">
 89 
<script language="JavaScript" src="images/_help_tips.js"></script>
90 
<!--
 90 
<script language="JavaScript">
91 
function DisableDomain() {
 91 
<!--
92 
	if (MM_findObj("FRdomainauth").checked) {
 92 
function DisableDomain() {
93 
		MM_findObj("FRdomain_name").disabled=false;
 93 
	if (MM_findObj("FRdomainauth").checked) {
94 
		MM_findObj("FRstatus3").value='';
 94 
		MM_findObj("FRdomain_name").disabled=false;
95 
	} else {
 95 
		MM_findObj("FRstatus3").value='';
96 
		MM_findObj("FRdomain_name").disabled=true;
 96 
	} else {
97 
		MM_findObj("FRstatus3").value='Not Required!';
 97 
		MM_findObj("FRdomain_name").disabled=true;
98 
	}
 98 
		MM_findObj("FRstatus3").value='Not Required!';
99 
}
 99 
	}
100 
 
 100 
}
101 
//-->
 101 
 
102 
</script>
 102 
//-->
103 
</head>
 103 
</script>
104 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 104 
</head>
105 
<!-- TIPS LAYERS -------------------------------------->
 105 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
106 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 106 
<!-- TIPS LAYERS -------------------------------------->
107 
<!----------------------------------------------------->
 107 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
108 
<!-- HEADER -->
 108 
<!----------------------------------------------------->
109 
<!--#include file="_header.asp"-->
 109 
<!-- HEADER -->
110 
<!-- BODY ---->
 110 
<!--#include file="_header.asp"-->
111 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 111 
<!-- BODY ---->
112 
  <tr>
112 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
113 
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
113 
  <tr>
114 
      <!-- MEMBERS MENU ---------------------------------------------->
 114 
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
115 
	  <!--#include file="members_menu_def.asp"-->
 115 
      <!-- MEMBERS MENU ---------------------------------------------->
116 
	  <%Call Member_Menu( "my details" )%>
 116 
	  <!--#include file="members_menu_def.asp"-->
117 
      <!--  MEMBERS MENU END ------------------------------------------>
 117 
	  <%Call Member_Menu( "my details" )%>
118 
    </td>
 118 
      <!--  MEMBERS MENU END ------------------------------------------>
119 
    <td width="1%" valign="top" background="images/bg_member_light.gif"><a href="index.asp" class="form_txt_link"><img src="images/i_home.gif" width="13" height="12" border="0" align="absmiddle">Exit</a></td>
 119 
    </td>
120 
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap>
120 
    <td width="1%" valign="top" background="images/bg_member_light.gif"><a href="index.asp" class="form_txt_link"><img src="images/i_home.gif" width="13" height="12" border="0" align="absmiddle">Exit</a></td>
121 
      <!------------------------------------------->
 121 
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap>
122 
      <br>
 122 
      <!------------------------------------------->
123 
      <span class="mmb_ttl">Account Details</span><br>
 123 
      <br>
124 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
 124 
      <span class="mmb_ttl">Account Details</span><br>
125 
        <form name="chdetails" method="post" action="members_my_details.asp" onSubmit="MM_validateForm('FRfullname','Name and Surname','R','FRemail','Email','RisEmail','FRdomain_name','Domain Name','isDomainName');return document.MM_returnValue">
 125 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
126 
          <tr>
126 
        <form name="chdetails" method="post" action="members_my_details.asp" onSubmit="MM_validateForm('FRfullname','Name and Surname','R','FRemail','Email','RisEmail','FRdomain_name','Domain Name','isDomainName');return document.MM_returnValue">
127 
            <td width="1%">&nbsp;</td>
 127 
          <tr>
128 
            <td><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
 128 
            <td width="1%">&nbsp;</td>
129 
            <td width="1%">&nbsp;</td>
 129 
            <td><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
130 
          </tr>
 130 
            <td width="1%">&nbsp;</td>
131 
          <tr>
131 
          </tr>
132 
            <td align="left" valign="top" width="1%" background="images/bg_member_dark.gif"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
 132 
          <tr>
133 
            <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
 133 
            <td align="left" valign="top" width="1%" background="images/bg_member_dark.gif"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
134 
            <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
 134 
            <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
135 
          </tr>
 135 
            <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
136 
          <tr>
136 
          </tr>
137 
            <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 137 
          <tr>
138 
            <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
 138 
            <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
139 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
 139 
            <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
140 
                <tr>
140 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
141 
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 141 
                <tr>
142 
                  <td width="1%" nowrap class="form_group" valign="bottom">PERSONAL
142 
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
143 
                    DETAILS</td>
 143 
                  <td width="1%" nowrap class="form_group" valign="bottom">PERSONAL
144 
                  <td nowrap width="100%" align="right" class="form_step"><img src="images/h_trsp_dot.gif" width="350" height="10"></td>
 144 
                    DETAILS</td>
145 
                </tr>
 145 
                  <td nowrap width="100%" align="right" class="form_step"><img src="images/h_trsp_dot.gif" width="350" height="10"></td>
146 
                <tr>
146 
                </tr>
147 
                  <td width="1%">&nbsp;</td>
 147 
                <tr>
148 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Name
148 
                  <td width="1%">&nbsp;</td>
149 
                    and Surname</td>
 149 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Name
150 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
150 
                    and Surname</td>
151 
                    <input type="text" name="FRfullname" class="form_item" value="<%=objAccessControl.FullName%>">
 151 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
152 
                  </td>
 152 
                    <input type="text" name="FRfullname" class="form_item" value="<%=objAccessControl.FullName%>">
153 
                </tr>
 153 
                  </td>
154 
                <tr>
154 
                </tr>
155 
                  <td width="1%">&nbsp;</td>
 155 
                <tr>
156 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Email</td>
 156 
                  <td width="1%">&nbsp;</td>
157 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
157 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Email</td>
158 
                    <input type="text" name="FRemail" class="form_item" value="<%=objAccessControl.UserEmail%>">
 158 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
159 
                  </td>
 159 
                    <input type="text" name="FRemail" class="form_item" value="<%=objAccessControl.UserEmail%>">
160 
                </tr>
 160 
                  </td>
161
161 
                </tr>
162 
                <tr>
162
163 
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 163 
                <tr>
164 
                  <td width="1%" nowrap class="form_group" valign="bottom"><br>
 164 
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
165 
                    LOGIN DETAILS</td>
 165 
                  <td width="1%" nowrap class="form_group" valign="bottom"><br>
166 
                  <td nowrap width="100%" align="right" class="form_step">&nbsp;</td>
 166 
                    LOGIN DETAILS</td>
167 
                </tr>
 167 
                  <td nowrap width="100%" align="right" class="form_step">&nbsp;</td>
168 
 
 168 
                </tr>
169 
                <!-- User can no longer enter data for these fields. Fields are disabled or hidden -->
 169 
 
170 
				<tr>
 170 
                <!-- User can no longer enter data for these fields. Fields are disabled or hidden -->
171 
                  <td width="1%">&nbsp;</td>
 171 
				<tr>
172 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Username</td>
 172 
                  <td width="1%">&nbsp;</td>
173 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
173 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Username</td>
174 
                    <input disabled type="text" name="FRusername" class="form_item" value="<%=objAccessControl.UserName%>" disabled>
 174 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
175 
                    <input disabled type="checkbox" name="FRdomainauth" value="Y" onClick="DisableDomain();"   <%If objAccessControl.Domain <> "" Then Response.write "checked"%>>
 175 
                    <input disabled type="text" name="FRusername" class="form_item" value="<%=objAccessControl.UserName%>" disabled>
176 
                    <span class="form_txt">Domain User</span><%=Quick_Help ( "domain_user" )%></td>
 176 
                    <input disabled type="checkbox" name="FRdomainauth" value="Y" onClick="DisableDomain();"   <%If objAccessControl.Domain <> "" Then Response.write "checked"%>>
177 
                </tr>
 177 
                    <span class="form_txt">Domain User</span><%=Quick_Help ( "domain_user" )%></td>
178 
				<tr>
178 
                </tr>
179 
                  <td width="1%">&nbsp;</td>
 179 
				<tr>
180 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Domain Name</td>
 180 
                  <td width="1%">&nbsp;</td>
181 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
181 
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Domain Name</td>
182 
                    <input disabled type="text" name="FRdomain_name" class="form_item" <%If objAccessControl.Domain = "" Then Response.write "disabled"%> value="<%=objAccessControl.Domain%>">
 182 
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
183 
                    <span hidden class="form_status">
 183 
                    <input disabled type="text" name="FRdomain_name" class="form_item" <%If objAccessControl.Domain = "" Then Response.write "disabled"%> value="<%=objAccessControl.Domain%>">
184 
                        <%If objAccessControl.Domain = "" Then Response.Write "Not Required!"%>
 184 
                    <span hidden class="form_status">
185 
                    </span>
 185 
                        <%If objAccessControl.Domain = "" Then Response.Write "Not Required!"%>
186 
                  </td>
 186 
                    </span>
187 
                </tr>
 187 
                  </td>
188
188 
                </tr>
189 
                <tr>
 189
190 
                  <td width="1%">&nbsp;</td>
 190 
                <tr>
191 
                  <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 191 
                  <td width="1%">&nbsp;</td>
192 
                  <td nowrap width="100%">
192 
                  <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
193 
                    <input type="hidden" name="action" value="true">
 193 
                  <td nowrap width="100%">
194 
                    <input type="submit" name="btn" value=" Apply " class="form_btn">
 194 
                    <input type="hidden" name="action" value="true">
195 
                    <input type="reset" name="btn" value="Reset" class="form_btn">
 195 
                    <input type="submit" name="btn" value=" Apply " class="form_btn">
196 
                    <br>
 196 
                    <input type="reset" name="btn" value="Reset" class="form_btn">
197 
                    <br>
 197 
                    <br>
198 
                  </td>
 198 
                    <br>
199 
                </tr>
 199 
                  </td>
200 
              </table>
 200 
                </tr>
201 
              <br>
 201 
              </table>
202 
              <br>
 202 
              <br>
203 
            </td>
 203 
              <br>
204 
            <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
 204 
            </td>
205 
          </tr>
 205 
            <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
206 
          <tr>
206 
          </tr>
207 
            <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
 207 
          <tr>
208 
            <td background="images/bg_member_dark.gif"></td>
 208 
            <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
209 
            <td width="1%" background="images/bg_member_dark.gif" valign="bottom" align="right"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
 209 
            <td background="images/bg_member_dark.gif"></td>
210 
          </tr>
 210 
            <td width="1%" background="images/bg_member_dark.gif" valign="bottom" align="right"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
211 
        </form>
 211 
          </tr>
212 
      </table>
 212 
        </form>
213 
      <!-------------------------------------------------------->
 213 
      </table>
214 
      <br>
 214 
      <!-------------------------------------------------------->
215 
    </td>
 215 
      <br>
216 
    <td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"><img src="images/bg_img_member.gif" width="160" height="230" vspace="10" hspace="10"></td>
 216 
    </td>
217 
  </tr>
 217 
    <td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"><img src="images/bg_img_member.gif" width="160" height="230" vspace="10" hspace="10"></td>
218 
  <tr>
218 
  </tr>
219 
    <td valign="bottom" align="center" background="images/bg_member_dark.gif"><img src="images/img_members.gif" width="81" height="57" vspace="20" hspace="30"></td>
 219 
  <tr>
220 
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
 220 
    <td valign="bottom" align="center" background="images/bg_member_dark.gif"><img src="images/img_members.gif" width="81" height="57" vspace="20" hspace="30"></td>
221 
  </tr>
 221 
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
222 
</table>
 222 
  </tr>
223 
<!-- FOOTER -->
 223 
</table>
224 
<!--#include file="_footer.asp"-->
 224 
<!-- FOOTER -->
225 
</body>
 225 
<!--#include file="_footer.asp"-->
226 
</html>
 226 
</body>
227 
<%
 227 
</html>
228 
Call Destroy_All_Objects
 228 
<%
- 
 
 229 
Call Destroy_All_Objects
229 
%>
 230 
%>
230 

            231