var ns4up = (document.layers) ? true : false; 
  var ie4up = (document.all) ? true : false;
  var ns6up = (document.getElementById&&!document.all) ? true : false;

if(ns4up || ns6up) {
    doc = "document";
    sty = "";
    htm = ".document";
} else {
    doc = "document.all";
    sty = ".style";
    htm = "";
}

///// Estils
var ieEstils=false;
if (ie4up || ns6up)
	ieEstils=true;

if (ieEstils)
	document.write ("<link rel='STYLESHEET' type='text/css' href='/estiloie.css'>");
else
	document.write ("<link rel='STYLESHEET' type='text/css' href='/estilons.css'>");

function escribeInput(nom,tamany,max,valor)
{
	if (ieEstils)
		document.write ("<input type=text name=" + nom + " size=" + tamany + " maxlength=" + max + " value=\"" + valor + "\" >");
	else
		document.write ("<input type=text name=" + nom + " size=" + tamany*0.80 + " maxlength=" + max + " value=\"" + valor + "\" >");
}

function escribeTextArea(nombre,cols,rows,max)
{
if (ieEstils)
	document.write ("<textarea name=" + nombre + " cols=" + cols + " rows=" + rows + " onKeyDown=\"return checkTextArea(this,\'" + nombre + "\');\" onpaste=\"return PegarTexto(this.value,\'" + nombre + "\')\" wrap=VIRTUAL>");
else
	document.write ("<textarea name=" + nombre + " cols=" + cols*1.30 + " rows=" + rows + " onKeyDown=\"return checkTextArea(this,\'" + nombre + "\');\" onpaste=\"return PegarTexto(this.value,\'" + nombre + "\')\" wrap=VIRTUAL>");
}

///////// FUNCIONES DE MACROMEDIA

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}