MSMQ ASP Sample Create Queue Page

Creating 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.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 %>