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 
'|			         Control Privileges			 	 |
 5 
'|			         Control Privileges			 	 |
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/_control_common.asp"-->
 16 
<!--#include file="common/_control_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 rsQry
 23 
Dim rsQry
24 
Dim ActiveCombo
 24 
Dim ActiveCombo
25 
Dim VisibleCombo
 25 
Dim VisibleCombo
26 
Dim CanEdit
 26 
Dim CanEdit
27 
'------------ CONSTANTS DECLARATION -----------
 27 
'------------ CONSTANTS DECLARATION -----------
28 
'------------ VARIABLE INIT -------------------
 28 
'------------ VARIABLE INIT -------------------
29 
CanEdit = canActionControl("canAssignActionToRole")
 29 
CanEdit = canActionControl("canAssignActionToRole")
30 
'------------ CONDITIONS ----------------------
 30 
'------------ CONDITIONS ----------------------
31 
'----------------------------------------------
 31 
'----------------------------------------------
32 
%>
 32 
%>
33 
<%
 33 
<%
34 
'--------------------------------------------------------------------------------------------------------------------------------------------
 34 
'--------------------------------------------------------------------------------------------------------------------------------------------
35 
Sub SetPermissionCombos ( nObj_id, cVisible, cActive, ByRef outVisibleCombo, ByRef outActiveCombo )
 35 
Sub SetPermissionCombos ( nObj_id, cVisible, cActive, ByRef outVisibleCombo, ByRef outActiveCombo )
36 
	Dim i, selected, disableControl
 36 
	Dim i, selected, disableControl
37
37
38 
    ' -- Disable editing
 38 
    ' -- Disable editing
39 
    If CanEdit Then
 39 
    If CanEdit Then
40 
        disableControl = ""
 40 
        disableControl = ""
41 
    Else
 41 
    Else
42 
         disableControl = " disabled"
42 
         disableControl = " disabled"
43 
    End IF
 43 
    End IF
44 
 
 44 
 
45 
	' --- Visible Combo ---
 45 
	' --- Visible Combo ---
46 
	outVisibleCombo = ""
 46 
	outVisibleCombo = ""
47 
	outVisibleCombo = outVisibleCombo &"<select name='VIS_"& nObj_id &"' class='form_iname'" & disableControl &">"
 47 
	outVisibleCombo = outVisibleCombo &"<select name='VIS_"& nObj_id &"' class='form_iname'" & disableControl &">"
48
48
49 
	For i = 0 To UBound( arrVisiblePermissions ) Step NumberofPermissionFields
 49 
	For i = 0 To UBound( arrVisiblePermissions ) Step NumberofPermissionFields
50 
		selected = ""
 50 
		selected = ""
51 
		If arrVisiblePermissions( INXperm_val + i ) = cVisible Then
 51 
		If arrVisiblePermissions( INXperm_val + i ) = cVisible Then
52 
			selected = "selected"
 52 
			selected = "selected"
53 
		End If
 53 
		End If
54
54
55 
		outVisibleCombo = outVisibleCombo &"<option class='"& arrVisiblePermissions( INXperm_style + i ) &"' "& selected &" value='"& arrVisiblePermissions( INXperm_val + i ) &"'>"& arrVisiblePermissions( INXperm_text + i ) &"</option>"& VBNewLine
 55 
		outVisibleCombo = outVisibleCombo &"<option class='"& arrVisiblePermissions( INXperm_style + i ) &"' "& selected &" value='"& arrVisiblePermissions( INXperm_val + i ) &"'>"& arrVisiblePermissions( INXperm_text + i ) &"</option>"& VBNewLine
56 
	Next
 56 
	Next
57
57
58 
	outVisibleCombo = outVisibleCombo &"</select>"
 58 
	outVisibleCombo = outVisibleCombo &"</select>"
59
59
60
60
61
61
62 
	' --- Active Combo ---
 62 
	' --- Active Combo ---
63 
	outActiveCombo = ""
 63 
	outActiveCombo = ""
