<%
Option Explicit
Dim conn
set conn = server.createobject ("adodb.connection")
Response.Write "<B>Obecny stan poczenia to: " & Conn.State
conn.open "ASPBook", "sa", "twojehaslo"
Response.Write "<P>Obecny stan poczenia to: " & Conn.State
conn.close
Response.Write "<P>Obecny stan poczenia to: " & Conn.State
%>
