<%
Option Explicit
On Error Resume Next
Dim conn
set conn = server.createobject ("adodb.connection")
conn.open "Nieprawidlowy_DSN", "sa", "twoje_haslo"
If Err.Number <> 0 Then
  Response.Write Err.Source
  Response.End
End If
Response.Write "Bez problemw"
%> 
