DEFAULT.ASP

DEFAULT.ASP

<HTML> 
<HEAD> 
<META NAME="GENERATOR" Content="Microsoft Developer Studio"> 
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1"> 
<TITLE>MSMQ ASP Lab Home Page</TITLE> 
    <SCRIPT LANGUAGE="VBScript"> 
 
Sub CreateQBtn_OnClick() 
Window.location.href = "createq.asp?MachineName=" & MACHNAME.Value & "&QueueName=" & QNAME.Value 
End Sub 
Sub OpenQBtn_OnClick() 
Window.location.href = "openq.asp?MachineName=" & MACHNAME.Value & "&QueueName=" & QNAME.Value 
End Sub 
Sub SendMsgBtn_OnClick() 
Window.location.href = "sendmsg.asp?MachineName=" & <%=Session ("mname")%> & "&QueueName=" & <%=Session ("qname")%> & "&MsgText=" & SendMsgText.Value 
End Sub 
Sub RecvMsgBtn_OnClick() 
Window.location.href = "recvmsg.asp?MachineName=" & MACHNAME.Value & "&QueueName=" & QNAME.Value 
End Sub 
Sub CloseQBtn_OnClick() 
Window.location.href = "closeq.asp?MachineName=" & MACHNAME.Value & "&QueueName=" & QNAME.Value 
End Sub 
Sub DeleteQBtn_OnClick() 
Window.location.href = "deleteq.asp?MachineName=" & MACHNAME.Value & "&QueueName=" & QNAME.Value 
End Sub 
Sub ListQBtn_OnClick() 
Window.location.href = "listq.asp" 
End Sub 
 
    </SCRIPT> 
</HEAD> 
<BODY> 
<H1>MSMQ ASP Sample Home Page</H1> 
 
<TABLE> 
<TR> 
<TD COLSPAN=3> 
    <INPUT TYPE=Button VALUE="List Queues" NAME="ListQBtn"> 
</TD> 
</TR> 
<TR> 
<TD>Queue Name</TD> 
<TD> 
    <INPUT TYPE=Text VALUE=<%=Session ("qname")%> NAME="QNAME"> 
</TD> 
</TR> 
<TR> 
<TD>Machine Name</TD> 
<TD> 
    <INPUT TYPE=Text VALUE=<%=Session ("mname")%> NAME="MACHNAME"> 
</TD> 
</TR> 
<TR> 
<TD> 
    <INPUT TYPE=Button VALUE="Create Queue" NAME="CreateQBtn"> 
</TD> 
<TD> 
    <INPUT TYPE=Button VALUE="Delete Queue" NAME="DeleteQBtn"> 
</TD> 
</TR> 
<TR> 
</TR> 
<TR> 
<TD> 
    <INPUT TYPE=Button VALUE="Open Queue  " NAME="OpenQBtn"> 
</TD> 
<TD> 
    <INPUT TYPE=Button VALUE="Close Queue " NAME="CloseQBtn"> 
</TD> 
</TR> 
<TR> 
</TR> 
<TR> 
<TD> 
    <INPUT TYPE=Button VALUE="Send Message" NAME="SendMsgBtn"> 
</TD> 
<TD><INPUT TYPE=Text VALUE="" NAME="SendMsgText"></TD> 
</TR> 
<TR> 
<TD> 
    <INPUT TYPE=Button VALUE="Recv Message" NAME="RecvMsgBtn"> 
</TD> 
</TR> 
</TABLE> 
</BODY> 
</HTML>