<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| User General | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim sNode Dim rsQry '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetUserDetails ( parUser_id, objUserCollector ) '---------------------------------------------- %>

<%=PARENT_TITLE%> <%Call RenderTitle ( objUserCollector )%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleMac" objTabControl.AddTabDefnition ( arrUserAccount ) objTabControl.SelectByName ( "General" ) objTabControl.Render () %> User ID: <%=Response.Write(objUserCollector("user_id"))%> Full Name: <%=Response.Write(objUserCollector("full_name"))%> User Name: <%=Response.Write(objUserCollector("user_name"))%> Domain: <%=Response.Write(objUserCollector("domain"))%> Email: <%=Response.Write(objUserCollector("user_email"))%> State: <%=iif( objUserCollector("is_disabled") = "Y", "Account Disabled", "Account Active" )%> <% If canActionControl("canEditUserDetails") Then%> Edit Details <%=LIMG_EDIT%> <%Else%> Edit Details <%=LIMG_EDIT_OFF%> <%End If%>

<% '------------ RUN AFTER PAGE RENDER ----------- '---------------------------------------------- %>