Subversion Repositories DevTools

Rev

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

Rev 5061 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    	MEMBERS					     |
 5 
'|				    	MEMBERS					     |
6 
'|        MY ROLES - Access Details                  |
 6 
'|        MY ROLES - Access Details                  |
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 rsTemp
 26 
Dim rsTemp
27 
Dim rsQry
 27 
Dim rsQry
28 
Dim sqlQuery
 28 
Dim sqlQuery
29 
Dim parProj
 29 
Dim parProj
30 
Dim bAdvMode  : bAdvMode = FALSE
 30 
Dim bAdvMode  : bAdvMode = FALSE
31 
 
 31 
 
32 
'------------ Constants Declaration -----------
 32 
'------------ Constants Declaration -----------
33 
'------------ Variable Init -------------------
 33 
'------------ Variable Init -------------------
34 
parProj = QStrPar("proj_id")
 34 
parProj = QStrPar("proj_id")
35 
 
 35 
 
36 
'----------------------------------------------
 36 
'----------------------------------------------
37 
' Create a chkbox and set its state
 37 
' Create a chkbox and set its state
38 
Function chkbox( value )
 38 
Function chkbox( value )
39 
    chkbox = "<input type='checkbox' disabled"
 39 
    chkbox = "<input type='checkbox' disabled"
40 
    If value Then chkbox = chkbox & " checked=yes"
 40 
    If value Then chkbox = chkbox & " checked=yes"
41 
    chkbox = chkbox & "/>"
 41 
    chkbox = chkbox & "/>"
42 
End Function
 42 
End Function
43 
%>
 43 
%>
44 
<html>
 44 
<html>
45 
<head>
 45 
<head>
46 
<title>Release Manager</title>
 46 
<title>Release Manager</title>
47 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 47 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
48 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 48 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
49 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 49 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
50 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 50 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
51 
<script language="JavaScript" src="images/common.js"></script>
 51 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
52 
<!-- TIPS -->
 52 
<script language="JavaScript" src="images/common.js"></script>
53 
<script language="JavaScript" src="images/tipster.js"></script>
 53 
<!-- TIPS -->
54 
<script language="JavaScript" src="images/_help_tips.js"></script>
 54 
<script language="JavaScript" src="images/tipster.js"></script>
55 
<script language="JavaScript" type="text/JavaScript">
 55 
<script language="JavaScript" src="images/_help_tips.js"></script>
56 
formTips.tips.ad_action       = stdTip(200, 'ACTION', 'The internal name of the access control element.' );
 56 
<script language="JavaScript" type="text/JavaScript">
57 
formTips.tips.ad_description  = stdTip(200, 'DESCRIPTION', 'A description of the access control element.' );
 57 
formTips.tips.ad_action       = stdTip(200, 'ACTION', 'The internal name of the access control element.' );
58 
formTips.tips.ad_access       = stdTip(200, 'Project Independent Permissions', 'These are the basic permissions before project specific control elements have been applied.' );
 58 
formTips.tips.ad_description  = stdTip(200, 'DESCRIPTION', 'A description of the access control element.' );
59 
formTips.tips.ad_data         = stdTip(200, 'Project Specific Permissions', 'These are the permissions after project-specfic control elements have been applied.' );
 59 
formTips.tips.ad_access       = stdTip(200, 'Project Independent Permissions', 'These are the basic permissions before project specific control elements have been applied.' );
60 
formTips.tips.ad_visible      = stdTip(200, 'VISIBLE', 'The associated action may have a control button that is shown to the user.<br>If the action is not active then the control should not be visible to the user.' );
 60 
formTips.tips.ad_data         = stdTip(200, 'Project Specific Permissions', 'These are the permissions after project-specfic control elements have been applied.' );
61 
formTips.tips.ad_active       = stdTip(200, 'ACTIVE', 'The associated action should be available.<br>Controls should be visible for an action to be available.' );
 61 
formTips.tips.ad_visible      = stdTip(200, 'VISIBLE', 'The associated action may have a control button that is shown to the user.<br>If the action is not active then the control should not be visible to the user.' );
62 
 
 62 
