home *** CD-ROM | disk | FTP | other *** search
- <%@ TRANSACTION=Required LANGUAGE="VBScript" %>
-
- <HTML>
- <HEAD>
- <TITLE>Simple Transactional Web Page</TITLE>
- </HEAD>
-
- <BODY BGCOLOR="White" topmargin="10" leftmargin="10">
-
-
- <!-- Display Header -->
-
- <font size="4" face="Arial, Helvetica">
- <b>Simple Transactional Web Page</b></font><br>
-
- <hr size="1" color="#000000">
-
-
- <!-- Brief Description blurb. -->
-
- This is a simple example demonstrating the basic
- structure of a Transacted Web Page.
-
- </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 commit.
-
- 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 script transacted aborts
- ' Note that in the example above, there is no way for the
- ' script not to commit.
-
- 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
- %>