

<!--

plgIn='Shockwave Flash'

<!--
with (navigator) if (appName.indexOf('Microsoft')!=-1 && appVersion.indexOf('Mac')==-1) document.write(''+
'<scr'+'ipt language="VBScript">\nOn error resume next\n'+
'MM_dir = IsObject(CreateObject("SWCtl.SWCtl.1"))\n'+
'MM_flash = NOT IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash"))\n</scr'+'ipt>');
//-->

 //v4.0
  var ok=false; document.MM_returnValue = false;
  with (navigator) if (appName.indexOf('Microsoft')==-1 || (plugins && plugins.length)) {
    ok=(plugins && plugins[plgIn]);
  } else if (appVersion.indexOf('3.1')==-1) { //not Netscape or Win3.1
    if (plgIn.indexOf("Flash")!=-1 && window.MM_flash!=null) ok=window.MM_flash;
    else if (plgIn.indexOf("Director")!=-1 && window.MM_dir!=null) ok=window.MM_dir;
    else ok=false; }


 <!-- //Muestra en la página una animación flash o, si no es posible, un GIF alternativo, 
 //Los parámetros ancho y alto son los respectivos del flash y de la imágen  
 // url_enlace --> se debe indicar, cuando el flash tenía programado un enlace dentro de éste y
 //				   se desea que la imágen de sustitución tabién tenga el enlace.  
 // alt --> es el atributo relativo a la imágen
 // abrirventana --> si es blanco se abre en la misma ventana, si no ha de indicarse TODO el contenido del OnClick, 
 // Ejemplo abrirventana debería contener puesto entre comillas en la llamada de la función
 //AbrirVentana('poesia.asp','poesia','scrollbars=yes,menubar=yes,resizable=yes,width=400,height=400');return false;

function WriteFlash(swf, gif, ancho, alto, url_enlace, alt, abrirventana){

//ok=false

  if (ok) {
    cadena= '<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="' + ancho + '" height="' + alto + '">'
	cadena +='              <param name="movie" value="' + swf + '">'
	cadena +='              <param name="quality" value="high">'
	cadena +='              <embed src="' + swf + '" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="' + ancho + '" height="' + alto + '"></embed></object>'



	 }
	 
   else {
	    if (url_enlace !='') {


			if (abrirventana !='') {

				onClick='onClick="'+ abrirventana + '"'}
			else {onClick = "" }
			
			cadena ='<a href="' + url_enlace + '" '  + onClick + ' ><IMG src="' + gif + '" width="' + ancho +'" height="'+ alto +'" alt="'+ alt +'" border=0>'
		
		}
		else {
		
			 cadena ='<IMG src="' + gif + '" width="' + ancho +'" height="'+ alto +'" alt="'+ alt +'">';
			 }
   }
//   alert(cadena);
   document.write(cadena);
}

function WriteFlashPage(swf, url,color, ancho, alto){
//ok=false

  if (ok) {
     document.writeln('<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=3,0,0,0" width="' + ancho + '" height="' + alto + '">');
     document.writeln('  <param name="SRC"  value="' + swf + '">');
     document.writeln('  <param name=quality value=high>');
     document.writeln('  <param name="BGCOLOR" value="' +color+ '">');
     document.writeln('  <embed src="' + swf + '" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash"  width="' + ancho + '" height="' + alto + ' bgcolor="' +color+ '"></embed>');
     document.writeln('</object>'); }
   else {
	self.location.href = url;
   }
}


//-->