formTips.tips.ad_active       = stdTip(200, 'ACTIVE', 'The associated action should be available.<br>Controls should be visible for an action to be available.' );
63 
formTips.tips.ad_normal = stdTip(200, 'Permission outside of project context',
 63 
 
64 
                                 'The permission value when it is not used within a project.' +
 64 
formTips.tips.ad_normal = stdTip(200, 'Permission outside of project context',
65 
                                 '<p>Note:Most permssions are used within project scope.');
 65 
                                 'The permission value when it is not used within a project.' +
66 
formTips.tips.ad_inproject = stdTip(200, 'Permission within Project',
 66 
                                 '<p>Note:Most permssions are used within project scope.');
67 
                                  'The permission value when it is used within the context of a project.' +
 67 
formTips.tips.ad_inproject = stdTip(200, 'Permission within Project',
68 
                                  '<p>Note:Most permssions are used within project context.');
 68 
                                  'The permission value when it is used within the context of a project.' +
69 
formTips.tips.ad_raw = stdTip(200, 'Raw Data',
 69 
                                  '<p>Note:Most permssions are used within project context.');
70 
                                  'Raw data from Access Manager' +
 70 
formTips.tips.ad_raw = stdTip(200, 'Raw Data',
71 
                                  '<p>Raw data is processed into a useable form.');
 71 
                                  'Raw data from Access Manager' +
72 
formTips.tips.ad_processed = stdTip(200, 'Processed values',
 72 
                                  '<p>Raw data is processed into a useable form.');
73 
                                  'Values that have been processed. These are the values that will be sued within Release Manager.');
 73 
formTips.tips.ad_processed = stdTip(200, 'Processed values',
74 
</script>
 74 
                                  'Values that have been processed. These are the values that will be sued within Release Manager.');
75 
<!-- Local Java Script -->
 75 
</script>
76 
<script language="JavaScript">
 76 
<!-- Local Java Script -->
77 
// Refresh this page with the specified project
 77 
<script language="JavaScript">
78 
function updatePage(proj_id){
 78 
// Refresh this page with the specified project
79 
    window.location.replace("members_my_access_details.asp?proj_id=" + proj_id);
 79 
function updatePage(proj_id){
80 
}
 80 
    window.location.replace("members_my_access_details.asp?proj_id=" + proj_id);
81 
</script>
 81 
}
82 
</head>
 82 
</script>
83 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 83 
</head>
84 
<!-- TIPS LAYERS -------------------------------------->
 84 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
85 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 85 
<!-- TIPS LAYERS -------------------------------------->
86 
<!----------------------------------------------------->
 86 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
87 
<!-- HEADER -->
 87 
<!----------------------------------------------------->
88 
<!--#include file="_header.asp"-->
 88 
<!-- HEADER -->
89 
<!-- BODY ---->
 89 
<!--#include file="_header.asp"-->
90 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 90 
<!-- BODY ---->
91 
  <tr>
91 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
92 
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
92 
  <tr>
93 
      <!-- MEMBERS MENU ---------------------------------------------->
 93 
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
94 
	  <!--#include file="members_menu_def.asp"-->
 94 
      <!-- MEMBERS MENU ---------------------------------------------->
95 
	  <%Call Member_Menu( "my_roles" )%>
 95 
	  <!--#include file="members_menu_def.asp"-->
96 
      <!--  MEMBERS MENU END ------------------------------------------>
 96 
	  <%Call Member_Menu( "my_roles" )%>
97 
    </td>
 97 
      <!--  MEMBERS MENU END ------------------------------------------>
98 
    <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>
 98 
    </td>
99 
    <td rowspan="2" valign="top" width="70%" background="images/bg_member_light.gif" nowrap>
 99 
    <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>
100 
      <!------------------------------------------->
 100 
    <td rowspan="2" valign="top" width="70%" background="images/bg_member_light.gif" nowrap>
101 
      <br>
 101 
      <!------------------------------------------->
102 
      <span class="mmb_ttl">My Access Details</span><br>
 102 
      <br>
103 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
 103 
      <span class="mmb_ttl">My Access Details</span><br>
104 
	  <form>
 104 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
105 
        <tr>
105 
	  <form>
106 
          <td width="1%">&nbsp;</td>
 106 
        <tr>
107 
          <td align="right"><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
 107 
          <td width="1%">&nbsp;</td>
108 
          <td width="1%">&nbsp;</td>
 108 
          <td align="right"><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
