<%@ LANGUAGE="VBSCRIPT" %>
MSMQ Asp Sample Send Message Page
<%
on error resume next
set q=Session ( "RecvQueue" )
if err.number <> 0 then %>
Error receiving message:
<% response.write "
Error 0x" & Hex(Err.Number) & " - " & Err.Description & "
"
else
on error resume next
set msg=q.Receive (0, true, true, 100 )
if err.number <> 0 then %>
Error receiving message:
<% response.write "
Error 0x" & Hex(Err.Number) & " - " & Err.Description & "
"
else %>
<% if Not msg is Nothing then %>
Recieved Message ( body ):
<% Response.Write msg.body %>
from Queue <%= Session ("mname") & "\" & Session ("qname")%>
<% else %>
Recieving Message:
*** No messages in queue ***
<% end if %>
<% end if
end if
%>
[Back]