MSMQ ASP Sample Create Queue Page - 2

Creating Queue : <%= Request.QueryString ( "QueuePath" )%>
<% Set msmqinfo=CreateObject ( "MSMQ.MSMQQueueInfo" ) msmqinfo.strPathName=Request.QueryString ( "QueuePath" ) on error resume next msmqinfo.Create if err.number <> 0 then response.write "Error 0x" & Hex(Err.Number) & " - " & Err.Description & "

" else response.write "Queue created.

" end if Set msmqinfo=Nothing %>