Subversion Repositories DevTools

Rev

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

Rev 5299 Rev 5354
Line 1... Line 1...
1
<%@LANGUAGE="VBSCRIPT"%>
1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
2
<%
3
'=====================================================
3
'=====================================================
4
'|                                                   |
4
'|                                                   |
5
'|			          User Roles					 |
5
'|			          User Roles					 |
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/globals.asp"-->
13
<!--#include file="common/globals.asp"-->
14
<!--#include file="common/config.asp"-->
14
<!--#include file="common/config.asp"-->
15
<!--#include file="common/common_subs.asp"-->
15
<!--#include file="common/common_subs.asp"-->
16
<!--#include file="common/_user_common.asp"-->
16
<!--#include file="common/_user_common.asp"-->
17
<%
17
<%
18
'------------ ACCESS CONTROL ------------------
18
'------------ ACCESS CONTROL ------------------
19
%>
19
%>
20
<!--#include file="_access_control_general.asp"-->
20
<!--#include file="_access_control_general.asp"-->
21
<%
21
<%
22
'------------ VARIABLE DEFINITION -------------
22
'------------ VARIABLE DEFINITION -------------
23
Dim sNode
23
Dim sNode
24
Dim rsQry
24
Dim rsQry
25
'------------ CONSTANTS DECLARATION -----------
25
'------------ CONSTANTS DECLARATION -----------
26
Const ROW_SEPARATOR = "<tr><td colspan='4' background='images/bg_table_border.gif'><img src='images/spacer.gif' width='1' height='1'></td></tr>"
26
Const ROW_SEPARATOR = "<tr><td colspan='4' background='images/bg_table_border.gif'><img src='images/spacer.gif' width='1' height='1'></td></tr>"
27
'------------ VARIABLE INIT -------------------
27
'------------ VARIABLE INIT -------------------
28
'------------ CONDITIONS ----------------------
28
'------------ CONDITIONS ----------------------
29
'----------------------------------------------
29
'----------------------------------------------
30
%>
30
%>
31
<%
31
<%
32
'------------------------------------------------------------------------------------------------------------------------------------
32
'------------------------------------------------------------------------------------------------------------------------------------
33
Sub GroupByApplication ( rsQry )
33
Sub GroupByApplication ( rsQry )
34
%>
34
%>
35
<tr>
35
<tr>
36
  <td colspan="4" class="body_rowg"><a href="User_Roles.asp?app_id=<%=rsQry("app_id")%>&tree=<%=arrRoot( inxTNid + (nNumberofProperties * 0) )%>_<%=rsQry("app_id")%>_<%=arrAppProperties( inxTNid + (nNumberofProperties * 0) )%><%=objPMod.ComposeURLWithout("app_id,tree")%>" class="mmenu_link" <%If rsQry("app_id") = Request("app_id") Then Response.Write("style='font-weight: bold;'")%>><%=Expander ( Eval( rsQry("expand") = "-" ) )  &"&nbsp;&nbsp;"&  rsQry("application_name")%></a></td>
36
  <td colspan="4" class="body_rowg"><a href="User_Roles.asp?app_id=<%=rsQry("app_id")%>&tree=<%=arrRoot( inxTNid + (nNumberofProperties * 0) )%>_<%=rsQry("app_id")%>_<%=arrAppProperties( inxTNid + (nNumberofProperties * 0) )%><%=objPMod.ComposeURLWithout("app_id,tree")%>" class="mmenu_link" <%If rsQry("app_id") = Request("app_id") Then Response.Write("style='font-weight: bold;'")%>><%=Expander ( Eval( rsQry("expand") = "-" ) )  &"&nbsp;&nbsp;"&  rsQry("application_name")%></a></td>
