error
Okay, I'll admit it, if there's one area where my ASP scripts are lacking: it's in the area of error checking. I've looked at the Err object included with VBScript but have been really frustrated with it's seemingly lack of information. (For more information on the Err object be sure to read: Error Handling in ASP!) Consider this snippet of code:
<%
Option Explicit
Dim Conn
Dim strSQL
Set Conn = Server.CreateObject("ADODB.Connection")
'this DSN does not exist
Conn.Open "foo"
'...
If you run the above script (without having a DSN named foo created) you'll get the following error:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/dmsms/etest.asp, line 6
Fine, I can deal with that. While the error message is anything but pretty or profoundly descriptive, I do know that I need to fix something that's wrong on line 6 of the script. So I'll load it into the editor, fix it and then try running it again. If needed I'll repeat this cycle until I have a script that works.
Now consider a script like this one that has Error checking turned on:
<%
Option Explicit
On Error Resume Next
Dim Conn
Dim strSQL
Set Conn = Server.CreateObject("ADODB.Connection")
'this DSN does not exist
Conn.Open "foo"
'... more code ...
If Err.Number <> 0 then
Response.Write("Error Number -> " & Err.Number)
Response.write("<BR>Error Source -> " & Err.Source)
Response.Write("<BR>Error Desc -> " & Err.Description)
Err.Clear
End If
%>
Viewing the above script through your browser will produce the following output:
Error Number -> -2147467259
Error Source -> Microsoft OLE DB Provider for ODBC Drivers
Error Desc -> [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
To me this information is less useful than the default error message. At least with the default error message I know the line on which the error originated. Recently I was having yet another look at the Err object and I stumbled upon something that I've overlooked many times in the past. You can raise your own errors!
The Err object contains a Raise method that does exactly this. The Raise method has the following syntax:
object.Raise(number, source, description, helpfile, helpcontext)
The technical docs for the Raise method can be seen here. A quick note: when raising a custom error, the error number should be a custom error number plus the constant vbObjectError, to make sure that the error number you choose doesn't equal an already predefined error number (we'll see an example of this in the code below).
An example of using the Raise object to generate our own custom error (with a more descriptive message and the line number) can be seen below:
1: <%
2: Option Explicit
3: On Error Resume Next
4:
5: Dim Conn
6: Set Conn = Server.CreateObject("ADODB.Connection")
7:
8: 'this DSN does not exist
9: Conn.Open "foo"
10:
11: If Err.Number <> 0 then
12: Err.Clear
13: Err.Raise vbObjectError + 7, _
14: "etest.asp", "Connection Open Method Failed"
15: End If
16: If err.Number <> 0 then
17: Response.Write("Error On line -> " & Err.Number - vbObjectError)
18: Response.write("<BR>Error Source -> " & Err.Source)
19: Response.Write("<BR>Error Desc -> " & Err.Description)
20: