<%
Option Explicit
Dim conn
set conn = server.CreateObject ("adodb.connection")
conn.open "ASPBook", "sa", "twojehaslo"
Response.Write "<B>Domylna warto limitu czasu wykonania" & _ 
  " operacji to: " & Conn.CommandTimeout & " sekund.<P>"
conn.CommandTimeout = 60
Response.Write "Warto zostaa zmieniona na: " & _
  conn.CommandTimeout & " sekund.<P>"
%>
