<%
Option Explicit
Dim conn
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "twojehaslo"
Response.Write "<B>Nazwa domylnej bazy danych dla poczenia" & _
  " z baz SQL Server to: " & Conn.DefaultDatabase
conn.close
conn.open "EmpsDatabase", "Admin", ""
Response.Write "<P>Nazwa domylnej bazy danych dla poczenia" & _
  " z baz Microsoft Access to: " & Conn.DefaultDatabase
%>
