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 General                   |
 5 
'|                    User General                   |
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 
'------------ VARIABLE INIT -------------------
 26 
'------------ VARIABLE INIT -------------------
27 
'------------ CONDITIONS ----------------------
 27 
'------------ CONDITIONS ----------------------
28 
'----------------------------------------------
 28 
'----------------------------------------------
29 
%>
 29 
%>
30 
<%
 30 
<%
31 
'------------ RUN BEFORE PAGE RENDER ----------
 31 
'------------ RUN BEFORE PAGE RENDER ----------
32 
Call GetUserDetails ( parUser_id, objUserCollector )
 32 
Call GetUserDetails ( parUser_id, objUserCollector )
33 
'----------------------------------------------
 33 
'----------------------------------------------
34 
%>
 34 
%>
35 
<html>
 35 
<html>
36 
<head>
 36 
<head>
37 
<title>Access Manager</title>
 37 
<title>Access Manager</title>
38 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 38 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
39 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 39 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
40 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
 40 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
41 
<script language="JavaScript" src="scripts/common.js"></script>
 41 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
42 
</head>
 42 
<script language="JavaScript" src="scripts/common.js"></script>
43 
 
 43 
</head>
44 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
 44 
 
45 
<!-- HEADER ++++++++++++++++++++++ -->
 45 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
46 
<!--#include file="_header.asp"-->
 46 
<!-- HEADER ++++++++++++++++++++++ -->
47 
<!-- +++++++++++++++++++++++++++++ -->
 47 
<!--#include file="_header.asp"-->
48 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 48 
<!-- +++++++++++++++++++++++++++++ -->
49 
	<tr>
 49 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
50 
		<td width="1%" valign="top" background="images/bg_bage_pane.gif">
 50 
	<tr>
51 
		<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
 51 
		<td width="1%" valign="top" background="images/bg_bage_pane.gif">
52 
		<!--#include file="_treeNavigator.asp"-->
52 
		<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
53 
		<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 53 
		<!--#include file="_treeNavigator.asp"-->
54 
		</td>
 54 
		<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
55 
		<td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 55 
		</td>
56 
		<td width="100%" valign="top">
 56 
		<td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
57 
			<table width="100%"  border="0" cellspacing="0" cellpadding="9">
 57 
		<td width="100%" valign="top">
58 
				<tr>
 58 
			<table width="100%"  border="0" cellspacing="0" cellpadding="9">
59 
					<td background="images/bg_drk_bage_pane.gif">
 59 
				<tr>
60 
						<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 60 
					<td background="images/bg_drk_bage_pane.gif">
61 
							<tr>
 61 
						<table width="100%"  border="0" cellspacing="0" cellpadding="0">
62 
								<td nowrap class="body_txt"></td>
 62 
							<tr>
63 
								<td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
 63 
								<td nowrap class="body_txt"></td>
64 
							</tr>
 64 
								<td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
65 
						</table>
 65 
							</tr>
66 
					</td>
 66 
						</table>
67 
				</tr>
 67 
					</td>
68 
				<tr>
 68 
				</tr>
69 
					<td class="menu_crumbttl"><%Call RenderTitle ( objUserCollector )%></td>
 69 
				<tr>
70 
				</tr>
 70 
					<td class="menu_crumbttl"><%Call RenderTitle ( objUserCollector )%></td>
71 
				<tr>
 71 
				</tr>
72 
					<td>
 72 
				<tr>
73 
					<!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 73 
					<td>
74 
					<!-- TAB CONTROLS ++++++++++++++++++++++ -->
 74 
					<!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
75 
					<!--#include file="_tabs_definition.asp"-->
 75 
					<!-- TAB CONTROLS ++++++++++++++++++++++ -->
76 
					<%
 76 
					<!--#include file="_tabs_definition.asp"-->
77 
					Set objTabControl = New TabControl
 77 
					<%
78 
					objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
 78 
					Set objTabControl = New TabControl
79 
					objTabControl.TabStyle = "StyleMac"
 79 
					objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
80 
					objTabControl.AddTabDefnition ( arrUserAccount )
 80 
					objTabControl.TabStyle = "StyleMac"
81 
					objTabControl.SelectByName ( "General" )
 81 
					objTabControl.AddTabDefnition ( arrUserAccount )
82 
					objTabControl.Render ()
 82 
					objTabControl.SelectByName ( "General" )
83 
					%>
 83 
					objTabControl.Render ()
84 
					<!-- END OF TAB CONTROLS +++++++++++++++ -->
 84 
					%>
85 
						<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 85 
					<!-- END OF TAB CONTROLS +++++++++++++++ -->
86 
							<tr>
 86 
						<table width="100%"  border="0" cellspacing="0" cellpadding="0">
87 
								<td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
 87 
							<tr>
88 
								<td width="100%" valign="top">
 88 
								<td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
89 
									<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 89 
								<td width="100%" valign="top">
90 
										<tr>
 90 
									<table width="100%"  border="0" cellspacing="10" cellpadding="0">
91 
											<td>
 91 
										<tr>
92 
												<!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
 92 
											<td>
93 
												<table border="0" align="left" bordercolor="#666666" bgcolor="#FFFFFF">
 93 
												<!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
94 
													<tr>
 94 
												<table border="0" align="left" bordercolor="#666666" bgcolor="#FFFFFF">
