document.write("<div id = 'TTSArea' style=\"position: absolute;left: -100px;top: -100px\"></div>");

	function Stop(index)
	{
		PPATTS =  document.getElementById('IDPPATTS');
		 if (!PPATTS) return;
		 PPATTS.Stop(0);
	}

	function Speak(ObjName, spk_type )
	{
		obj =	document.getElementById(ObjName);
		txt = obj.innerHTML;
		//Check ActiveX Object
	   TArea =  document.getElementById('TTSArea');
		if  (!TArea)
		{
			alert('Can\'t find TArea object');
			return;
		}
		if (TArea.innerHTML   ==   "")
		{
			//Create ActiveX Object
			 TArea.innerHTML =  "<OBJECT ID=\"IDPPATTS\"     WIDTH=0 HEIGHT=0 CLASSID=\"CLSID:3391EF64-25BC-485E-867C-AA04CCE9E30B\"></OBJECT>";

			 PPATTS =  document.getElementById('IDPPATTS');
			 if (!PPATTS) 
			{
				 alert('Can\'t find PPATTS object');
				 return;
			}
			//can't create object
			 if (!PPATTS.SpeakText ) 
			 {
				TArea.innerHTML   =  "";
				//TArea.innerHTML =  "<OBJECT ID=\"IDPPATTS\"     WIDTH=0 HEIGHT=0 CLASSID=\"CLSID:3391EF64-25BC-485E-867C-AA04CCE9E30B\"></OBJECT>";
				if (navigator.appName  !=  "Microsoft Internet Explorer")
					alert("Sory PPA Text to Speech can run on Internet Explorer only");

				window.open("http://www.ppainnovation.com/howto_use_tts/howto_use_tts.htm","HowTo","menubar=0,resizable=1,width=600,height=400,scrollbars=1");
				return -1;
			 }
		}

		PPATTS =  document.getElementById('IDPPATTS');
		 if (!PPATTS) return;
		//check ActiveX Object and ttext
		if (txt == "" ) return;
		if ( PPATTS.SpeakText)
		{
			if (!PPATTS.Version || PPATTS.Version("1.0.0.7") == -1 ) 
			{
				TArea.innerHTML   =  "";
				//alert("Please download NEW version of \"PPA Text to Speech on Web\" \n(Warning: You should close internet explorer before install)");
				window.open("http://www.ppainnovation.com/howto_use_tts/ppatts_download.htm","Download","menubar=0,resizable=1,width=600,height=400,scrollbars=1");
				return;
			}
			//Speak sound
			if (spk_type == 0)
			{
				//Normal text
				 ret = PPATTS.SpeakText( PPATTS.FindIP(), 33333, txt );
			}else{
				//HTML format (cut tag)
				 ret = PPATTS.SpeakHTML( PPATTS.FindIP(), 33333, txt );	
			}
			if (ret == -2) alert("Server busy (Maximum connection)");
			if (ret == -1) alert("Cant connect to server");
		}else{
			TArea.innerHTML   =  "";
			alert("Object not found");
		}
		return 0;
	}