64 
	outActiveCombo = outActiveCombo &"<select name='ACT_"& nObj_id &"' class='form_iname'" & disableControl &">"
 64 
	outActiveCombo = outActiveCombo &"<select name='ACT_"& nObj_id &"' class='form_iname'" & disableControl &">"
65
65
66 
	For i = 0 To UBound( arrActivePermissions ) Step NumberofPermissionFields
 66 
	For i = 0 To UBound( arrActivePermissions ) Step NumberofPermissionFields
67 
		selected = ""
 67 
		selected = ""
68 
		If arrActivePermissions( INXperm_val + i ) = cActive Then
 68 
		If arrActivePermissions( INXperm_val + i ) = cActive Then
69 
			selected = "selected"
 69 
			selected = "selected"
70 
		End If
 70 
		End If
71
71
72 
		outActiveCombo = outActiveCombo &"<option class='"& arrActivePermissions( INXperm_style + i ) &"' "& selected &" value='"& arrActivePermissions( INXperm_val + i ) &"'>"& arrActivePermissions( INXperm_text + i ) &"</option>"& VBNewLine
 72 
		outActiveCombo = outActiveCombo &"<option class='"& arrActivePermissions( INXperm_style + i ) &"' "& selected &" value='"& arrActivePermissions( INXperm_val + i ) &"'>"& arrActivePermissions( INXperm_text + i ) &"</option>"& VBNewLine
73 
	Next
 73 
	Next
74
74
75 
	outActiveCombo = outActiveCombo &"</select>"
 75 
	outActiveCombo = outActiveCombo &"</select>"
76
76
77 
End Sub
 77 
End Sub
78 
'--------------------------------------------------------------------------------------------------------------------------------------------
 78 
'--------------------------------------------------------------------------------------------------------------------------------------------
79 
%>
 79 
%>
80 
<%
 80 
<%
81 
'------------ RUN BEFORE PAGE RENDER ----------
 81 
'------------ RUN BEFORE PAGE RENDER ----------
82 
Call GetControlDetails ( parObj_id, parApp_id, objObjCollector )
 82 
Call GetControlDetails ( parObj_id, parApp_id, objObjCollector )
83 
'----------------------------------------------
 83 
'----------------------------------------------
84 
%>
 84 
%>
85 
<html>
 85 
<html>
86 
<head>
 86 
<head>
87 
<title>Access Manager</title>
 87 
<title>Access Manager</title>
88 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 88 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
89 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 89 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
90 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
 90 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
91 
 
 91 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
92 
</head>
 92 
 
93 
 
 93 
</head>
94 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
 94 
 
95 
<!-- HEADER ++++++++++++++++++++++ -->
 95 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
96 
<!--#include file="_header.asp"-->
 96 
<!-- HEADER ++++++++++++++++++++++ -->
97 
<!-- +++++++++++++++++++++++++++++ -->
 97 
<!--#include file="_header.asp"-->
98 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 98 
<!-- +++++++++++++++++++++++++++++ -->
99 
  <tr>
 99 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
100 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
 100 
  <tr>
101 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
 101 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
102 
	<!--#include file="_treeNavigator.asp"-->
102 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
103 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 103 
	<!--#include file="_treeNavigator.asp"-->
104 
	</td>
 104 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
105 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 105 
	</td>
106 
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
 106 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
107 
      <tr>
 107 
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
108 
        <td background="images/bg_drk_bage_pane.gif">
 108 
      <tr>
109 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 109 
        <td background="images/bg_drk_bage_pane.gif">
110 
            <tr>
 110 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
111 
              <td nowrap class="body_txt">
 111 
            <tr>
112 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 112 
              <td nowrap class="body_txt">
113 
				<!-- +++++++++++++++++++++++++++++++++++ -->
 113 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
114 
			  </td>
 114 
				<!-- +++++++++++++++++++++++++++++++++++ -->
115 
              <td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
 115 
			  </td>
116 
            </tr>
 116 
              <td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
117 
          </table>
 117 
            </tr>
118 
		</td>
 118 
          </table>
119 
      </tr>
 119 
		</td>
120 
	  <tr>
 120 
      </tr>
121 
        <td class="menu_crumbttl"><%Call RenderTitle ( objObjCollector )%></td>
 121 
	  <tr>
122 
      </tr>
 122 
        <td class="menu_crumbttl"><%Call RenderTitle ( objObjCollector )%></td>
123 
      <tr>
 123 
      </tr>
124 
        <td>
 124 
      <tr>
125 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 125 
        <td>
126 
		 	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
 126 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
127 
			<!--#include file="_tabs_definition.asp"-->
 127 
		 	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
128 
			<%
 128 
			<!--#include file="_tabs_definition.asp"-->
129 
			Set objTabControl = New TabControl
 129 
			<%
130 
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
 130 
			Set objTabControl = New TabControl
131 
			objTabControl.TabStyle = "StyleMac"
 131 
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
132 
			objTabControl.AddTabDefnition ( arrControl )
 132 
			objTabControl.TabStyle = "StyleMac"
133 
			objTabControl.SelectByName ( "Action Permissions" )
 133 
			objTabControl.AddTabDefnition ( arrControl )
134 
			objTabControl.Render ()
 134 
			objTabControl.SelectByName ( "Action Permissions" )
135 
			%>
 135 
			objTabControl.Render ()
136 
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
 136 
			%>
137 
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 137 
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
138 
          <tr>
 138 
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
139 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
 139 
          <tr>
140 
            <td width="100%" valign="top">
 140 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
141 
			  <table width="100%"  border="0" cellspacing="10" cellpadding="0">
 141 
            <td width="100%" valign="top">
142 
                <tr>
 142 
			  <table width="100%"  border="0" cellspacing="10" cellpadding="0">
143 
                  <td>
 143 
                <tr>
144 
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
 144 
                  <td>
145 
					<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 145 
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
146 
					<form name="ControlPrivileges" action="_SetControlPermissions.asp" method="post">
 146 
					<table width="100%"  border="0" cellspacing="3" cellpadding="0">
147 
			          <tr>
 147 
					<form name="ControlPrivileges" action="_SetControlPermissions.asp" method="post">
148 
					  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 148 
			          <tr>
149 
			            <td width="20%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 149 
					  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
150 
			              <tr>
 150 
			            <td width="20%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
151 
			                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Role Name</td>
 151 
			              <tr>
152 
			              </tr>
 152 
			                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Role Name</td>
153 
			            </table></td>
 153 
			              </tr>
154 
						<td width="20%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Control Name</td>
 154 
			            </table></td>
155 
						<td width="1%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Permissions</td>
 155 
						<td width="20%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Control Name</td>
156 
						<td width="60%" align="right" background="images/bg_table_col.gif" class="body_col"></td>
 156 
						<td width="1%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Permissions</td>
157 
			          </tr>
 157 
						<td width="60%" align="right" background="images/bg_table_col.gif" class="body_col"></td>
158 
					  <%
 158 
			          </tr>
159 
					  Call SetPermissionCombos ( "ALL", NULL, NULL, VisibleCombo, ActiveCombo )
 159 
					  <%
160 
					  %>
 160 
					  Call SetPermissionCombos ( "ALL", NULL, NULL, VisibleCombo, ActiveCombo )
161 
					  <tr>
 161 
					  %>
162 
					  	<td align="center" background="images/bg_table_col.gif"><input type="checkbox" name="role_id_list" value="Y" disabled></td>
 162 
					  <tr>
163 
						<td nowrap class="body_row" background="images/bg_table_col.gif">&nbsp;ALL</td>
 163 
					  	<td align="center" background="images/bg_table_col.gif"><input type="checkbox" name="role_id_list" value="Y" disabled></td>
164 
						<td nowrap class="body_row" background="images/bg_table_col.gif"><%=LIMG_CONTROL  &  objObjCollector("obj_name")%></td>
 164 
						<td nowrap class="body_row" background="images/bg_table_col.gif">&nbsp;ALL</td>
