500-error ook laatste SQL-statement laten tonen

svn path=/Website/trunk/; revision=31821

APPL/Shared/500_error.asp

@@ -302,6 +302,7 @@ if (Application("otap_environment") == "O" || Session("logging") > 0)
   Response.Write("\n<br>" + ShowSourcecode(-8, +4));
 }
 
+Session.Contents.Remove("last_sql");
 Response.End;
 
 function ASPErrorText(extra)
@@ -320,6 +321,11 @@ function ASPErrorText(extra)
         err += "<tr><td style='vertical-align:top'>"+props[v]+":</td><td>" + safeprop + "</td></tr>";
       }
     }
+    if (Session("last_sql")) // vanuit m_connections.inc
+    {
+        err += "<tr><td style='vertical-align:top'>Last SQL:</td><td style='max-width: 800px;'>" + Server.HTMLEncode(Session("last_sql")) + "</td></tr>";
+    }
+
     err += "</table>";
     return err;
 }

APPL/Shared/m_connections.inc

@@ -26,7 +26,6 @@ function SafeExec( sql, catchErrors ) {
         result = {}; // er moet later wel een err.friendlyMsg getest kunnen worden
     }
   } catch( e1 ) {
-
     __LogCloseLine(null, "FAIL", "#FF0000");
     var msg = e1.description;
     var knownError = false;
@@ -92,7 +91,10 @@ function SafeExec( sql, catchErrors ) {
     }
 
     if (!catchErrors)
+    {
+        Session("last_sql") = sql; // wordt door 500-error.asp opgepikt
         throw e1; // Throw again
+    }
     else
         return _LastFacError;
   }