<%
' intercetta errori e salta
on error resume next

set conn = Server.CreateObject("ADODB.Connection")

' questo genera un errore
StrConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:\test_db.mdb;"
Conn.Open strConn

' ... script...

' per mostrare tutti gli errori, in fase di debug
if Conn.Errors.Count>0 then

  Response.write "<HR>Debug:<BR>"
  Response.write "Impossibile aprire il database.<BR>"
  Response.write "Ecco gli errori generati: <ol>"

  for i = 0 to conn.Errors.Count -1
 ErrNum = conn.Errors(i).Number

  if ErrNum <> 0 then
            Response.write "<li>ADO Error # " & ErrNum
            Response.write "Descrizione " & conn.Errors(i).Description
            Response.write "Source " & conn.Errors(i).Source
 end if
  next

  Response.Write "</ol>"

end if

%>