Deleting several documents in idoc script

Question

Hello,
I need some help about one of my customization.
I would like to create a page on which a user would choose a website
section and then after choosing it, all the documents of this website
section would be deleted.
So, in idoc script, I created a service called "DELETE_DOC_SCRIPTABLE"
which is the same as "DELETE_DOC" but it is scriptable.
I also created a service which retrieves all the documents and then I
loop on the resultset generated and I call the service
"DELETE_DOC_SCRIPTABLE".
My first results is then deleted but then, after the first loop, UCM
doesn't recognize my resultset anymore and so the other results are
not deleted.
Here is my code :
<$loopwhile getValue("RST_DOCS_SECTION_A_SUPPRIMER","#isRowPresent")$>
<$dID=RST_DOCS_SECTION_A_SUPPRIMER.dID$>
<$executeService("DELETE_DOC_SCRIPTABLE")$>
<$exec rsNext("RST_DOCS_SECTION_A_SUPPRIMER")$>
<$endloop$>
Here is my error in etc/log file
"suppression_contenus
/produits/ucmIntra/dev/custom/GestionSectionsSite/resources/gestionsectionssite_\
ressources_supprimerContenus.htm
[ligne 23, car 7]
An error occured in the file
'/produits/ucmIntra/dev/custom/GestionSectionsSite/resources/gestionsectionssite\
_ressources_supprimerContenus.htm'
q la ligne 98 et au caractre 10. Unable to evaluate the function
'rsNext'. Unable to find result set 'RST_DOCS_SECTION_A_SUPPRIMER'.
-> <$exec rsNext("RST_DOCS_SECTION_A_SUPPRIMER")$>
-> <$endloop$>
-> </table>
Thank you in advance if you have any clue about this,
Regards,
Julian

Answer 1

I`ve gotten a little bit closer by hacking at the code..
          <$rsMakeFromString( "rsDeleteDocsBydID", xdID, "dIDstored")$>
          <$numFields = rsNumRows("rsDeleteDocsBydID")$>
          <!-- numFields == <$numFields$> -->
          <!-- To Delete = <$dIDstored$> -->     
          [[%This Works when uncommented %]]
          <!--$dID = dIDstored$-->
          <!--$executeService("ETHER_DELETE_DOC")$-->
          [[%This does not execute the service again? - But returns dIDs correctly??%]]
          <$xnumFields = 0$>
          <$loopwhile xnumFields < numFields $>
               [[%Recreate RS as Delete_doc service clears all RS?%]]
               <$rsMakeFromString( "rsDeleteDocsBydID", xdID, "dIDstored")$>
               <$exec rsSetRow("rsDeleteDocsBydID",xnumFields)$>
               <$dID = dIDstored$>
               <!-- Delete this dID = <$dID$> -->
               <$executeService("ETHER_DELETE_DOC")$>
               <$xnumFields =(xnumFields +1)$>
          <$endloop$>
I may look at using the subservice DELETE_BYNAME anyone tried using this instead?
Thanks