37
</tr>
37
</tr>
38
<%=ROW_SEPARATOR%>
38
<%=ROW_SEPARATOR%>
39
<%Call GroupByRoles ( rsQry )%>
39
<%Call GroupByRoles ( rsQry )%>
40
<%
40
<%
41
End Sub
41
End Sub
42
'------------------------------------------------------------------------------------------------------------------------------------
42
'------------------------------------------------------------------------------------------------------------------------------------
43
Sub GroupByRoles ( rsQry )
43
Sub GroupByRoles ( rsQry )
44
%>
44
%>
45
<%rsQry.MoveNext%>
45
<%rsQry.MoveNext%>
46
<%If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then%>
46
<%If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then%>
47
	<%
47
	<%
48
	If NOT IsNull(rsQry("role_id")) Then
48
	If NOT IsNull(rsQry("role_id")) Then
49
	 
49
	 
50
		While (NOT rsQry.BOF) AND (NOT rsQry.EOF) AND (NOT IsNull(rsQry("role_id")))
50
		While (NOT rsQry.BOF) AND (NOT rsQry.EOF) AND (NOT IsNull(rsQry("role_id")))
51
	%>
51
	%>
52
		<tr>
52
		<tr>
53
			<td align="center"><input type="checkbox" name="role_id_list" value="<%=rsQry("role_id")%>"></td>
53
			<td align="center"><input type="checkbox" name="role_id_list" value="<%=rsQry("role_id")%>"></td>
54
			<td nowrap class="body_row"><a title="See Role General Info" href="Role_General.asp?role_id=<%=rsQry("role_id")%>&tree=<%=arrRoot( inxTNid + (nNumberofProperties * 0) )%>_<%=rsQry("app_id")%>_<%=arrAppProperties( inxTNid + (nNumberofProperties * 1) )%><%=objPMod.ComposeURLWithout("tree")%>" class="body_link"><%If IsNull( rsQry("is_role_variation") ) Then%><%=LIMG_ROLE%><%Else%><%=LIMG_SPEC_ROLE%><%End If%><%=rsQry("role_name")%></a></td>
54
			<td nowrap class="body_row"><a title="See Role General Info" href="Role_General.asp?role_id=<%=rsQry("role_id")%>&tree=<%=arrRoot( inxTNid + (nNumberofProperties * 0) )%>_<%=rsQry("app_id")%>_<%=arrAppProperties( inxTNid + (nNumberofProperties * 1) )%><%=objPMod.ComposeURLWithout("tree")%>" class="body_link"><%If IsNull( rsQry("is_role_variation") ) Then%><%=LIMG_ROLE%><%Else%><%=LIMG_SPEC_ROLE%><%End If%><%=rsQry("role_name")%></a></td>
55
			<td class="body_rowg"></td>
55
			<td class="body_rowg"></td>
56
			<td align="center"><a href="Role_Privileges.asp?role_id=<%=rsQry("role_id")%>&tree=<%=arrRoot( inxTNid + (nNumberofProperties * 0) )%>_<%=rsQry("app_id")%>_<%=arrAppProperties( inxTNid + (nNumberofProperties * 1) )%><%=objPMod.ComposeURLWithout("tree")%>" title='See this Role Privileges'><%=LIMG_CONTROL%></a></td>
56
			<td align="center"><a href="Role_Privileges.asp?role_id=<%=rsQry("role_id")%>&tree=<%=arrRoot( inxTNid + (nNumberofProperties * 0) )%>_<%=rsQry("app_id")%>_<%=arrAppProperties( inxTNid + (nNumberofProperties * 1) )%><%=objPMod.ComposeURLWithout("tree")%>" title='See this Role Privileges'><%=LIMG_CONTROL%></a></td>
57
		</tr>
57
		</tr>
58
		<%=ROW_SEPARATOR%>
58
		<%=ROW_SEPARATOR%>
59
	<%
59
	<%
60
			rsQry.MoveNext
60
			rsQry.MoveNext
61
		WEnd
61
		WEnd
62
	End If
62
	End If
63
	
63
	
64
	rsQry.MovePrevious
64
	rsQry.MovePrevious
65
	%>
65
	%>
66
<%Else
66
<%Else
67
	rsQry.MovePrevious
67
	rsQry.MovePrevious
