... Loading page, please wait...

<% Response.Flush() '*** End of loader message block %>

Manage Users Return to Grid

Invite Users Type in Last Name to filter list (or use scroll bar below Registered Publisher Users   New Grid Users   <% Dim objUsersRO Dim rsUsers Dim rsOfUsersInARole Dim strUserName Dim strUserId Dim objSecurityRO Dim rsOfRoles Dim strRoleName Dim strRoleNameToDisplay Dim i '*** Get all the registered eQuest Users Set objUsersRO = Server.CreateObject("ChvCITCUserMgr.clsUsersRO") Set rsUsers = objUsersRO.rsGetAllUsers() If Err.number <> 0 Then Call HandleError(Err.number,Err.Source,Err.Description, strPageName) '*** Add each user to the selection list If Not (rsUsers.EOF And rsUsers.BOF) Then While Not rsUsers.EOF strUserName = rsUsers.Fields("last_name").Value & ", " & _ rsUsers.Fields("first_name").Value & " " & _ rsUsers.Fields("phone").Value strUserId = rsUsers.Fields("user_id").Value %> <%=strUserName %> <% '*** NExt two lines for jscript debugging 'i = i + 1 'If i > 1 Then rsUsers.MoveLast rsUsers.MoveNext Wend End If %>       Invite selected Publisher users to use Data Move Process > <% '*** Get all the users belonging to the GRIDNAME_USER role Set rsOfUsersInARole = objUsersRO.rsGetUsersBelongingToRole(gstrAppInstAbbr, UCase(gstrMBPName) & "_USER") If Err.number <> 0 Then Call HandleError(Err.number,Err.Source,Err.Description, strPageName) '*** Display each user belonging to the role If Not (rsOfUsersInARole.EOF And rsOfUsersInARole.BOF) Then While rsOfUsersInARole.EOF <> True strUserName = Trim(rsOfUsersInARole.Fields("last_name").Value) & ", " & _ Trim(rsOfUsersInARole.Fields("first_name").Value) strUserId = Trim(rsOfUsersInARole.Fields("user_id").Value) %> <% rsOfUsersInARole.MoveNext Wend Else %> <% End If %> Current User List for <%=gstrMBPName%>    All None User Name User ID <%=strUserName%> <%=strUserId%> No users in the <%=UCase(gstrMBPName)%>_USER role   <% '*** Get all the roles for this instance Set objSecurityRO = Server.CreateObject("ChvCITCSecurityMgr.clsSecurityRO") Set rsOfRoles = objSecurityRO.rsGetRolesNotAssociatedToMBP(gstrAppInstAbbr) If Err.number <> 0 Then Call HandleError(Err.number,Err.Source,Err.Description, strPageName) '*** Loop through all the roles If Not (rsOfRoles.EOF And rsOfRoles.BOF) Then While not rsOfRoles.EOF strRoleName = Cstr(rsOfRoles.Fields("GROUPNAME").Value) strRoleNameToDisplay = strFixStringForDisplay(strRoleName) '*** Write a row displaying the role name %> Instance Roles with Access to This Grid   Role Name Role User List <%=strRoleNameToDisplay%> <% '*** Get all the users belonging to the current role Set rsOfUsersInARole = objUsersRO.rsGetUsersBelongingToRole(gstrAppInstAbbr, strRoleName) If Err.number <> 0 Then Call HandleError(Err.number,Err.Source,Err.Description, strPageName) '*** Iterate through all the users in this role and add them to a drop down list If Not (rsOfUsersInARole.EOF And rsOfUsersInARole.BOF) Then While rsOfUsersInARole.EOF <> True strUserName = Trim(rsOfUsersInARole.Fields("last_name").Value) & ", " & _ Trim(rsOfUsersInARole.Fields("first_name").Value) %> <%=strUserName%> <% rsOfUsersInARole.MoveNext Wend Else %> No Users In This Role <% End If rsOfRoles.MoveNext Wend End If %>

Return to Grid

<% '*** Destroy all objects If Not (rsUsers Is Nothing) Then Set rsUsers = Nothing If Not (rsOfUsersInARole Is Nothing) Then Set rsOfUsersInARole = Nothing If Not (objUsersRO Is Nothing) Then Set objUsersRO = Nothing If Not (objSecurityRO Is Nothing) Then Set objSecurityRO = Nothing %>