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 Override
 5 
'   User Override
6 
'   User_Override.asp
 6 
'   User_Override.asp
7 
'
 7 
'
8 
'=====================================================
 8 
'=====================================================
9 
%>
 9 
%>
10 
<%
 10 
<%
11 
Option explicit
 11 
Option explicit
12 
Response.Expires = 0
 12 
Response.Expires = 0
13 
%>
 13 
%>
14 
<!--#include file="common/globals.asp"-->
 14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/config.asp"-->
 15 
<!--#include file="common/config.asp"-->
16 
<!--#include file="common/common_subs.asp"-->
 16 
<!--#include file="common/common_subs.asp"-->
17 
<!--#include file="common/_user_common.asp"-->
 17 
<!--#include file="common/_user_common.asp"-->
18 
<%
 18 
<%
19 
'------------ ACCESS CONTROL ------------------
 19 
'------------ ACCESS CONTROL ------------------
20 
%>
 20 
%>
21 
<!--#include file="_access_control_general.asp"-->
 21 
<!--#include file="_access_control_general.asp"-->
22 
<%
 22 
<%
23 
'------------ VARIABLE DEFINITION -------------
 23 
'------------ VARIABLE DEFINITION -------------
24 
Dim RoleId
 24 
Dim RoleId
25 
Dim sNode
 25 
Dim sNode
26 
Dim rsQry
 26 
Dim rsQry
27 
Dim ActiveCombo
 27 
Dim ActiveCombo
28 
Dim VisibleCombo
 28 
Dim VisibleCombo
29 
Dim objAppCollector
 29 
Dim objAppCollector
30 
Dim CanEdit
 30 
Dim CanEdit
31 
'------------ CONSTANTS DECLARATION -----------
 31 
'------------ CONSTANTS DECLARATION -----------
32 
'------------ VARIABLE INIT -------------------
 32 
'------------ VARIABLE INIT -------------------
33 
Set objAppCollector = CreateObject("Scripting.Dictionary")
 33 
Set objAppCollector = CreateObject("Scripting.Dictionary")
34 
CanEdit = canActionControl("canEditUserOverrides")
 34 
CanEdit = canActionControl("canEditUserOverrides")
35 
'------------ CONDITIONS ----------------------
 35 
'------------ CONDITIONS ----------------------
36 
'----------------------------------------------
 36 
'----------------------------------------------
37 
%>
 37 
%>
38 
<%
 38 
<%
39 
'------------------------------------------------------------------------------------------------------------------------------------------------------
 39 
'------------------------------------------------------------------------------------------------------------------------------------------------------
40 
Sub SetPermissionCombos ( nObj_id, cVisible, cActive, ByRef outVisibleCombo, ByRef outActiveCombo )
 40 
Sub SetPermissionCombos ( nObj_id, cVisible, cActive, ByRef outVisibleCombo, ByRef outActiveCombo )
41 
	Dim i, selected, disableControl
 41 
	Dim i, selected, disableControl
42
42
43 
    ' -- Disable editing
 43 
    ' -- Disable editing
44 
    If CanEdit Then
 44 
    If CanEdit Then
45 
        disableControl = ""
 45 
        disableControl = ""
46 
    Else
 46 
    Else
47 
         disableControl = " disabled"
47 
         disableControl = " disabled"
48 
    End IF
 48 
    End IF
49
49
50 
	' --- Visible Combo ---
 50 
	' --- Visible Combo ---
51 
	outVisibleCombo = ""
 51 
	outVisibleCombo = ""
52 
	outVisibleCombo = outVisibleCombo &"<select name='VIS_"& nObj_id &"' class='form_iname'" & disableControl &">"
 52 
	outVisibleCombo = outVisibleCombo &"<select name='VIS_"& nObj_id &"' class='form_iname'" & disableControl &">"
