ASP Alliance Member: MTG

Make sure MSMQ is installed on the same machine as your IIS4/5 server. You can install it from the NT Option Pack or, if using Windows 2000, go to Start\Programs\Administrative Tools, click on Configure your Server, click on the Advanced link, then click on the appropriate installation link. You do not need to install an Enterprise/Public version of MSMQ to make this example work - choose an Independent Client installation instead (if you don't already have it installed that is).
Open VB6, start a new ActiveX DLL project, copy and paste the VB6 code below into the code window, click on Project\References..., click on the checkbox next to Microsoft Message Queue 2.0 Library, click on OK, change the Project name to MTGMSMQ, change the Class name to MessageQueues, click on File\Make MTGMSMQ.DLL..., choose a location where to save your component, click on OK, then register your component using REGSVR32 C:\Path\MTGMSMQ.DLL or add it to an MTS Explorer Package or Application.
Copy and paste the ASP code below into an ASP page named msmq.asp and store it into a virtual directory that your IIS server can execute.
Your ready - just run the msmq.asp page.

What the Example Does:

The Message and Queue name variables are declared and set (lines 1-3).
The ASP page instantiates the custom component MTGMSMQ.MessageQueues (line 4).
A new queue is created named testqueue (line 5).
A message is sent to the queue (line 6).
The message is read then written to the ASP page (line 7).
The Queue is destroyed (line 8).
The component object is destroyed (line 9).

ASP/VBScript Code for Example:

Dim strQueue, strMessage
strQueue = "testqueue" '<--- SET THE NAME OF THE QUEUE HERE
strMessage = "Hello!"  '<--- SET THE MESSAGE TO BE SENT HERE
Set objMSMQ = Server.CreateObject("MTGMSMQ.MessageQueues")
objMSMQ.CreatePrivateQueue(strQueue)
objMSMQ.SendMessage strQueue, strMessage
Response.Write(objMSMQ.ReceiveMessage(strQueue, strQueue & " message"))
objMSMQ.DeletePrivateQueue("testqueue")
Set objMSMQ = Nothing

VB6 MSMQ Component Template/Example:

'****************************************************************
'   MICROSOFT MESSAGE QUEUE (MSMQ) COMPONENT TEMPLATE/EXAMPLE
'****************************************************************
' References (Add them by going to Project\References...):
' Microsoft Message Queue 2.0 Object Library
'****************************************************************
Dim objMSMQInfo As MSMQ.MSMQQueueInfo
Dim objMSMQQueue As MSMQ.MSMQQueue
Dim objMSMQMessage As MSMQ.MSMQMessage
Dim strQueue As String, strMessage As String

Public Sub CreatePrivateQueue(varQueue As Variant)
    Dim strQueue As String
    '****************************************************************
    ' varQueue/strQueue is the name of the queue we will be creating.
    '****************************************************************
    strQueue = CStr(varQueue)
    Set objMSMQInfo = New MSMQ.MSMQQueueInfo
    '****************************************************************
    ' .\PRIVATE$\ is the path to the local machine's queue directory
    '****************************************************************
    objMSMQInfo.PathName = ".\PRIVATE$\" & strQueue
    '****************************************************************
    ' You must set the PathName property before creating and opening
    ' queues; IsWorldReadable is a paramter that determines whether a
    ' user other than the queue owner is allowed to access a given
    ' queue.
    '****************************************************************
    Dim IsTransactional As Boolean, IsWorldReadable As Boolean
    IsTransactional = False
    IsWorldReadable = True
    '****************************************************************
    ' The create method below will create a new queue that is
    ' non-transactional and globally accessable
    '****************************************************************
    objMSMQInfo.Create IsTransactional, IsWorldReadable
    '****************************************************************
    ' It's always a good idea to destroy your resources when done!
    '****************************************************************
    Set objMSMQInfo = Nothing
End Sub

Public Sub SendMessage(varQueue As Variant, varMessage As Variant)
    '****************************************************************
    ' varQueue/strQueue is the name of the queue will be sending a
    ' message to.
    '****************************************************************
    strQueue = CStr(varQueue)
    strMessage = CStr(varMessage)
    Set objMSMQInfo = New MSMQ.MSMQQueueInfo
    '****************************************************************
    ' We must first set the path to the queue we want to send
    ' messages to.
    '****************************************************************
    objMSMQInfo.PathName = ".\PRIVATE$\" & strQueue
    '****************************************************************
    ' The Open method returns an MSMQQueue object which we can use
    ' to manipulate our queue with.
    '****************************************************************
    Set objMSMQQueue = objMSMQInfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
    Set objMSMQMessage = New MSMQ.MSMQMessage
    '****************************************************************
    ' The Label property tells the MSMQMessage object what the
    ' subject or name of our message is.
    '****************************************************************
    objMSMQMessage.Label = strQueue & " Message"
    '****************************************************************
    ' The Body property is where the MSMQMessage object saves
    ' the actual message to be sent to the queue.
    '****************************************************************
    objMSMQMessage.Body = strMessage
    '****************************************************************
    ' We use the Send method of the MSMQMessage object along with the
    ' MSMQQueue obect, which holds a reference to our destination
    ' queue, to send our message.
    '****************************************************************
    objMSMQMessage.Send objMSMQQueue
    objMSMQQueue.Close
    Set objMSMQMessage = Nothing
    Set objMSMQQueue = Nothing
    Set objMSMQInfo = Nothing
End Sub

Public Function ReceiveMessage(varQueue As Variant, varMessageLabel As Variant) _
    As Variant
    '****************************************************************
    ' varQueue/strQueue is the name of the queue that we will be
    ' retrieving a message from.
    '****************************************************************
    strQueue = CStr(varQueue)
    strMessageLabel = CStr(varMessageLabel)
    Set objMSMQInfo = New MSMQ.MSMQQueueInfo
    '****************************************************************
    ' PathName sets the location of the queue we want to work with.
    '****************************************************************
    objMSMQInfo.PathName = ".\PRIVATE$\" & strQueue
    '****************************************************************
    ' In order to receive messages, we must use the
    ' MQ_RECEIVE_ACCESS constant; MQ_DENY_NONE means other users
    ' other than the queue owner can access this queue
    '****************************************************************
    Set objMSMQQueue = objMSMQInfo.Open(MQ_RECEIVE_ACCESS, MQ_DENY_NONE)
    '****************************************************************
    ' The Receive method returns an MSMQMessage object; the
    ' ReceiveTimeout property is set to 1000 milliseconds;
    ' Once a message is read - it is destroyed.
    '****************************************************************
    Set objMSMQMessage = objMSMQQueue.Receive(ReceiveTimeout:=1000)
    '****************************************************************
    ' Here's where we pass the body of the message to the calling
    ' function.
    '****************************************************************
    If Not objMSMQMessage Is Nothing Then
        ReceiveMessage = objMSMQMessage.Body
    Else
        ReceiveMessage = 0
    End If
    '****************************************************************
    ' Always close the queue once you are done with it - unless
    ' it's needed for something else.
    '****************************************************************
    objMSMQQueue.Close
    Set objMSMQQueue = Nothing
    
End Function

Public Sub DeletePrivateQueue(varQueue)
    Dim strQueue As String
    '****************************************************************
    ' varQueue/strQueue is the name of the queue that we will be
    ' retrieving a message from.
    '****************************************************************
    strQueue = CStr(varQueue)
    Set objMSMQInfo = New MSMQQueueInfo
    '****************************************************************
    ' PathName sets the location of the queue we want to work with.
    '****************************************************************
    objMSMQInfo.PathName = ".\PRIVATE$\" & strQueue
    '****************************************************************
    ' The Delete() method removes the queue specified by the PathName
    ' property.
    '****************************************************************
    objMSMQInfo.Delete
End Sub

Comments & Questions Form Comment(s):