<%@ LANGUAGE="VBSCRIPT" %>
MSMQ ASP Sample Close Queue Page
MSMQ ASP Sample Close Queue Page
Closing open queue
<% Set qs=Session ( "SendQueue" )
Set qr=Session ( "RecvQueue" )
on error resume next
qs.Close
if err.number <> 0 then
response.write "Error closing send handle: 0x" & Hex(Err.Number) & " - " & Err.Description & "
"
else
on error resume next
qr.Close
if err.number <> 0 then
response.write "Error closing receive handle: 0x" & Hex(Err.Number) & " - " & Err.Description & "
"
else
response.write "Queue closed.
"
end if
end if
Set Session ( "SendQueue" )=Nothing
Set Session ( "RecvQueue" )=Nothing
%>
[Home]