<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>MSMQ Asp Sample Send Message Page</TITLE>
</HEAD>
<BODY>
<H3>Recieved Message ( body ): <HR>
<%
set q=Session ( "RecvQueue" )
set msg=q.Receive (0, true, true, 100 )
if Not msg is Nothing then
Response.Write msg.body
else
%>
*** No message in queue ***
<% end if %>
<HR>
from Queue <%= Session ("mname") & "\" & Session ("qname")%></H1>
<A HREF="Default.asp">[Back]</A>
</BODY>
</HTML>