109 
        </tr>
 109 
          <td width="1%">&nbsp;</td>
110 
        <tr>
110 
        </tr>
111 
          <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>
 111 
        <tr>
112 
           <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
 112 
          <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>
113 
          <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
 113 
           <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
114 
        </tr>
 114 
          <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
115 
        <tr>
115 
        </tr>
116 
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 116 
        <tr>
117 
          <td bgcolor="#FFFFFF" valign="top" class="form_item">
 117 
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
118 
          <table class="full_table">
 118 
          <td bgcolor="#FFFFFF" valign="top" class="form_item">
119 
          <tr class="form_item">
 119 
          <table class="full_table">
120 
          <td>You have access to do:</td>
 120 
          <tr class="form_item">
121 
          <td align="right">Active Project:
 121 
          <td>You have access to do:</td>
122 
                 <select name="projA" class="form_item" onChange="updatePage(this.value)" >
 122 
          <td align="right">Active Project:
123 
                    <option value="">-- Select Project --</option>
 123 
                 <select name="projA" class="form_item" onChange="updatePage(this.value)" >
124 
                    <%
 124 
                    <option value="">-- Select Project --</option>
125 
                    OraDatabase.Parameters.Add "PROJ_ID",    parProj,   ORAPARM_INPUT, ORATYPE_NUMBER
 125 
                    <%
126 
                    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), cint(0))
 126 
                    OraDatabase.Parameters.Add "PROJ_ID",    parProj,   ORAPARM_INPUT, ORATYPE_NUMBER
127 
                    OraDatabase.Parameters.Remove "PROJ_ID"
 127 
                    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), cint(0))
128 
                    While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
 128 
                    OraDatabase.Parameters.Remove "PROJ_ID"
129 
                       <option value="<%=rsQry("proj_id")%>" <%=rsQry("selected")%>><%=rsQry("proj_name")%></option>
 129 
                    While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
130 
                       <%rsQry.MoveNext
 130 
                       <option value="<%=rsQry("proj_id")%>" <%=rsQry("selected")%>><%=rsQry("proj_name")%></option>
131 
                    WEnd
 131 
                       <%rsQry.MoveNext
132 
                    rsQry.Close
 132 
                    WEnd
133 
                    Set rsQry = Nothing
 133 
                    rsQry.Close
134 
                    %>
 134 
                    Set rsQry = Nothing
135 
                 </select>
 135 
                    %>
136 
          </td>
 136 
                 </select>
137 
          </table>
 137 
          </td>
138 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
 138 
          </table>
139 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field" style="white-space:nowrap">
 139 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
140 
                  <td rowspan=3><b>Action&nbsp;</b><%=Quick_Help("ad_action")%></td>
 140 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field" style="white-space:nowrap">
141 
                  <td rowspan=3><b>Description</b><%=Quick_Help("ad_description")%></td>
 141 
                  <td rowspan=3><b>Action&nbsp;</b><%=Quick_Help("ad_action")%></td>
142 
                  <% If bAdvMode Then %>
 142 
                  <td rowspan=3><b>Description</b><%=Quick_Help("ad_description")%></td>
143 
                  <td colspan=4 align="center"><b>Raw</b><%=Quick_Help("ad_raw")%></td>
 143 
                  <% If bAdvMode Then %>
144 
                  <%End If%>
 144 
                  <td colspan=4 align="center"><b>Raw</b><%=Quick_Help("ad_raw")%></td>
145 
                  <td colspan=4 align="center"><b>Processed</b><%=Quick_Help("ad_processed")%></td>
 145 
                  <%End If%>
146 
                </tr>
 146 
                  <td colspan=4 align="center"><b>Processed</b><%=Quick_Help("ad_processed")%></td>
147 
 
 147 
                </tr>
148 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field" style="white-space:nowrap">
 148 
 
149 
                  <% If bAdvMode Then %>
 149 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field" style="white-space:nowrap">
150 
                  <td colspan=2 align="center"><b>Access</b><%=Quick_Help("ad_access")%></td>
 150 
                  <% If bAdvMode Then %>
151 
                  <td colspan=2 align="center"><b>Data</b><%=Quick_Help("ad_data")%></td>
 151 
                  <td colspan=2 align="center"><b>Access</b><%=Quick_Help("ad_access")%></td>
