<!-- #include virtual="/edaad/includes/PublisherIncludes.asp" -->
<%
	Dim strPageName
	strPageName = "DeleteUsersFromMBP.asp"   
	PutState "strRightFrameASPFolderName", "Publisher\ManageUsers" 
	PutState "strRightFrameASPName", strPageName
	    
    Dim strUsers
    Dim strAction
    Dim objUsersWO

    '*** Fetch the list of selected users
    strUsers = Request("chkCurrUsers")
    strAction = Request("strAction")
    
    '*** Process selected action
    Select Case strAction
		Case "DeleteUsers"
			'*** Invoke method to delete the selected users from the current instance for role "GridName_USER"
			Set objUsersWO = Server.CreateObject("ChvCITCUserMgr.clsUsersWO")      
			objUsersWO.DeleteUsersFromRoleInInstance gstrAppInstId, gstrAppInstAbbr, strUsers, _
				UCase(gstrMBPName) & "_USER"
			If Err.Number <> 0 Then HandleError Err.Number, Err.source, Err.description, strPageName
		Case "EmailUsers"
			Response.Redirect "/eDaad/Admin/InputForEmailMessage.asp?strTitle=Send Email to MBP Users" & _
				"&strMessageType=MBPUsers&strUsers=" & strUsers
		Case Else
			Err.Raise vbobjecterror + 512, strPageName, "Invalid form action"
    End Select
	
	'*** Destroy objects and redirect back to the ManageUsers Page
	If Err.Number <> 0 Then HandleError Err.Number, Err.source, Err.description, strPageName
	If Not (objUsersWO Is Nothing) Then Set objUsersWO = Nothing
	Response.Redirect "ManageUsers.asp"
%>