vb to vbscript conversion

[terminator]

Could anyone assist in coneverting this vb code to vbscript if possible. This line (Set q = qinfpen(MQ_SEND_ACCESS, MQ_DENY_NONE) is the cause of confusion, it requires that "qinfo" and 'q' both be an instance on an object. I've tried every thing I know. maybe it's just not possible with vbscript. It works fine with VB.
If anyone has an input or solution let me know.
Thanks.

Dim qinfo As MSMQQueueInfo
Dim q As MSMQQueue

Private Sub Form_Click()

Set qinfo = New MSMQQueueInfo
qinfo.PathName = ".\OpenTest"
qinfo.Label = "Test Queue"

Set q = qinfpen(MQ_SEND_ACCESS, MQ_DENY_NONE)
If q.IsOpen Then
MsgBox "The queue " + qinfo.PathName + " is open."

Else

MsgBox "The queue is not open!"

End If

End Sub

 

[DougP]

Are you creating an Active Server Page? .asp

this is what I use

<%@ Language=VBScript %>

<%
accessdb=&quot;nwind.mdb&quot;
myDSN=&quot;PROVIDER=Microsoft.Jet.OLEDB.4.0;&quot;
myDSN=myDSN &amp; &quot;DATA SOURCE=&quot; &amp; server.mappath(accessDB) &amp; &quot;;&quot;
'myDSN=myDSN &amp; &quot;USER ID=;PASSWORD=;&quot;

mySQL=&quot;select * from customers&quot;

call query2table(mySQL,myDSN)
%>



DougP, MCP
dposton@universal1.com

Ask me how Bar-codes can help you be more productive.