95 
														<td class="body_row">User ID: </td>
 95 
													<tr>
96 
														<td class="body_col"><%=Response.Write(objUserCollector("user_id"))%></td>
 96 
														<td class="body_row">User ID: </td>
97 
													</tr>
 97 
														<td class="body_col"><%=Response.Write(objUserCollector("user_id"))%></td>
98 
													<tr>
 98 
													</tr>
99 
														<td class="body_row">Full Name: </td>
 99 
													<tr>
100 
														<td class="body_col"><%=Response.Write(objUserCollector("full_name"))%></td>
 100 
														<td class="body_row">Full Name: </td>
101 
													</tr>
 101 
														<td class="body_col"><%=Response.Write(objUserCollector("full_name"))%></td>
102 
													<tr>
 102 
													</tr>
103 
														<td class="body_row">User Name: </td>
 103 
													<tr>
104 
														<td class="body_col"><%=Response.Write(objUserCollector("user_name"))%></td>
 104 
														<td class="body_row">User Name: </td>
105 
													</tr>
 105 
														<td class="body_col"><%=Response.Write(objUserCollector("user_name"))%></td>
106 
													<tr>
 106 
													</tr>
107 
														<td class="body_row">Domain: </td>
 107 
													<tr>
108 
														<td class="body_col"><%=Response.Write(objUserCollector("domain"))%></td>
 108 
														<td class="body_row">Domain: </td>
109 
													</tr>
 109 
														<td class="body_col"><%=Response.Write(objUserCollector("domain"))%></td>
110 
													<tr>
 110 
													</tr>
111 
														<td class="body_row">Email: </td>
 111 
													<tr>
112 
														<td class="body_col"><%=Response.Write(objUserCollector("user_email"))%></td>
 112 
														<td class="body_row">Email: </td>
113 
													</tr>
 113 
														<td class="body_col"><%=Response.Write(objUserCollector("user_email"))%></td>
114 
												</table>
 114 
													</tr>
115 
											</td>
 115 
												</table>
116 
										</tr>
 116 
											</td>
117 
										<tr>
 117 
										</tr>
118 
                                            <td>
 118 
										<tr>
119 
                                                <% If canActionControl("canEditUserDetails") Then%>
 119 
                                            <td>
120 
			                                    <button class="form_btn" onclick="MM_openBrWindow('wEditAccount.asp?rmode=1&rfile=<%=SCRIPT_NAME%>&<%=objPMod.ComposeURL%>','EditAccount','scrollbars=yes,resizable=yes,width=600,height=350')">
 120 
                                                <% If canActionControl("canEditUserDetails") Then%>
121 
                                                    Edit Details <%=LIMG_EDIT%>
 121 
			                                    <button class="form_btn" onclick="MM_openBrWindow('wEditAccount.asp?rmode=1&rfile=<%=SCRIPT_NAME%>&<%=objPMod.ComposeURL%>','EditAccount','scrollbars=yes,resizable=yes,width=600,height=350')">
122 
                                                </button>
 122 
                                                    Edit Details <%=LIMG_EDIT%>
123 
                                                <%Else%>
 123 
                                                </button>
124 
			                                    <span class="form_btn_dis" >
 124 
                                                <%Else%>
125 
                                                    Edit Details <%=LIMG_EDIT_OFF%>
 125 
			                                    <span class="form_btn_dis" >
126 
                                                </span>
 126 
                                                    Edit Details <%=LIMG_EDIT_OFF%>
127 
                                                <%End If%>
 127 
                                                </span>
128 
                                            </td>
 128 
                                                <%End If%>
129 
										</tr>
 129 
                                            </td>
130 
									</table>
 130 
										</tr>
131 
								</td>
 131 
									</table>
132 
								<td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 132 
								</td>
133 
							</tr>
 133 
								<td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
134 
						</table>
 134 
							</tr>
135 
						<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 135 
						</table>
136 
							<tr>
 136 
						<table width="100%"  border="0" cellspacing="0" cellpadding="0">
137 
								<td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 137 
							<tr>
138 
							</tr>
 138 
								<td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
139 
						</table>
 139 
							</tr>
140 
						<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 140 
						</table>
141 
						<br>
 141 
						<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
142 
					</td>
 142 
						<br>
143 
				</tr>
 143 
					</td>
144 
			</table>
 144 
				</tr>
145 
		</td>
 145 
			</table>
146 
	</tr>
 146 
		</td>
147 
</table>
 147 
	</tr>
148 
<!-- FOOTER ++++++++++++++++++++++ -->
 148 
</table>
149 
<!--#include file="_footer.asp"-->
 149 
<!-- FOOTER ++++++++++++++++++++++ -->
150 
<!-- +++++++++++++++++++++++++++++ -->
 150 
<!--#include file="_footer.asp"-->
151 
</body>
 151 
<!-- +++++++++++++++++++++++++++++ -->
152 
</html>
 152 
</body>
153 
<%
 153 
</html>
154 
'------------ RUN AFTER PAGE RENDER -----------
 154 
<%
155 
'----------------------------------------------
 155 
'------------ RUN AFTER PAGE RENDER -----------
156 
%>
 156 
'----------------------------------------------
- 
 
 157 
%>
157 
<!--#include file="common/globals_destructor.asp"-->
 158 
<!--#include file="common/globals_destructor.asp"-->
158 

            159