ASPError Object

[Eric Bobo]

Can someone clue me in as to why the following code for Error Object
does not work. The errors get caught, but no information exists in the
Error object fields. If I use the old err.desciption, etc I can see
values and information. What am I doing wrong?

***********************************
Dim objASPError

function junk
On Error Resume Next

'database code here

'update database
RSPayPrem.update
If Err.number > 0 Then
Set objASPError = Server.GetLastError
RSPayPrem.Close
Set RSPayPrem = Nothing

errmessage = "There was a critical error..."
'call function to display error message on error page
'passing error object fields
'(the next line displays on 1 line in code)
'(Display Error is a function with parms)
DisplayError
errmessage,objASPError.ASPCode,objASPError.Number, objASPError.Source,objASPError.Category,objASPErro r.File,objASPError.Line,objASPError.Column,objASPE rror.Description,objASPError.ASPDescription
End If

function end
************************************************** ********
Thanks

Eric

[Aaron Bertrand [MVP]]

Server.GetLastError can only work in a 500 error page (e.g. if you set up a
custom error page for 500 errors). Otherwise, you can only use the
rudimentary on error resume next and err.number/err.description solution.

(Not sure what the problem has to do with databases?)


"Eric Bobo" <Eric@EevolutionTechnology.com> wrote in message
news:OJ7it3EfDHA.1872@TK2MSFTNGP09.phx.gbl...

> Can someone clue me in as to why the following code for Error Object
> does not work. The errors get caught, but no information exists in the
> Error object fields. If I use the old err.desciption, etc I can see
> values and information. What am I doing wrong?
>
> ***********************************
> Dim objASPError
>
> function junk
> On Error Resume Next
>
> 'database code here
>
> 'update database
> RSPayPrem.update
> If Err.number > 0 Then
> Set objASPError = Server.GetLastError
> RSPayPrem.Close
> Set RSPayPrem = Nothing
>
> errmessage = "There was a critical error..."
> 'call function to display error message on error page
> 'passing error object fields
> '(the next line displays on 1 line in code)
> '(Display Error is a function with parms)
> DisplayError
>

errmessage,objASPError.ASPCode,objASPError.Number, objASPError.Source,objASPE
rror.Category,objASPError.File,objASPError.Line,ob jASPError.Column,objASPErr
or.Description,objASPError.ASPDescription

> End If
>
> function end
> ************************************************** ********
> Thanks
>
> Eric
>