53
53
54 
	For i = 0 To UBound( arrVisiblePermissions ) Step NumberofPermissionFields
 54 
	For i = 0 To UBound( arrVisiblePermissions ) Step NumberofPermissionFields
55 
		selected = ""
 55 
		selected = ""
56 
		If arrVisiblePermissions( INXperm_val + i ) = cVisible Then
 56 
		If arrVisiblePermissions( INXperm_val + i ) = cVisible Then
57 
			selected = "selected"
 57 
			selected = "selected"
58 
		End If
 58 
		End If
59
59
60 
		outVisibleCombo = outVisibleCombo &"<option class='"& arrVisiblePermissions( INXperm_style + i ) &"' "& selected &" value='"& arrVisiblePermissions( INXperm_val + i ) &"'>"& arrVisiblePermissions( INXperm_text + i ) &"</option>"& VBNewLine
 60 
		outVisibleCombo = outVisibleCombo &"<option class='"& arrVisiblePermissions( INXperm_style + i ) &"' "& selected &" value='"& arrVisiblePermissions( INXperm_val + i ) &"'>"& arrVisiblePermissions( INXperm_text + i ) &"</option>"& VBNewLine
61 
	Next
 61 
	Next
62
62
63 
	outVisibleCombo = outVisibleCombo &"</select>"
 63 
	outVisibleCombo = outVisibleCombo &"</select>"
64
64
65
65
66
66
67 
	' --- Active Combo ---
 67 
	' --- Active Combo ---
68 
	outActiveCombo = ""
 68 
	outActiveCombo = ""
69 
	outActiveCombo = outActiveCombo &"<select name='ACT_"& nObj_id &"' class='form_iname'" & disableControl &">"
 69 
	outActiveCombo = outActiveCombo &"<select name='ACT_"& nObj_id &"' class='form_iname'" & disableControl &">"
70
70
71 
	For i = 0 To UBound( arrActivePermissions ) Step NumberofPermissionFields
 71 
	For i = 0 To UBound( arrActivePermissions ) Step NumberofPermissionFields
72 
		selected = ""
 72 
		selected = ""
73 
		If arrActivePermissions( INXperm_val + i ) = cActive Then
 73 
		If arrActivePermissions( INXperm_val + i ) = cActive Then
74 
			selected = "selected"
 74 
			selected = "selected"
75 
		End If
 75 
		End If
76
76
77 
		outActiveCombo = outActiveCombo &"<option class='"& arrActivePermissions( INXperm_style + i ) &"' "& selected &" value='"& arrActivePermissions( INXperm_val + i ) &"'>"& arrActivePermissions( INXperm_text + i ) &"</option>"& VBNewLine
 77 
		outActiveCombo = outActiveCombo &"<option class='"& arrActivePermissions( INXperm_style + i ) &"' "& selected &" value='"& arrActivePermissions( INXperm_val + i ) &"'>"& arrActivePermissions( INXperm_text + i ) &"</option>"& VBNewLine
78 
	Next
 78 
	Next
79
79
80 
	outActiveCombo = outActiveCombo &"</select>"
 80 
	outActiveCombo = outActiveCombo &"</select>"
81
81
82 
End Sub
 82 
End Sub
83 
'------------------------------------------------------------------------------------------------------------------------------------------------------
 83 
'------------------------------------------------------------------------------------------------------------------------------------------------------
84 
'-----------------------------------------------------------------------------------------------------------------
 84 
'-----------------------------------------------------------------------------------------------------------------
85 
Sub GetUserRoleDetails ( nUser_id)
 85 
Sub GetUserRoleDetails ( nUser_id)
86 
	Dim rsQry, query
 86 
	Dim rsQry, query
87 
	query = _
 87 
	query = _
88 
        "SELECT r.ROLE_ID " &_
 88 
        "SELECT r.ROLE_ID " &_
89 
        " FROM ROLES r, USER_ROLES ur WHERE " &_
 89 
        " FROM ROLES r, USER_ROLES ur WHERE " &_
