FCLT#87155 Bij een error op Oracle.ExecuteParam ook __DoLogForm doen voor troubleshooting

svn path=/Website/branches/v2024.3/; revision=67888

APPL/Shared/m_connections.inc

@@ -349,6 +349,12 @@ SafeOracle.prototype.ExecuteParam = function (sql, params, catchErrors)
             __DoLog(sql); // alsnog
         __SafeDoLog("Database exception:<br>" + Server.HTMLEncode(e1.description).replace(/\n/g,"<br/>"), "#f00");
 
+        try {
+            if (Request.Form.Count>0) __DoLogForm("#FF0000");
+        }
+        catch(e)
+        { /* er is al een Request.BinaryRead geweest */ }
+
         if (!catchErrors)
         {
             Session("last_sql") = sql; // wordt door 500-error.asp opgepikt