68
%>
68
%>
69
<%End If%>	
69
<%End If%>	
70
<%
70
<%
71
End Sub
71
End Sub
72
'------------------------------------------------------------------------------------------------------------------------------------
72
'------------------------------------------------------------------------------------------------------------------------------------
73
%>
73
%>
74
<%
74
<%
75
'------------ RUN BEFORE PAGE RENDER ----------
75
'------------ RUN BEFORE PAGE RENDER ----------
76
Call GetUserDetails ( parUser_id, objUserCollector )
76
Call GetUserDetails ( parUser_id, objUserCollector )
77
 
77
 
78
If (Request("action") <> "") Then
78
If (Request("action") <> "") Then
79
	'-- Select Action
79
	'-- Select Action
80
	
80
	
81
	Select Case Request("action")
81
	Select Case Request("action")
82
		Case "btnRevokeRole"
82
		Case "btnRevokeRole"
83
			Call OpenInWindow ( "_RevokeRole.asp?role_id_list="& Request("role_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
83
			Call OpenInWindow ( "_RevokeRole.asp?role_id_list="& Request("role_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
84
		
84
		
85
	End Select
85
	End Select
86
	
86
	
87
End If
87
End If
88
'----------------------------------------------
88
'----------------------------------------------
89
%>
89
%>
90
<html>
90
<html>
91
<head>
91
<head>
92
<title>Access Manager</title>
92
<title>Access Manager</title>
93
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
93
<link rel="shortcut icon" href="<%=FavIcon%>"/>
94
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
94
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
95
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
95
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
96
<script language="JavaScript" src="scripts/common.js"></script>
96
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
97
 
97
<script language="JavaScript" src="scripts/common.js"></script>
98
</head>
98
 
99
 
99
</head>
100
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
100
 
101
<!-- HEADER ++++++++++++++++++++++ -->
101
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
102
<!--#include file="_header.asp"-->
102
<!-- HEADER ++++++++++++++++++++++ -->
103
<!-- +++++++++++++++++++++++++++++ -->
103
<!--#include file="_header.asp"-->
104
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
104
<!-- +++++++++++++++++++++++++++++ -->
105
  <tr>
105
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
106
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
106
  <tr>
107
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
107
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
108
	<!--#include file="_treeNavigator.asp"-->  
108
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
109
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
109
	<!--#include file="_treeNavigator.asp"-->  
110
	</td>
110
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
111
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
111
	</td>
112
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
112
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
113
      <tr>
113
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
114
        <td background="images/bg_drk_bage_pane.gif">
114
      <tr>
115
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
115
        <td background="images/bg_drk_bage_pane.gif">
116
            <tr>
116
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
117
              <td nowrap class="body_txt">
117
            <tr>
118
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
118
              <td nowrap class="body_txt">
119
				<%
119
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
120
				'-- Define Action buttons on this tab
120
				<%
121
				aTabBtnsDef = Array("btnGrantRole", "btnRevokeRole" )
121
				'-- Define Action buttons on this tab
122
				
122
				aTabBtnsDef = Array("btnGrantRole", "btnRevokeRole" )
123
				If Request("app_id") = "" Then objBtnControl.AllActive = "N"
123
				
124
				If NOT canActionControl("canAssignRoleToUser") Then objBtnControl.AllActive = "N"
124
				If Request("app_id") = "" Then objBtnControl.AllActive = "N"
125
 
125
				If NOT canActionControl("canAssignRoleToUser") Then objBtnControl.AllActive = "N"
126
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
126
 
127
				
127
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
128
				objBtnControl.Render( aTabBtnsDef )
128
				
129
				%>
129
				objBtnControl.Render( aTabBtnsDef )
130
				<!-- +++++++++++++++++++++++++++++++++++ -->
130
				%>
131
			  </td>
131
				<!-- +++++++++++++++++++++++++++++++++++ -->
132
              <td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
132
			  </td>
133
            </tr>
133
              <td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
134
          </table>
134
            </tr>
135
		</td>
135
          </table>
136
      </tr>
136
		</td>
137
	  <tr>
137
      </tr>
138
        <td class="menu_crumbttl"><%Call RenderTitle ( objUserCollector )%></td>
138
	  <tr>
139
      </tr>
139
        <td class="menu_crumbttl"><%Call RenderTitle ( objUserCollector )%></td>
140
      <tr>
140
      </tr>
141
        <td>
141
      <tr>
142
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
142
        <td>
143
		 	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
143
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
144
			<!--#include file="_tabs_definition.asp"-->
144
		 	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
145
			<%
145
			<!--#include file="_tabs_definition.asp"-->
146
			Set objTabControl = New TabControl
146
			<%
147
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
147
			Set objTabControl = New TabControl
148
			objTabControl.TabStyle = "StyleMac"
148
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
149
			objTabControl.AddTabDefnition ( arrUserAccount )
149
			objTabControl.TabStyle = "StyleMac"
150
			objTabControl.SelectByName ( "Roles" )
150
			objTabControl.AddTabDefnition ( arrUserAccount )
151
			
151
			objTabControl.SelectByName ( "Roles" )
152
			objTabControl.SetImgSelected "User Permissions", "icons/ai_major_problem.gif"
152
			
153
			objTabControl.SetImgDeselected "User Permissions", "icons/ai_major_problem.gif"
153
			objTabControl.SetImgSelected "User Permissions", "icons/ai_major_problem.gif"
154
			objTabControl.SetHint "User Permissions", "Displayed values for selected Role"
154
			objTabControl.SetImgDeselected "User Permissions", "icons/ai_major_problem.gif"
155
 
155
			objTabControl.SetHint "User Permissions", "Displayed values for selected Role"
156
			objTabControl.SetImgSelected "User Override", "icons/ai_major_problem.gif"
156
 
157
			objTabControl.SetImgDeselected "User Override", "icons/ai_major_problem.gif"
157
			objTabControl.SetImgSelected "User Override", "icons/ai_major_problem.gif"
158
			objTabControl.SetHint "User Override", "Displayed values for selected Role" 
158
			objTabControl.SetImgDeselected "User Override", "icons/ai_major_problem.gif"
159
 
159
			objTabControl.SetHint "User Override", "Displayed values for selected Role" 
160
			objTabControl.Render ()
160
 
161
			%>
161
			objTabControl.Render ()
162
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
162
			%>
163
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
163
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
164
          <tr>
164
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
165
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
165
          <tr>
166
            <td width="100%" valign="top">
166
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
167
			  <table width="100%"  border="0" cellspacing="10" cellpadding="0">
167
            <td width="100%" valign="top">
168
                <tr>
168
			  <table width="100%"  border="0" cellspacing="10" cellpadding="0">
169
                  <td>
169
                <tr>
170
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
170
                  <td>
171
					<table width="100%"  border="0" cellspacing="3" cellpadding="0">
171
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
172
					<form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
172
					<table width="100%"  border="0" cellspacing="3" cellpadding="0">
173
			          <tr>
173
					<form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
174
					  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
174
			          <tr>
175
			            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
175
					  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
176
			              <tr>
176
			            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
177
			                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Role</td>
177
			              <tr>
178
			              </tr>
178
			                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Role</td>
179
			            </table></td>
179
			              </tr>
180
			            <td width="60%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Application</td>
180
			            </table></td>
181
			            <td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
181
			            <td width="60%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Application</td>
182
			          </tr>
182
			            <td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
183
					  <%
183
			          </tr>
184
					  OraDatabase.Parameters.Add "USER_ID", parUser_id,	ORAPARM_INPUT, ORATYPE_NUMBER 
184
					  <%
185
					  OraDatabase.Parameters.Add "APP_ID", parApp_id,	ORAPARM_INPUT, ORATYPE_NUMBER 
185
					  OraDatabase.Parameters.Add "USER_ID", parUser_id,	ORAPARM_INPUT, ORATYPE_NUMBER 
186
					  
186
					  OraDatabase.Parameters.Add "APP_ID", parApp_id,	ORAPARM_INPUT, ORATYPE_NUMBER 
187
					  Dim tempCnt
187
					  
188
					  tempCnt = 0
188
					  Dim tempCnt
189
					  
189
					  tempCnt = 0
190
					  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UserRoles.sql") , ORADYN_DEFAULT )
190
					  
191
					  While (NOT rsQry.BOF) AND (NOT rsQry.EOF) AND (tempCnt < 50)
191
					  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UserRoles.sql") , ORADYN_DEFAULT )
192
					  	Call GroupByApplication ( rsQry )
192
					  While (NOT rsQry.BOF) AND (NOT rsQry.EOF) AND (tempCnt < 50)
193
						
193
					  	Call GroupByApplication ( rsQry )
194
					    rsQry.MoveNext
194
						
195
						tempCnt = tempCnt + 1
195
					    rsQry.MoveNext
196
					  WEnd
196
						tempCnt = tempCnt + 1
197
					  
197
					  WEnd
198
					  OraDatabase.Parameters.Remove "USER_ID"
198
					  
199
					  OraDatabase.Parameters.Remove "APP_ID"
199
					  OraDatabase.Parameters.Remove "USER_ID"
200
					  %>
200
					  OraDatabase.Parameters.Remove "APP_ID"
201
			          <tr>
201
					  %>
202
			            <td colspan="4" background="images/bg_table_border.gif">
202
			          <tr>
203
						 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
203
			            <td colspan="4" background="images/bg_table_border.gif">
204
			              <tr>
204
						 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
205
			                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
205
			              <tr>
206
			              </tr>
206
			                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
207
			             </table>
207
			              </tr>
208
						</td>
208
			             </table>
209
			          </tr>
209
						</td>
210
					  <%=objPMod.ComposeHiddenTags()%>
210
			          </tr>
211
					  <input type="hidden" name="action" value="true">
211
					  <%=objPMod.ComposeHiddenTags()%>
212
					 </form>
212
					  <input type="hidden" name="action" value="true">
213
			         </table>
213
					 </form>
214
					 <SPAN class="body_txtg"><b>NOTE:</b> "User Specific" Role (<%=LIMG_SPEC_ROLE%>), will overwrite the permissions given by other roles.</SPAN>
214
			         </table>
215
				  <!-- +++++++++++++++++++++++++++++++++++++++++ -->
215
					 <SPAN class="body_txtg"><b>NOTE:</b> "User Specific" Role (<%=LIMG_SPEC_ROLE%>), will overwrite the permissions given by other roles.</SPAN>
216
				  </td>
216
				  <!-- +++++++++++++++++++++++++++++++++++++++++ -->
217
                </tr>
217
				  </td>
218
              </table>
218
                </tr>
219
			</td>
219
              </table>
220
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
220
			</td>
221
          </tr>
221
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
222
         </table>
222
          </tr>
223
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
223
         </table>
224
           <tr>
224
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
225
             <td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
225
           <tr>
226
           </tr>
226
             <td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
227
         </table>
227
           </tr>
228
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
228
         </table>
229
         <br></td>
229
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
230
      </tr>
230
         <br></td>
231
    </table></td>
231
      </tr>
232
  </tr>
232
    </table></td>
233
</table>
233
  </tr>
234
<!-- FOOTER ++++++++++++++++++++++ -->
234
</table>
235
<!--#include file="_footer.asp"-->
235
<!-- FOOTER ++++++++++++++++++++++ -->
236
<!-- +++++++++++++++++++++++++++++ -->
236
<!--#include file="_footer.asp"-->
237
</body>
237
<!-- +++++++++++++++++++++++++++++ -->
238
</html>
238
</body>
239
<%
239
</html>
240
'------------ RUN AFTER PAGE RENDER -----------
240
<%
241
'----------------------------------------------
241
'------------ RUN AFTER PAGE RENDER -----------
242
%>
242
'----------------------------------------------
-
 
243
%>
243
<!--#include file="common/globals_destructor.asp"-->
244
<!--#include file="common/globals_destructor.asp"-->
244
245