90 
        " r.IS_ROLE_VARIATION IS NOT NULL AND" &_
 90 
        " r.IS_ROLE_VARIATION IS NOT NULL AND" &_
91 
        " ur.ROLE_ID = r.ROLE_ID" &_
 91 
        " ur.ROLE_ID = r.ROLE_ID" &_
92 
        " AND ur.USER_ID = " & nUser_id
 92 
        " AND ur.USER_ID = " & nUser_id
93
93
94 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 94 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
95
95
96 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 96 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
97 
		RoleId   = rsQry("role_id")
 97 
		RoleId   = rsQry("role_id")
98 
	Else
 98 
	Else
99 
		RoleId   = NULL
 99 
		RoleId   = NULL
100 
	End If
 100 
	End If
101
101
102 
	rsQry.Close
 102 
	rsQry.Close
103 
	Set rsQry = Nothing
 103 
	Set rsQry = Nothing
104 
End Sub
 104 
End Sub
105 
%>
 105 
%>
106 
<%
 106 
<%
107 
'------------ RUN BEFORE PAGE RENDER ----------
 107 
'------------ RUN BEFORE PAGE RENDER ----------
108 
Call GetUserDetails ( parUser_id, objUserCollector )
 108 
Call GetUserDetails ( parUser_id, objUserCollector )
109 
Call GetApplicationDetails ( parApp_id, objAppCollector )
 109 
Call GetApplicationDetails ( parApp_id, objAppCollector )
110 
Call GetUserRoleDetails ( parUser_id )
 110 
Call GetUserRoleDetails ( parUser_id )
111 
'----------------------------------------------
 111 
'----------------------------------------------
112 
%>
 112 
%>
113 
<html>
 113 
<html>
114 
<head>
 114 
<head>
115 
<title>Access Manager</title>
 115 
<title>Access 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="scripts/access_manager.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="scripts/access_manager.css" rel="stylesheet" type="text/css">
120 
 
 120 
<script language="JavaScript" src="scripts/common.js"></script>
121 
</head>
 121 
 
122 
 
 122 
</head>
123 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
 123 
 
124 
<!-- HEADER ++++++++++++++++++++++ -->
 124 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
125 
<!--#include file="_header.asp"-->
 125 
<!-- HEADER ++++++++++++++++++++++ -->
126 
<!-- +++++++++++++++++++++++++++++ -->
 126 
<!--#include file="_header.asp"-->
127 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 127 
<!-- +++++++++++++++++++++++++++++ -->
128 
  <tr>
 128 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
129 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
 129 
  <tr>
130 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
 130 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
131 
	<!--#include file="_treeNavigator.asp"-->
131 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
132 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 132 
	<!--#include file="_treeNavigator.asp"-->
133 
	</td>
 133 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
134 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 134 
	</td>
135 
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
 135 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
136 
      <tr>
 136 
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
137 
        <td background="images/bg_drk_bage_pane.gif">
 137 
      <tr>
138 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 138 
        <td background="images/bg_drk_bage_pane.gif">
139 
            <tr>
 139 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
140 
              <td nowrap class="body_txt">
 140 
            <tr>
141 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 141 
              <td nowrap class="body_txt">
142 
				<!-- +++++++++++++++++++++++++++++++++++ -->
 142 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
143 
			  </td>
 143 
				<!-- +++++++++++++++++++++++++++++++++++ -->
144 
              <td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
 144 
			  </td>
145 
            </tr>
 145 
              <td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
146 
          </table>
 146 
            </tr>
147 
		</td>
 147 
          </table>
148 
      </tr>
 148 
		</td>
149 
	  <tr>
 149 
      </tr>
150 
        <td class="menu_crumbttl"><%Call RenderTitle ( objUserCollector )%> Application: <%=objAppCollector.Item ("application_name")%></td>
 150 
	  <tr>
