<%@ LANGUAGE="VBSCRIPT" %>
MSMQ Asp Sample Delete Queue Page
MSMQ Asp Sample Delete Queue Page
Deleting Queue : <%= Request.QueryString ( "MachName" ) & "\" & Request.QueryString ( "QName" ) %>
<% Set msmqinfo=CreateObject ( "MSMQ.MSMQQueueInfo" )
msmqinfo.PathName= Request.QueryString ( "MachName" ) & "\" & Request.QueryString ( "QName" )
on error resume next
msmqinfo.Delete
if err.number <> 0 then
response.write "Error 0x" & Hex(Err.Number) & " - " & Err.Description & "
"
else
response.write "Queue deleted.
"
end if
Set msmqinfo=Nothing
%>
[Home]