Set objASPError = Server.GetLastError()
If objASPError.File <> "" Then
Response.Write objASPError.File & "<BR>" & vbcrlf
Response.Write objASPError.ASPCode & "<BR>" & vbcrlf
Response.Write objASPError.Category & "<BR>" & vbcrlf
Response.Write objASPError.Line & "<BR>" & vbcrlf
Response.Write objASPError.Column & "<BR>" & vbcrlf
Response.Write objASPError.Description & "<BR>" & vbcrlf
Response.Write objASPError.ASPDescription & "<BR>" & vbcrlf
End If
Set objASPError = Nothing