151 
      </tr>
 151 
        <td class="menu_crumbttl"><%Call RenderTitle ( objUserCollector )%> Application: <%=objAppCollector.Item ("application_name")%></td>
152 
      <tr>
 152 
      </tr>
153 
        <td>
 153 
      <tr>
154 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 154 
        <td>
155 
		 	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
 155 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
156 
			<!--#include file="_tabs_definition.asp"-->
 156 
		 	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
157 
			<%
 157 
			<!--#include file="_tabs_definition.asp"-->
158 
			Set objTabControl = New TabControl
 158 
			<%
159 
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
 159 
			Set objTabControl = New TabControl
160 
			objTabControl.TabStyle = "StyleMac"
 160 
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
161 
			objTabControl.AddTabDefnition ( arrUserAccount )
 161 
			objTabControl.TabStyle = "StyleMac"
162 
			objTabControl.SelectByName ( "User Override" )
 162 
			objTabControl.AddTabDefnition ( arrUserAccount )
163 
			objTabControl.Render ()
 163 
			objTabControl.SelectByName ( "User Override" )
164 
			%>
 164 
			objTabControl.Render ()
165 
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
 165 
			%>
166 
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 166 
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
167 
          <tr>
 167 
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
168 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
 168 
          <tr>
169 
            <td width="100%" valign="top">
 169 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
170 
			  <table width="100%"  border="0" cellspacing="10" cellpadding="0">
 170 
            <td width="100%" valign="top">
171 
                <tr>
 171 
			  <table width="100%"  border="0" cellspacing="10" cellpadding="0">
172 
                  <td>
 172 
                <tr>
173 
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
 173 
                  <td>
174 
				    <%Call Messenger ( "Any permission changes will be appled to this user only!", 3, 400 )%><br>
 174 
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
175 
					<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 175 
				    <%Call Messenger ( "Any permission changes will be appled to this user only!", 3, 400 )%><br>
176 
					<form name="UserPrivileges" action="_SetUserOverridePermissions.asp" method="post">
 176 
					<table width="100%"  border="0" cellspacing="3" cellpadding="0">
177 
			          <tr>
 177 
					<form name="UserPrivileges" action="_SetUserOverridePermissions.asp" method="post">
178 
			            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 178 
			          <tr>
179 
			              <tr>
 179 
			            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
180 
			                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Action Name</td>
 180 
			              <tr>
181 
			              </tr>
 181 
			                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Action Name</td>
182 
			            </table></td>
 182 
			              </tr>
183 
						<td width="1%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Permissions</td>
 183 
			            </table></td>
184 
						<td width="70%" align="right" background="images/bg_table_col.gif" class="body_col">Description</td>
 184 
						<td width="1%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">Permissions</td>
185 
						<td width="1%" background="images/bg_table_col.gif"></td>
 185 
						<td width="70%" align="right" background="images/bg_table_col.gif" class="body_col">Description</td>
186 
			          </tr>
 186 
						<td width="1%" background="images/bg_table_col.gif"></td>
187 
					  <%
 187 
			          </tr>
188 
					  OraDatabase.Parameters.Add "USER_ID",  parUser_id, ORAPARM_INPUT, ORATYPE_NUMBER
188 
					  <%
189 
					  OraDatabase.Parameters.Add "APP_ID",   parApp_id,	 ORAPARM_INPUT, ORATYPE_NUMBER
189 
					  OraDatabase.Parameters.Add "USER_ID",  parUser_id, ORAPARM_INPUT, ORATYPE_NUMBER
190 
					  OraDatabase.Parameters.Add "ROLE_ID",  RoleId,	 ORAPARM_INPUT, ORATYPE_NUMBER
190 
					  OraDatabase.Parameters.Add "APP_ID",   parApp_id,	 ORAPARM_INPUT, ORATYPE_NUMBER
