This sample demonstrates how to send a transacted asynchronous message using the Microsoft Message Queueing Server (MSMQ). MSMQ is one of the components that comes with the Windows NT 4.0 Option Pack.

For this example to work, MSMQ must be first be installed on the host machine. Using the MSMQ Explorer, a queue named "IIS_SDK_TRANSACTED" should then be created. Please click the "transacted" option when creating the queue.

After the example is run, return to the MSMQ Explorer and select "Refresh" from the "View" menu. The recently sent message will then appear within the "IIS_SDK_TRANSACTED" queue. <% Dim QueueInfo Dim Queue Dim Msg 'Create MSMQQueueInfo component to open 'MessageQueue. Set QueueInfo = Server.CreateObject("MSMQ.MSMQQueueInfo") 'Open queue. The queue could be physically 'located on any machine. The period in the line 'below indicates that the queue is located on 'the local machine. QueueInfo.pathname = ".\IIS_SDK_TRANSACTED" Set Queue = QueueInfo.Open(2, 0) 'Create message component for queue. Set Msg = Server.CreateObject("MSMQ.MSMQMessage") 'Construct message. Anything can be passed into both 'the body and label. The developer is responsible 'for marshaling all arguments. Note that the 'delivery property has been sent to "Recoverable." 'This will guarantee that the message will survive 'a crash or shutdown on the queue machine. Msg.body = "This is the message body" Msg.Label = "This is the message label" Msg.Delivery = 1 'Send message Msg.Send Queue 'Close queue Queue.Close %> <% ' The Transacted Script Commit Handler. This function ' will be called if the transacted script commits. Sub OnTransactionCommit Response.Write "

The Transaction just comitted." Response.Write "The MSMQ message was successfully sent" End Sub ' The Transacted Script Abort Handler. This function ' will be called if the script transacted aborts Sub OnTransactionAbort Response.Write "

The Transaction just aborted." Response.Write "The MSMQ message was not sent" End Sub %>