<%@ Transaction="RequiresNew" %>
<%@ Import Namespace="System.EnterpriseServices" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<%
Dim conBank As SqlConnection
Dim strUpdateAccountA As String
Dim strUpdateAccountB As String
Dim cmdUpdateAccountA As SqlCommand
Dim cmdUpdateAccountB As SqlCommand

' Initialize objects
conBank = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;database=conBank" )

strUpdateAccountA = "Update AccountA Set Balance = Balance - 999.99 WHERE Customer='Smith'"
cmdUpdateAccountA = New SqlCommand( strUpdateAccountA, conBank )

strUpdateAccountB = "Update AccountB Set Balance = Balance + 999.99 WHERE Customer='Smith'"
cmdUpdateAccountB = New SqlCommand( strUpdateAccountB, conBank )

' Open connection
conBank.Open()

' Try executing both commands
Try
  cmdUpdateAccountA.ExecuteNonQuery()
  cmdUpdateAccountB.ExecuteNonQuery()

  ' Commit the transaction
  ContextUtil.SetComplete()
  Response.Write( "Transaction Successful!" )
Catch ex As Exception
  ContextUtil.SetAbort()
  Response.Write( "Transaction Failed!" )
Finally
  conBank.Close()
End Try
%>