191
191 
					  OraDatabase.Parameters.Add "ROLE_ID",  RoleId,	 ORAPARM_INPUT, ORATYPE_NUMBER
192 
					  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UserOverride.sql") , ORADYN_DEFAULT )
 192
193
193 
					  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UserOverride.sql") , ORADYN_DEFAULT )
194 
					  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 194
195 
					  	Call SetPermissionCombos ( rsQry("obj_id"), rsQry("visible_value"), rsQry("active_value"), VisibleCombo, ActiveCombo )
 195 
					  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
196 
					  %>
 196 
					  	Call SetPermissionCombos ( rsQry("obj_id"), rsQry("visible_value"), rsQry("active_value"), VisibleCombo, ActiveCombo )
197
197 
					  %>
198 
			          <tr>
 198
199 
						<td nowrap class="body_row"><a href="Control_General.asp?obj_id=<%=rsQry("obj_id")%>&<%=objPMod.ComposeURL%>" class="body_link">
 199 
			          <tr>
200 
                            <%=Eval(rsQry("TYPE")) & rsQry("obj_name")%></a></td>
 200 
						<td nowrap class="body_row"><a href="Control_General.asp?obj_id=<%=rsQry("obj_id")%>&<%=objPMod.ComposeURL%>" class="body_link">
201 
						<td class="body_txt" nowrap background='images/bg_bage_pane.gif'>&nbsp;&nbsp;<%=VisibleCombo%>&nbsp;&nbsp;<%=ActiveCombo%>&nbsp;&nbsp;</td>
 201 
                            <%=Eval(rsQry("TYPE")) & rsQry("obj_name")%></a></td>
202 
						<td class="body_rowg"><%=rsQry("obj_description")%></td>
 202 
						<td class="body_txt" nowrap background='images/bg_bage_pane.gif'>&nbsp;&nbsp;<%=VisibleCombo%>&nbsp;&nbsp;<%=ActiveCombo%>&nbsp;&nbsp;</td>
203 
						<td>
 203 
						<td class="body_rowg"><%=rsQry("obj_description")%></td>
204 
                        <%If RoleId <> "" Then %>
 204 
						<td>
205 
                            <a href="Role_DataFiltering.asp?obj_id=<%=rsQry("obj_id")%>&role_id=<%=RoleId%>&<%=objPMod.ComposeURL%>" class="body_link"><%=EVal( rsQry("data_filter") )%></a></td>
 205 
                        <%If RoleId <> "" Then %>
206 
                        <%End If%>
 206 
                            <a href="Role_DataFiltering.asp?obj_id=<%=rsQry("obj_id")%>&role_id=<%=RoleId%>&<%=objPMod.ComposeURL%>" class="body_link"><%=EVal( rsQry("data_filter") )%></a></td>
207 
			          </tr>
 207 
                        <%End If%>
208 
					  <%
 208 
			          </tr>
209 
					  rsQry.MoveNext
 209 
					  <%
210 
					  %>
 210 
					  rsQry.MoveNext
211
211 
					  %>
212 
			          <tr>
 212
213 
			            <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 213 
			          <tr>
214 
			          </tr>
 214 
			            <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
215 
					  <%
 215 
			          </tr>
216 
					  WEnd
 216 
					  <%
217
217 
					  WEnd
218 
					  OraDatabase.Parameters.Remove "USER_ID"
 218
219 
					  OraDatabase.Parameters.Remove "APP_ID"
 219 
					  OraDatabase.Parameters.Remove "USER_ID"
220 
					  OraDatabase.Parameters.Remove "ROLE_ID"
 220 
					  OraDatabase.Parameters.Remove "APP_ID"
221 
					  %>
 221 
					  OraDatabase.Parameters.Remove "ROLE_ID"
222 
                      <%If CanEdit Then %>
 222 
					  %>
223 
					  <tr>
 223 
                      <%If CanEdit Then %>
224 
						<td class="body_txt"></td>
 224 
					  <tr>
