OPENQ2.ASP
<%@ 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 Open Queue Page - 2</TITLE>
</HEAD>
<BODY>
<H1>MSMQ Asp Sample Open Queue Page - 2</H1>
<A HREF="Default.asp">[Home]</A>
<H2>Opening Queue : <%= Request.QueryString ( "QueuePath" )%></H2>
<% Set msmqinfo=CreateObject ( "MSMQ.MSMQQueueInfo" )
msmqinfo.PathName=Request.QueryString ( "QueuePath" )
Set Session ( "SendQueue" ) = msmqinfo.Open ( 2, 0 )
Set Session ( "RecvQueue" ) = msmqinfo.Open ( 1, 0 )
dim var
var = Request.QueryString ( "QueuePath" )
Session ( "qname" ) = Right ( var, Len ( var ) - Instr ( var, "\" ))
Session ( "mname" ) = Left ( var, Instr ( var, "\" ) - 1)
set msmqinfo=Nothing
%>
</BODY>
</HTML>