home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / SetAbort_VBScript.asp < prev    next >
Text File  |  1997-10-25  |  2KB  |  62 lines
  1. <%@ TRANSACTION=Required LANGUAGE="VBScript" %>
  2. <%  Option Explicit %>
  3.  
  4. <HTML>
  5.     <HEAD>
  6.         <TITLE>Forced Abort with a Transactional Web Page</TITLE>
  7.     </HEAD>
  8.  
  9.     <BODY BGCOLOR="White" topmargin="10" leftmargin="10">
  10.  
  11.  
  12.         <!-- Display Header -->
  13.  
  14.         <font size="4" face="Arial, Helvetica">
  15.         <b>Forced Abort with a Transactional Web Page</b></font><br>
  16.       
  17.         <hr size="1" color="#000000">
  18.  
  19.  
  20.         <!-- Brief Description blurb.  -->
  21.  
  22.         This is an example demonstrating a forced abort
  23.         within a Transacted Web Page.  When an abort occurs,
  24.         all transacted changes within this web page (Database Access,
  25.         MSMQ Message Transmission, etc.) will be rolled back to
  26.         their previous state -- guarenteeing data integrity.
  27.  
  28.  
  29.         <%
  30.             ' Abort Transaction
  31.  
  32.             ObjectContext.SetAbort
  33.         %>
  34.  
  35.     </BODY>
  36. </HTML>
  37.  
  38.  
  39. <%
  40.     ' The Transacted Script Commit Handler.  This sub-routine
  41.     ' will be called if the transacted script commits.
  42.     ' Note that in the example above, there is no way for the
  43.     ' script not to abort.
  44.  
  45.     Sub OnTransactionCommit()
  46.         Response.Write "<p><b>The Transaction just comitted</b>." 
  47.         Response.Write "This message came from the "
  48.         Response.Write "OnTransactionCommit() event handler."
  49.     end sub
  50.  
  51.  
  52.     ' The Transacted Script Abort Handler.  This sub-routine
  53.     ' will be called if the transacted script aborts
  54.     ' Note that in the example above, there is no way for the
  55.     ' script not to abort.
  56.  
  57.     Sub OnTransactionAbort()
  58.         Response.Write "<p><b>The Transaction just aborted</b>." 
  59.         Response.Write "This message came from the "
  60.         Response.Write "OnTransactionAbort() event handler."
  61.     end sub
  62. %>