<%
Option Explicit
Dim conn
Dim RSEmps
Dim NumRecordsModified
set conn = server.createobject ("adodb.connection")
conn.open "AspBook", "sa", "twojehaslo"
conn.Execute "Update tblEmps set LastName = 'Kowalski'", _
  LiczbaModyfikacji
Response.Write "Zapytanie zmodyfikowao " & LiczbaModyfikacji _
  & " rekordw(y)."
set RSEmps = conn.execute("Select EmpID, LastName from tblEmps")
Do Until RSEmps.EOF
  Response.Write "<P>ID pracownika: " & RSEmps("EmpID") _
    & "<BR>Nazwisko: " & RSEmps("LastName")
  RSEmps.MoveNext
Loop
%>
