function getIframe(frid)
{
  var oIframe = elemById(frid);
  if (oIframe && oIframe.contentWindow) // ie6 and Moz
    oIframe = oIframe.contentWindow;
  else
    oIframe = document.frames[frid]; // ie5
	return(oIframe);
}



function elemById(e) {
  if(typeof(e)!="string") return e;
  if(document.getElementById) e=document.getElementById(e);
  else if(document.all) e=document.all[e];
  else if(document.layers) e=xLayer(e);
  else e=null;
  return e;
}
function xLayer(id,root) { // only for nn4
  var i,layer,found=null;
  if (!root) root=window;
  for(i=0; i<root.document.layers.length; i++) {
    layer=root.document.layers[i];
    if(layer.id==id) return layer;
    if(layer.document.layers.length) found=xLayer(id,layer);
    if(found) return found;
  }
  return null;
}


function getStyl(el,which)
{
	eltp=elemById(el);
  if (eltp.style)
  {
  	exp='eltp.style.'+which;
  }
  else
  {
  	exp='eltp.'+which;
  }
  	return(eval(exp));
  	
}

function setStyl(el,which,val)
{
	eltp=elemById(el);
  if (eltp.style)
  {
  	exp='eltp.style.'+which+'="'+val+'"';
  }
  else
  {
  	exp='eltp.'+which+'="'+val+'"';
  }
  	eval(exp);
}


function makeArray (name_str, n0, n1, n2, n3)
{
	var numDimens = makeArray.arguments.length - 1;
	var code = name_str + " = new Array();";
	eval (code);

	for (var i = 0; i < n0; i++) // first index is 0
//	 for (var i = 1; i <= n0; i++) // first index is 1
	{
		var newName = name_str + "[" + i + "]";		
		if (numDimens > 1)
		{
			code = "makeArray ('" + newName + "'";
			for (var j = 2; j <= numDimens; j++)
				code += ", " + makeArray.arguments[j];
			code += ");";
			eval (code);
		}
	}
}