152 
                  <%End If%>
 152 
                  <td colspan=2 align="center"><b>Data</b><%=Quick_Help("ad_data")%></td>
153 
                  <td colspan=2 align="center"><b>Normal</b><%=Quick_Help("ad_normal")%></td>
 153 
                  <%End If%>
154 
                  <td colspan=2 align="center"><b>InProject</b><%=Quick_Help("ad_inproject")%></td>
 154 
                  <td colspan=2 align="center"><b>Normal</b><%=Quick_Help("ad_normal")%></td>
155 
                </tr>
 155 
                  <td colspan=2 align="center"><b>InProject</b><%=Quick_Help("ad_inproject")%></td>
156 
 
 156 
                </tr>
157 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field">
 157 
 
158 
                  <% If bAdvMode Then %>
 158 
                <tr background="images/bg_form_lightbluedark.gif" class="form_field">
159 
                  <td><b>Visible</b><%=Quick_Help("ad_visible")%></td>
 159 
                  <% If bAdvMode Then %>
160 
                  <td><b>Active</b><%=Quick_Help("ad_active")%></td>
 160 
                  <td><b>Visible</b><%=Quick_Help("ad_visible")%></td>
161 
                  <td><b>Visible</b></td>
 161 
                  <td><b>Active</b><%=Quick_Help("ad_active")%></td>
162 
                  <td><b>Active</b></td>
 162 
                  <td><b>Visible</b></td>
163 
                  <%End If%>
 163 
                  <td><b>Active</b></td>
164 
                  <td><b>Visible</b></td>
 164 
                  <%End If%>
165 
                  <td><b>Active</b></td>
 165 
                  <td><b>Visible</b></td>
166 
                  <td><b>Visible</b><%=Quick_Help("ad_visible")%></td>
 166 
                  <td><b>Active</b></td>
167 
                  <td><b>Active</b><%=Quick_Help("ad_active")%></td>
 167 
                  <td><b>Visible</b><%=Quick_Help("ad_visible")%></td>
168 
                </tr>
 168 
                  <td><b>Active</b><%=Quick_Help("ad_active")%></td>
169 
				<%
 169 
                </tr>
170 
                sqlQuery = "select obj_name, obj_description " &_
 170 
				<%
171 
                            "from control_objects co " &_
 171 
                sqlQuery = "select obj_name, obj_description " &_
172 
                            "where co.app_id = :APP_ID " &_
 172 
                            "from control_objects co " &_
173 
                            "order by UPPER(co.obj_name)"
 173 
                            "where co.app_id = :APP_ID " &_
174 
 
 174 
                            "order by UPPER(co.obj_name)"
175 
				OraDatabase.Parameters.Add "APP_ID",   APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBER
 175 
 
176 
				Set rsTemp = OraDatabase.DbCreateDynaset(sqlQuery, cint(0))
 176 
				OraDatabase.Parameters.Add "APP_ID",   APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBER
177 
				OraDatabase.Parameters.Remove "APP_ID"
 177 
				Set rsTemp = OraDatabase.DbCreateDynaset(sqlQuery, cint(0))
178 
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 178 
				OraDatabase.Parameters.Remove "APP_ID"
179 
				%>
 179 
			    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
180 
				<tr background="images/bg_form_lightgray.gif" class="form_item">
 180 
				%>
181 
                  <td nowrap><%=rsTemp("obj_name")%></td>
 181 
				<tr background="images/bg_form_lightgray.gif" class="form_item">
182 
                  <td><%=rsTemp("obj_description")%></td>
 182 
                  <td nowrap><%=rsTemp("obj_name")%></td>
183 
                  <% If bAdvMode Then %>
 183 
                  <td><%=rsTemp("obj_description")%></td>
184 
                  <td align="right"><%=chkbox(objAccessControl.IsVisible(rsTemp("obj_name")))%></td>
 184 
                  <% If bAdvMode Then %>
185 
                  <td>              <%=chkbox(objAccessControl.IsActive(rsTemp("obj_name")))%></td>
 185 
                  <td align="right"><%=chkbox(objAccessControl.IsVisible(rsTemp("obj_name")))%></td>
186 
                  <%If parProj <> "" Then %>
 186 
                  <td>              <%=chkbox(objAccessControl.IsActive(rsTemp("obj_name")))%></td>