225 
						<td align="center" background='images/bg_bage_pane.gif'><input type="submit" name="btn" value="Apply" class="form_btn"></td>
 225 
						<td class="body_txt"></td>
226 
						<td class="body_txt"></td>
 226 
						<td align="center" background='images/bg_bage_pane.gif'><input type="submit" name="btn" value="Apply" class="form_btn"></td>
227 
			          </tr>
 227 
						<td class="body_txt"></td>
228 
                      <%End If%>
 228 
			          </tr>
229 
			          <tr>
 229 
                      <%End If%>
230 
			            <td colspan="5" background="images/bg_table_border.gif">
 230 
			          <tr>
231 
						 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 231 
			            <td colspan="5" background="images/bg_table_border.gif">
232 
			              <tr>
 232 
						 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
233 
			                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 233 
			              <tr>
234 
			              </tr>
 234 
			                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
235 
			             </table>
 235 
			              </tr>
236 
						</td>
 236 
			             </table>
237 
			          </tr>
 237 
						</td>
238 
					 <%=objPMod.ComposeHiddenTags()%>
 238 
			          </tr>
239 
					 <input type="hidden" name="role_id" value="<%=RoleId%>">
 239 
					 <%=objPMod.ComposeHiddenTags()%>
240 
					 <input type="hidden" name="rfile" value="<%=SCRIPT_NAME%>">
 240 
					 <input type="hidden" name="role_id" value="<%=RoleId%>">
241 
					 </form>
 241 
					 <input type="hidden" name="rfile" value="<%=SCRIPT_NAME%>">
242 
			         </table>
 242 
					 </form>
243 
					 <SPAN class="body_txtg"><b>NOTE:</b> "User Specific" Role (<%=LIMG_SPEC_ROLE%>), will overwrite the permissions given by other roles.</SPAN>
 243 
			         </table>
244 
				  <!-- +++++++++++++++++++++++++++++++++++++++++ -->
 244 
					 <SPAN class="body_txtg"><b>NOTE:</b> "User Specific" Role (<%=LIMG_SPEC_ROLE%>), will overwrite the permissions given by other roles.</SPAN>
245 
				  </td>
 245 
				  <!-- +++++++++++++++++++++++++++++++++++++++++ -->
246 
                </tr>
 246 
				  </td>
247 
              </table>
 247 
                </tr>
248 
			</td>
 248 
              </table>
249 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 249 
			</td>
250 
          </tr>
 250 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
251 
         </table>
 251 
          </tr>
252 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 252 
         </table>
253 
           <tr>
 253 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
254 
             <td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 254 
           <tr>
255 
           </tr>
 255 
             <td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
256 
         </table>
 256 
           </tr>
257 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 257 
         </table>
258 
         <br></td>
 258 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
259 
      </tr>
 259 
         <br></td>
260 
    </table></td>
 260 
      </tr>
261 
  </tr>
 261 
    </table></td>
262 
</table>
 262 
  </tr>
263 
<!-- FOOTER ++++++++++++++++++++++ -->
 263 
</table>
264 
<!--#include file="_footer.asp"-->
 264 
<!-- FOOTER ++++++++++++++++++++++ -->
265 
<!-- +++++++++++++++++++++++++++++ -->
 265 
<!--#include file="_footer.asp"-->
266 
</body>
 266 
<!-- +++++++++++++++++++++++++++++ -->
267 
</html>
 267 
</body>
268 
<%
 268 
</html>
269 
'------------ RUN AFTER PAGE RENDER -----------
 269 
<%
270 
'----------------------------------------------
 270 
'------------ RUN AFTER PAGE RENDER -----------
271 
%>
 271 
'----------------------------------------------
- 
 
 272 
%>
272 
<!--#include file="common/globals_destructor.asp"-->
 273 
<!--#include file="common/globals_destructor.asp"-->
273 

            274