165 
						<td class="body_txt" nowrap background='images/bg_bage_pane.gif'>&nbsp;&nbsp;<%=VisibleCombo%>&nbsp;&nbsp;<%=ActiveCombo%>&nbsp;&nbsp;</td>
 165 
						<td nowrap class="body_row" background="images/bg_table_col.gif"><%=LIMG_CONTROL  &  objObjCollector("obj_name")%></td>
166 
						<td class="body_rowg" background="images/bg_table_col.gif"></td>
 166 
						<td class="body_txt" nowrap background='images/bg_bage_pane.gif'>&nbsp;&nbsp;<%=VisibleCombo%>&nbsp;&nbsp;<%=ActiveCombo%>&nbsp;&nbsp;</td>
167 
			          </tr>
 167 
						<td class="body_rowg" background="images/bg_table_col.gif"></td>
168
168 
			          </tr>
169 
					  <%
 169
170 
					  OraDatabase.Parameters.Add "OBJ_ID",  parObj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
170 
					  <%
171 
					  OraDatabase.Parameters.Add "APP_ID",  parApp_id,	ORAPARM_INPUT, ORATYPE_NUMBER
171 
					  OraDatabase.Parameters.Add "OBJ_ID",  parObj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
172
172 
					  OraDatabase.Parameters.Add "APP_ID",  parApp_id,	ORAPARM_INPUT, ORATYPE_NUMBER
173 
					  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ControlPrivileges.sql") , ORADYN_DEFAULT )
 173
174 
					  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 174 
					  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ControlPrivileges.sql") , ORADYN_DEFAULT )
175 
					  	Call SetPermissionCombos ( rsQry("role_id"), rsQry("visible_value"), rsQry("active_value"), VisibleCombo, ActiveCombo )
 175 
					  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
176 
					  %>
 176 
					  	Call SetPermissionCombos ( rsQry("role_id"), rsQry("visible_value"), rsQry("active_value"), VisibleCombo, ActiveCombo )
177 
			          <tr>
 177 
					  %>
178 
					  	<td align="center"><input type="checkbox" name="role_id_list" value="<%=rsQry("role_id")%>" disabled></td>
 178 
			          <tr>
179 
						<td nowrap class="body_row"><a href="Role_Privileges.asp?role_id=<%=rsQry("role_id")%><%=objPMod.ComposeURLWithout("obj_id")%>" title="See this Role Permissions" class="body_link"><%=LIMG_ROLE  &  rsQry("role_name")%></a></td>
 179 
					  	<td align="center"><input type="checkbox" name="role_id_list" value="<%=rsQry("role_id")%>" disabled></td>
180 
						<td nowrap class="body_row"><%=LIMG_CONTROL  &  objObjCollector("obj_name")%></td>
 180 
						<td nowrap class="body_row"><a href="Role_Privileges.asp?role_id=<%=rsQry("role_id")%><%=objPMod.ComposeURLWithout("obj_id")%>" title="See this Role Permissions" class="body_link"><%=LIMG_ROLE  &  rsQry("role_name")%></a></td>
181 
						<td class="body_txt" nowrap background='images/bg_bage_pane.gif'>&nbsp;&nbsp;<%=VisibleCombo%>&nbsp;&nbsp;<%=ActiveCombo%>&nbsp;&nbsp;</td>
 181 
						<td nowrap class="body_row"><%=LIMG_CONTROL  &  objObjCollector("obj_name")%></td>
182 
						<td class="body_rowg"></td>
 182 
						<td class="body_txt" nowrap background='images/bg_bage_pane.gif'>&nbsp;&nbsp;<%=VisibleCombo%>&nbsp;&nbsp;<%=ActiveCombo%>&nbsp;&nbsp;</td>
183 
			          </tr>
 183 
						<td class="body_rowg"></td>
184 
					  <%rsQry.MoveNext%>
 184 
			          </tr>
185
185 
					  <%rsQry.MoveNext%>
186 
			          <tr>
 186
187 
			            <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 187 
			          <tr>
188 
			          </tr>
 188 
			            <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
189 
					  <%
 189 
			          </tr>
190 
					  WEnd
 190 
					  <%
