SETABORT_VBSCRIPT.ASP

<%@ TRANSACTION=Required LANGUAGE="VBScript" %> 
<% Option Explicit %>

<HTML>
<HEAD>
<TITLE>Forced Abort with a Transactional Web Page</TITLE>
</HEAD>

<BODY BGCOLOR="White" topmargin="10" leftmargin="10">


<!-- Display Header -->

<font size="4" face="Arial, Helvetica">
<b>Forced Abort with a Transactional Web Page</b></font><br>

<hr size="1" color="#000000">


<!-- Brief Description blurb. -->

This is an example demonstrating a forced abort
within a Transacted Web Page. When an abort occurs,
all transacted changes within this web page (Database Access,
MSMQ Message Transmission, etc.) will be rolled back to
their previous state -- guarenteeing data integrity.


<%
' Abort Transaction

ObjectContext.SetAbort
%>

</BODY>
</HTML>


<%
' The Transacted Script Commit Handler. This sub-routine
' will be called if the transacted script commits.
' Note that in the example above, there is no way for the
' script not to abort.

Sub OnTransactionCommit()
Response.Write "<p><b>The Transaction just comitted</b>."
Response.Write "This message came from the "
Response.Write "OnTransactionCommit() event handler."
end sub


' The Transacted Script Abort Handler. This sub-routine
' will be called if the transacted script aborts
' Note that in the example above, there is no way for the
' script not to abort.

Sub OnTransactionAbort()
Response.Write "<p><b>The Transaction just aborted</b>."
Response.Write "This message came from the "
Response.Write "OnTransactionAbort() event handler."
end sub
%>