function fflash(tsrc,w,h,version,fvars){
	var anchoscr=screen.width;
	var altoscr=screen.height;
	document.write(flashcode(tsrc,w,h,version,fvars));
}

function flashcode(tsrc,w,h,version,fvars){
	html="<OBJECT classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' ";
	html+="codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version="+version+"' ";
	html+="WIDTH='"+ w + "' HEIGHT='"+ h + "' id='iflash' ALIGN='center'> ";
	html+="<PARAM NAME=movie VALUE='" + tsrc + "'> <PARAM NAME=quality VALUE=high> <PARAM NAME=menu VALUE=false> ";
	html+="<param name='FlashVars' value='"+ fvars +"'> ";
	html+="<param name='allowScriptAccess' value='sameDomain'>";
	html+="<PARAM NAME=bgcolor VALUE=#ffffff> <EMBED src='" + tsrc + "' quality=high ";
	html+="bgcolor=#ffffff WIDTH='"+ w + "' HEIGHT='"+ h + "' NAME='iflash' ALIGN='center' ";
	html+="TYPE='application/x-shockwave-flash' menu='false' ";
	html+="PLUGINSPAGE='http://www.macromedia.com/go/getflashplayer' flashvars='" + fvars + "' allowScriptAccess='sameDomain'></EMBED></OBJECT>";
	return html;
}

function decodem(txt){
	var orig="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_-.@";
	var dest="bcqNdghT1YUV2Xi9jaQklm0LpJDr@stKuv6734wx_yzABCE.FGHMnIOPRSefWZ58-o";
	var out="";
	if(txt!=""){
		for(i=0;i<txt.length;i++){
			ind=orig.indexOf(txt.substring(i,i+1));
			if(ind!=-1) out+=dest.substring(ind,ind+1);
			else out+=txt.substring(i,i+1);
		}
	}
	return out;
}

function emailto(witch){
	document.location.href="mailto:"+decodem(witch);
}

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 fshowhide(capa){
	ocapa=MM_findObj(capa);
	if(ocapa.style.display=='none') ocapa.style.display='';
	else ocapa.style.display='none';
}
