Help with Simple Error Handler

[morphiz]

Hi,
This error handler is not working...can anybody help please....

<%
Dim adoCon
Dim rsAddComments
Dim strSQL    
intID    = Cint(Request.Form("id"))
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/dritest/db/DRI.mdb") & ";Jet OLEDB:Database Password=admin"
Set rsdel = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM dritbl where ID=" & intID 
rsdel.LockType = 3
rsdel.Open strSQL, adoCon

If Not rsdel.EOF And Err = 0 Then
    rsdel.delete
    On Error Goto 0
        On Error Resume Next

If Err = 0 Then 
    Response.write "Record has been Deleted"
Else
    Response.Write "Update Error #" & Err.Number
End If

    Else

        If Err = 0 Then
            Response.Write "Record Does Not Exist"
        Else
            Response.Write "Database Error #" & Err.Number
        End If

    End If    

rsdel.Close
Set rsdel = Nothing
Set adoCon = Nothing
Response.Redirect "control.asp"
%>