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