<%
Option Explicit
Dim conn
Dim RS
set conn = server.createobject ("adodb.connection")
conn.open "AspBook", "sa", "haslo"
set RS = conn.execute("select * from tblEmps " & _
  "where LastName = 'Nowak' and FirstName = 'Anna'")
If RS.EOF Then
  Response.Write "<P>Anna Nowak nie wystpuje w bazie danych."
Else
  Response.Write "<P>Anna Nowak znaleziona!"
End If
conn.close
conn.open "AspBook", "sa", "haslo"
conn.BeginTrans
conn.execute "insert into tblEmps (FirstName, LastName) values (" _
  & "'Anna', 'Nowak')"
conn.RollBackTrans
set RS = conn.execute("select * from tblEmps " _ 
  & "where LastName = 'Nowak' and FirstName = 'Anna'")
If RS.EOF Then
  Response.Write "<P>Anna Nowak nie wystpuje w bazie danych."
Else
  Response.Write "<P>Anna Nowak znaleziona!"
End If
conn.close
conn.open "AspBook", "sa", "haslo"
conn.BeginTrans
conn.execute "insert into tblEmps (FirstName, LastName) values (" _
  & "'Anna', 'Nowak')"
conn.CommitTrans
set RS = conn.execute("select * from tblEmps " _ 
  & "where LastName = 'Nowak' and FirstName = 'Anna'")
If RS.EOF Then
  Response.Write "<P>Anna Nowak nie wystpuje w bazie danych."
Else
  Response.Write "<P>Anna Nowak znaleziona!"
End If
%>
