Access ADO error trapping

[aaronvegh]

Hi there,
I'm forced to use Access to serve a database for a large-ish site. Predicably, we're getting server errors that look like this:

Microsoft OLE DB
> Provider for ODBC Drivers error '8007000e' , ,
> [Microsoft][ODBC Microsoft Access Driver] System resource
> exceeded. , ,
> /foo.asp, line 441

Line 441 in this reference is the last line of this bit of code:

SqlJunk = "SELECT * from content where item_id="&id&" order by subcategory"
Set rsGlobalWeb = Server.CreateObject("ADODB.Recordset&quot
rsGlobalWeb.Open SqlJunk, dbGlobalWeb, 3

So my question is, how would I trap that last line, check it for a returned error and take alternative action in that case?

Thanks for your help!
Aaron.

 

[cmmrfrds]

Try something like the following. Errors are trapped on the connection object. Assume connection is objConn.

rsGlobalWeb.Open SqlJunk, objConn, 3, 3
If objConn.Errors.Count > 0 then
<%
for each objErr in objConn
response.write(&quot;<p>&quot
response.write(&quot;Description: &quot
response.write(objErr.Description & &quot;<br />&quot
response.write(&quot;Help context: &quot
response.write(objErr.HelpContext & &quot;<br />&quot
response.write(&quot;Help file: &quot
response.write(objErr.HelpFile & &quot;<br />&quot
response.write(&quot;Native error: &quot
response.write(objErr.NativeError & &quot;<br />&quot
response.write(&quot;Error number: &quot
response.write(objErr.Number & &quot;<br />&quot
response.write(&quot;Error source: &quot
response.write(objErr.Source & &quot;<br />&quot
response.write(&quot;SQL state: &quot
response.write(objErr.SQLState & &quot;<br />&quot
response.write(&quot;</p>&quot
next
%>
end if