<HTML>
	<SCRIPT language="JAVASCRIPT">

		var ctrlPanel;
		var helper;
		var iUnknown;
				
		function SetCtrlPanel(iUnk)
		{
			iUnknown = iUnk;
			window.setTimeout('connect()',5000);	
		}

		function connect()
		{
			var fails = 0;
			var success = 0;
			while( !success && fails < 10 )
			{
			    //alert("AltusA10RIControlPanel.htm");  // for debugging
				try
				{
					helper = new ActiveXObject("Waters.ScriptHelper");
					helper.QueryDisp(iUnknown, "{36339FBD-2BF7-4094-8C24-B95CD30862F6}");
					ctrlPanel = helper.iDispatch;
					//alert("AltusA10RIControlPanel.htm Alert: Debug quickset now");    // for debugging
					var configID = ctrlPanel.configID;
					//alert(configID);    // for debugging
					var args = null;
					var retry = 0;
					while( args == null && retry < 10 )
					{
					    args = ctrlPanel.consoleArgs;
					    if( args == null || args == "" )
					    {
					        ++retry;
					        args = null;
			                //alert( "Null args returned - " + retry);                        
					        window.setTimeout('',1000);
					    }
					    else
					    {
			                //alert(args);                        
			                ControlPanel.ConnectToServer(args);
			                ControlPanel.SetConfig(configID);
					    }
					}

					success = 1;
				}
				catch(e)
				{
				    //alert("Caught exception in AltusA10RIControlPanel.htm");  // for debugging
				    window.setTimeout('', 500);
					++fails;
				}
			}
		}

	</SCRIPT>
	<body style="MARGIN: 0.0mm; CURSOR: default" noWrap scroll="no">
		<object align="middle" style="WIDTH: 100%; HEIGHT: 100%" border="0" id="ControlPanel" CLASSID="CLSID:E96F3B2C-9818-40D2-8401-9EB1EEAA8038" codebase="TestControlPanel.dll#-1,-1,-1,-1" VIEWASTEXT>
		</object>
	</body>
</HTML>
