<% MQ_SEND_ACCESS = 2 MQ_DENY_NONE = 0 Set qi = Server.CreateObject("MSMQ.MSMQQueueInfo") qi.PathName = ".\private$\TestQ" Set q = qi.Open(MQ_SEND_ACCESS, MQ_DENY_NONE) Set smsg = Server.CreateObject("MSMQ.MSMQMessage") smsg.Body = "" & vbCr & vbLf & " 123" & vbCr & vbLf & " ABC" & vbCr & vbLf & "" smsg.Send q Set smsg = Nothing Set q = Nothing Set qi = Nothing %> OK