187 
                    <td align="right"><%=chkbox(objAccessControl.IsDataVisible ("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
 187 
                  <%If parProj <> "" Then %>
188 
                    <td>              <%=chkbox(objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
 188 
                    <td align="right"><%=chkbox(objAccessControl.IsDataVisible ("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
189 
                  <%Else%>
 189 
                    <td>              <%=chkbox(objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, rsTemp("obj_name")))%></td>
190 
                  <td></td>
 190 
                  <%Else%>
191 
                  <td></td>
 191 
                  <td></td>
192 
                  <%End If%>
 192 
                  <td></td>
193 
                  <%End If%>
 193 
                  <%End If%>
194 
                  <td align="right"><%=chkbox(canShowControl(rsTemp("obj_name")))%></td>
 194 
                  <%End If%>
195 
                  <td>              <%=chkbox(canActionControl(rsTemp("obj_name")))%></td>
 195 
                  <td align="right"><%=chkbox(canShowControl(rsTemp("obj_name")))%></td>
196 
 
 196 
                  <td>              <%=chkbox(canActionControl(rsTemp("obj_name")))%></td>
197 
                  <%If parProj <> "" Then %>
 197 
 
198 
                  <td align="right"><%=chkbox(canShowControlInProject(rsTemp("obj_name")))%></td>
 198 
                  <%If parProj <> "" Then %>
199 
                  <td>              <%=chkbox(canActionControlInProject(rsTemp("obj_name")))%></td>
 199 
                  <td align="right"><%=chkbox(canShowControlInProject(rsTemp("obj_name")))%></td>
200 
                  <%Else%>
 200 
                  <td>              <%=chkbox(canActionControlInProject(rsTemp("obj_name")))%></td>
201 
                  <td></td>
 201 
                  <%Else%>
202 
                  <td></td>
 202 
                  <td></td>
203 
                  <%End If%>
 203 
                  <td></td>
204 
                </tr>
 204 
                  <%End If%>
205 
				<%rsTemp.MoveNext
 205 
                </tr>
206 
	    	    WEnd
 206 
				<%rsTemp.MoveNext
207 
				rsTemp.Close()
 207 
	    	    WEnd
208 
				Set rsTemp = nothing
 208 
				rsTemp.Close()
209 
				%>
 209 
				Set rsTemp = nothing
210 
              </table>
 210 
				%>
211 
			  <br><br>
 211 
              </table>
212 
              <%
 212 
			  <br><br>
213 
              If bAdvMode Then
 213 
              <%
214 
                  objAccessControl.dumpAll()
 214 
              If bAdvMode Then
215 
                  'objAccessControl.bDebug = true
 215 
                  objAccessControl.dumpAll()
216 
              End If
 216 
                  'objAccessControl.bDebug = true
217 
              %>
 217 
              End If
218 
			</td>
 218 
              %>
219 
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
 219 
			</td>
220 
        </tr>
 220 
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
221 
        <tr>
221 
        </tr>
222 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
 222 
        <tr>
223 
          <td background="images/bg_member_dark.gif"></td>
 223 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
224 
          <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>
 224 
          <td background="images/bg_member_dark.gif"></td>
225 
        </tr>
 225 
          <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>
226 
		</form>
 226 
        </tr>
227 
      </table>
 227 
		</form>
228 
      <!-------------------------------------------------------->
 228 
      </table>
229 
    </td>
 229 
      <!-------------------------------------------------------->
230 
    <td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"></td>
 230 
    </td>
231 
  </tr>
 231 
    <td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"></td>
232 
  <tr>
232 
  </tr>
233 
    <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>
 233 
  <tr>
234 
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
 234 
    <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>
235 
  </tr>
 235 
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
236 
</table>
 236 
  </tr>
237 
 
 237 
</table>
238 
<!-- FOOTER -->
 238 
 
239 
<!--#include file="_footer.asp"-->
 239 
<!-- FOOTER -->
240 
</body>
 240 
<!--#include file="_footer.asp"-->
241 
</html>
 241 
</body>
242 
<%
 242 
</html>
243 
Call Destroy_All_Objects
 243 
<%
- 
 
 244 
Call Destroy_All_Objects
244 
%>
 245 
%>
245 

            246