191
191 
					  WEnd
192 
					  OraDatabase.Parameters.Remove "OBJ_ID"
 192
193 
					  OraDatabase.Parameters.Remove "APP_ID"
 193 
					  OraDatabase.Parameters.Remove "OBJ_ID"
194 
					  %>
 194 
					  OraDatabase.Parameters.Remove "APP_ID"
195 
                      <%If CanEdit Then%>
 195 
					  %>
196 
					  <tr>
 196 
                      <%If CanEdit Then%>
197 
					  	<td class="body_txt"></td>
 197 
					  <tr>
198 
						<td class="body_txt"></td>
 198 
					  	<td class="body_txt"></td>
199 
						<td class="body_txt"></td>
 199 
						<td class="body_txt"></td>
200 
						<td align="center" background='images/bg_bage_pane.gif'><input type="submit" name="btn" value="Apply" class="form_btn"></td>
 200 
						<td class="body_txt"></td>
201 
						<td class="body_txt"></td>
 201 
						<td align="center" background='images/bg_bage_pane.gif'><input type="submit" name="btn" value="Apply" class="form_btn"></td>
202 
			          </tr>
 202 
						<td class="body_txt"></td>
203 
                      <%End If%>
 203 
			          </tr>
204 
			          <tr>
 204 
                      <%End If%>
205 
			            <td colspan="5" background="images/bg_table_border.gif">
 205 
			          <tr>
206 
						 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 206 
			            <td colspan="5" background="images/bg_table_border.gif">
207 
			              <tr>
 207 
						 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
208 
			                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 208 
			              <tr>
209 
			              </tr>
 209 
			                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
210 
			             </table>
 210 
			              </tr>
211 
						</td>
 211 
			             </table>
212 
			          </tr>
 212 
						</td>
213 
					 <%=objPMod.ComposeHiddenTags()%>
 213 
			          </tr>
214 
					 <input type="hidden" name="rfile" value="<%=SCRIPT_NAME%>">
 214 
					 <%=objPMod.ComposeHiddenTags()%>
215 
					 </form>
 215 
					 <input type="hidden" name="rfile" value="<%=SCRIPT_NAME%>">
216 
			         </table>
 216 
					 </form>
217 
				  <!-- +++++++++++++++++++++++++++++++++++++++++ -->
 217 
			         </table>
218 
				  </td>
 218 
				  <!-- +++++++++++++++++++++++++++++++++++++++++ -->
219 
                </tr>
 219 
				  </td>
220 
              </table>
 220 
                </tr>
221 
			</td>
 221 
              </table>
222 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 222 
			</td>
223 
          </tr>
 223 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
224 
         </table>
 224 
          </tr>
225 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 225 
         </table>
226 
           <tr>
 226 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
227 
             <td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 227 
           <tr>
228 
           </tr>
 228 
             <td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
229 
         </table>
 229 
           </tr>
230 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 230 
         </table>
231 
         <br></td>
 231 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
232 
      </tr>
 232 
         <br></td>
233 
    </table></td>
 233 
      </tr>
234 
  </tr>
 234 
    </table></td>
235 
</table>
 235 
  </tr>
236 
<!-- FOOTER ++++++++++++++++++++++ -->
 236 
</table>
237 
<!--#include file="_footer.asp"-->
 237 
<!-- FOOTER ++++++++++++++++++++++ -->
238 
<!-- +++++++++++++++++++++++++++++ -->
 238 
<!--#include file="_footer.asp"-->
239 
</body>
 239 
<!-- +++++++++++++++++++++++++++++ -->
240 
</html>
 240 
</body>
241 
<%
 241 
</html>
242 
'------------ RUN AFTER PAGE RENDER -----------
 242 
<%
243 
'----------------------------------------------
 243 
'------------ RUN AFTER PAGE RENDER -----------
244 
%>
 244 
'----------------------------------------------
- 
 
 245 
%>
245 
<!--#include file="common/globals_destructor.asp"-->
 246 
<!--#include file="common/globals_destructor.asp"-->
246 

            247