Cacher is the code snippet organizer for pro developers

set a = dSession.Directory.AccountsSearch("ACC_ID >=1000466 AND ACC_id<=1000470")
response.write a.documentElement.ChildNodes.length
for each node in a.documentElement.ChildNodes
	on error resume next
    set oAcc = dSession.Directory.Accounts(clng(node.getAttribute("id")&""))
   ' response.write oAcc.name
    oAcc.Delete
    
      if err.number &"" <>"0" Then
          response.write "<br>Error guardando:" & node.getAttribute("id") & "   :" & Err.description
      else
          response.write "<br>usuario " & node.getAttribute("id") & " eliminado <br>"
      End if
     on error goto 0
next
response.write "<br>" & he(a.xml)