From 5d91ce83f7bfc583e880cc0222320bee73e4fa03 Mon Sep 17 00:00:00 2001
From: Jos Groot Lipman <jos.grootlipman@aareon.nl>
Date: Mon, 21 Aug 2017 10:30:58 +0000
Subject: [PATCH] Meer oRs.Close voorkomt out-of-cursors

svn path=/Website/trunk/; revision=35023
---
 APPL/PRS/prs_delete.asp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/APPL/PRS/prs_delete.asp b/APPL/PRS/prs_delete.asp
index c9a6dd4cc5..06d37764c6 100644
--- a/APPL/PRS/prs_delete.asp
+++ b/APPL/PRS/prs_delete.asp
@@ -82,11 +82,12 @@ for (var i = 0; i < prs_key_arr.length; i++)
 
       // Heeft de persoon nog verplichtingen
       var sql = "SELECT 'x' FROM prs_v_verplichting_keys WHERE prs_perslid_key = " + prs_key_arr[i];
-      oRs = Oracle.Execute(sql);
+      var oRs = Oracle.Execute(sql);
       if (!oRs.eof)
       {
         hasverplichtingen = true;
       }
+      oRs.Close();
     }
     if (level == "K" && kDeleteFACMAN)
     { // Ik heb alleen WEB_FACMAN schrijfrechten
@@ -100,6 +101,7 @@ for (var i = 0; i < prs_key_arr.length; i++)
       var oRs = Oracle.Execute(sql);
       if (oRs.eof)
         canDeleteK = false; // want geen eigen mandaat
+      oRs.Close();
     }
     if (level == "B")
     {
@@ -109,6 +111,7 @@ for (var i = 0; i < prs_key_arr.length; i++)
       var oRs = Oracle.Execute(sql);
       if (oRs.eof || ((oRs("intern").value == 1) && !bDeletePRSMAN) || ((oRs("intern").value == 0) && !bDeleteRELMAN))
         canDeleteB = false;
+      oRs.Close();
     }
 
     if ((level != "P" || !hasverplichtingen) && (level != "K" || canDeleteK) && (level != "B" || canDeleteB))