function CreateRTEControl(DivID, ObjectID, name, classNM, clsid, width, height, codebase, Scrollbars, SourceCodePreservation)
{
  var d = document.getElementById(DivID);
  d.innerHTML = 
    '<object id="' + ObjectID + '" classid="' + clsid + 
    '" width="' + width + '" height="' + height +
		'" name="' + name + '" class="' + classNM + 
		'" codebase="' + codebase + '">' +
    '<param name="Scrollbars" id="Scrollbars" value="' + Scrollbars + ' />' +
    '<param name="SourceCodePreservation" id="SourceCodePreservation" value="' + SourceCodePreservation + '" /></object>';
}

function CreateObjTabInfoControl(DivID, ObjectID, clsid)
{
  var d = document.getElementById(DivID);
  d.innerHTML = 
    '<object id="' + ObjectID + '" classid="' + clsid + '"></object>';
}

function CreateAndActivateControl(DivID, classNM, clsid, width, height, codebase, pNames, pValues, noEmText)
{																	
  var d = document.getElementById(DivID);
	thisObjectText = '<object classid="' + clsid + '" width="' + width + 
		'" height="' + height + '" class="' + classNM + '" codebase="' + codebase + '">';

	var aNames = new Array();
	var aVals = new Array();
	aNames = pNames.split('|');
	aVals = pValues.split('|');

	if (aNames.length == aVals.length)
	{	
		for (i=0; i<aNames.length; i++)
		{
			if (aVals[i] == 'empty_string')
				aVals[i] = '';			
			thisObjectText = thisObjectText + '<param name="' + aNames[i] + 
				'" id="' + aNames[i] + '" value="' + aVals[i] + '" />';
		}

		for (i=0; i<aNames.length; i++)
		{
			if (aVals[i] == 'empty_string')
				aVals[i] = '';
			thisObjectText = thisObjectText + '<embed class="' + classNM + 
				'" ' + aNames[i] + '="' + aVals[i] + '"></embed>';
		}
		
		if (noEmText != '')
			thisObjectText = thisObjectText + noEmText;
		
		thisObjectText = thisObjectText + '</object>';
	}	
	else
		thisObjectText = "Initialization of the object failed";

  d.innerHTML = thisObjectText;
}

function CreateNonObjectControl (DivID, objType, classNM, adlText)
{
  var d = document.getElementById(DivID);

	thisObjectText = '<' + objType + ' class="' + classNM +
		'" ' + adlText + ' />';
  d.innerHTML = thisObjectText;
}