ASP (vbScript) - How to intercept an Oracle Database error

'Gestione degli errori
On Error Resume Next

'Eseguo l'UPDATE
m_oracon.execute(sqlupdate)

'Stampo l'errore a video
If Err.Number <> 0 then
NumeroErrore = Err.Number
response.write "Errore nell'appicazione"
response.write "Numero errore: " & NumeroErrore & ""
DescrizioneErrore = Err.Description
response.write "Descrizione Errore: " & DescrizioneErrore & ""
Pagina = Request.ServerVariables("url")
response.write "Pagina: " & Pagina & ""

Err.Clear
response.end
End If