<%
Option Explicit
On Error Resume Next
Dim Conn
Dim MyError
set conn = server.createobject ("adodb.connection")
conn.Open "Cokolwiek"
For Each MyError In conn.Errors
  Response.write "Numer bdu: " & MyError.Number & "<BR>"
  Response.write "Opis bdu: " & MyError.Description & "<BR>"
  Response.write "rodo: " & MyError.Source & "<BR>"
  Response.write "Stan: " & MyError.SQLState & "<BR>"
  Response.write "Bad rda: " & MyError.NativeError & "<P>"
Next
%>
