Public Sub MakeOrder()

Dim con As ADODB.Connection

On Error GoTo err_handler

Set contx = GetObjectContext()
Set con = New ADODB.Connection
con.Provider =  "MSDASQL.1 "
con.ConnectionString =  "DSN=test_errors;User Id=sysdba;Password=masterkey" 
con.Open

'''' Два последовательных запроса 

con.Execute  "insert into err_tbl(errors) values('Test String')" 

con.Execute  "delete from test_tbl where id > 2 "


If Not contx Is Nothing Then contx.SetComplete

exit_handler:
  
  If Not (con Is Nothing) Then
    If con.State = adStateOpen Then con.Close
    Set con = Nothing
  End If
  
  Set contx = Nothing
  Exit Sub


err_handler:
 If Not contx Is Nothing Then contx.SetAbort
 Resume exit_handler

End Sub

'''MTSTransationMode - RequiresTransaction, Instancing - MultiUse

<%@ LANGUAGE=VBScript TRANSACTION=Required %>

<%

  set tst=server.createobject( "TransTest3.ClassTest3" )
  tst.MakeOrder
  set tst=nothing
  
  
  Sub OnTransactionCommit
    response.write( "Transaction commited" )
  end sub

Sub OnTransactionAbort
  response.write( "Transaction aborted" )
end sub

%>