| KritiVerma@hotmail.com 2004-11-15, 5:49 pm |
| I have a below code from Asp page for writing a message into the Queue. But
it seems that the message is not send to the Queue. th Queue i spublic and
transactional
on error resume next
MQ_SEND_ACCESS = 2
MQ_DENY_NONE = 0
MQ_TRANSACTIONAL = 1
BIZTALKCOMMENTSQUEUE = BIZtalkQueue
' Instantiate MSMQ objects.
set objQueueInfo = createobject("MSMQ.MSMQQueueInfo")
set objMessage = createobject("MSMQ.MSMQMessage")
objQueueInfo.FormatName = "Direct=OS:" & BIZTALKCOMMENTSQUEUE
set objQueue = objQueueInfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
set objTransDisp = ework.createobject("MSMQ.MSMQTransactionDispenser")
set objTrans = objTransDisp.BeginTransaction
objMessage.Label = "Message from e-Work " & now()
Message = "<sourceComment>"
Message = Message & "<commentInfo contractId=""" & sContractNumber
Message = Message & "</sourceComment>"
objMessage.Body = Message
objMessage.Send objQueue, objTrans
objTrans.Commit
please advice
Thanks in advance
samay
Expand AllCollapse All
|