function correctPNG() 
   {
   for(var i=0; i<document.images.length; i++)
      {
	  var img = document.images[i]
	  var imgName = img.src.toUpperCase()
	  if (imgName.substring(imgName.length-3, imgName.length) == "PNG")
	     {
		 var imgID = (img.id) ? "id='" + img.id + "' " : ""
		 var imgClass = (img.className) ? "class='" + img.className + "' " : ""
		 var imgTitle = (img.title) ? "title='" + img.title + "' " : "title='" + img.alt + "' "
		 var imgStyle = "display:inline-block;" + img.style.cssText 
		 if (img.align == "left") imgStyle = "float:left;" + imgStyle
		 if (img.align == "right") imgStyle = "float:right;" + imgStyle
		 if (img.parentElement.href) imgStyle = "cursor:hand;" + imgStyle		
		 var strNewHTML = "<span " + imgID + imgClass + imgTitle
		 + " style=\"" + "width:" + img.width + "px; height:" + img.height + "px;" + imgStyle + ";"
	     + "filter:progid:DXImageTransform.Microsoft.AlphaImageLoader"
		 + "(src=\'" + img.src + "\', sizingMethod=image);\"></span>" 
		 img.outerHTML = strNewHTML
		 i = i-1
	     }
      }
   }

if(window.addEventListener)
{
	
}	
else
{
	window.attachEvent("onload",correctPNG);
}


function insertar_flash_commands(objeto,variables,swf,ancho,largo,titulo,transparencia,commands)
{
var transparente = "";

document.write('<object  id="'+objeto+'" name="'+objeto+'" title="'+titulo+'" 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="'+largo+'">\n');
document.write('<param name="FlashVars" value="'+variables+'"/>\n');
if(transparencia) 	{
					document.write('<param name="wmode" value="transparent"/>\n');
					transparente = 'wmode="transparent"';
					}
document.write('<param name="movie" value="'+swf+'"/>\n');
document.write('<embed src="'+swf+'" id="'+objeto+'" name="'+objeto+'" quality="high" FlashVars="'+variables+'"  '+transparente+' pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="'+ancho+'" height="'+largo+'">');
document.write('</embed>');

document.write('</object>');

	if(commands)
	{
		document.write('<script type="text/javascript" language="javascript">');
		document.write('var InternetExplorer = navigator.appName.indexOf("Microsoft") != -1;');
		document.write('function '+objeto+'_DoFSCommand(command, args) ');
		document.write('{');
		document.write('var muestraObj =InternetExplorer ? '+objeto+' : document.'+objeto+';');
		document.write('if (command=="mostrar")');
		document.write('{');
		document.write('imagen=args.split(",");');
		document.write('document.img.src=imagen[0];');
		document.write('document.img.title=imagen[1];');
		document.write('}');
		document.write('}');
		document.write('</script>');
		if (navigator.appName=="Microsoft Internet Explorer")
		{	
			document.write('<SCRIPT LANGUAGE=VBScript\> \n');
			document.write('on error resume next \n');
			document.write('Sub '+objeto+'_FSCommand(ByVal command, ByVal args)\n');
			document.write( 'call '+objeto+'_DoFSCommand(command, args)\n');
			document.write('end sub\n');
			document.write('</SCRIPT\> \n');
		}
	}
}

function insertar_flash(objeto,variables,swf,ancho,largo,titulo,transparencia,commands)
{
var transparente = "";

document.write('<object  id="'+objeto+'" name="'+objeto+'" title="'+titulo+'" 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="'+largo+'">\n');
document.write('<param name="FlashVars" value="'+variables+'"/>\n');
if(transparencia) 	{
					document.write('<param name="wmode" value="transparent"/>\n');
					transparente = 'wmode="transparent"';
					}
document.write('<param name="movie" value="'+swf+'"/>\n');
document.write('<embed src="'+swf+'" id="'+objeto+'" name="'+objeto+'" quality="high" FlashVars="'+variables+'"  '+transparente+' pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="'+ancho+'" height="'+largo+'">');
document.write('</embed>');
document.write('</object>');
}

function insertar_imgBD(objeto,ruta,archivo)
{

tipo=archivo.substr(archivo.length-3);
src=ruta+archivo;
var tam=arguments[3] || "";
if(tam=="") {ancho='';alto='';}
else {var ancho='width="'+tam.an+'"';var alto='height="'+tam.al+'"';}

if(tipo=="swf") 
	{
	document.write('<object  id="'+objeto+'" name="'+objeto+'" title="'+objeto+'" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0">\n');
	document.write('<param name="wmode" value="transparent"/>\n');
	document.write('<param name="movie" value="'+src+'"/>\n');
	document.write('<embed src="'+src+'" id="'+objeto+'" name="'+objeto+'" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash">');
	document.write('</embed>');
	document.write('</object>');
	}
	else	{
			document.write('<img src="'+src+'" border="0" title="'+objeto+'" '+ancho+' '+alto+'/>');
			}

}

//*****Para email*/

function emailCheck (emailStr) 
{
var emailPat=/^(.+)@(.+)$/
var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]"
var validChars="\[^\\s" + specialChars + "\]"
var quotedUser="(\"[^\"]*\")"
var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/
var atom=validChars + '+'
var word="(" + atom + "|" + quotedUser + ")"
var userPat=new RegExp("^" + word + "(\\." + word + ")*$")
var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$")
var matchArray=emailStr.match(emailPat)

if (matchArray==null) 
{

	alert("La dirección de e-mail no es valida (revise @ y .'s)")

	return false

}
var user=matchArray[1]
var domain=matchArray[2]
if (user.match(userPat)==null) 
{
alert("EL nombre de usuario no es valido.")
return false
}
var IPArray=domain.match(ipDomainPat)

if (IPArray!=null) {

	  for (var i=1;i<=4;i++) {

	if (IPArray[i]>255) {

	    alert("La dirección IP no es valida!")

		return false
	}
}
return true
}

var domainArray=domain.match(domainPat)

if (domainArray==null) {

	alert("EL nombre del dominio no es valido.")

return false

}

var atomPat=new RegExp(atom,"g")
var domArr=domain.match(atomPat)
var len=domArr.length
if (domArr[domArr.length-1].length<2 || 
domArr[domArr.length-1].length>3) {

alert("La dirección de internet del dominio de servidor de correo debe tener tres letras (Por ejemplo: .com, .net, .edu), o dos letras del pais.")
   return false

}

if (len<2) {

   var errStr="La dirección no contiene el nombre de dominio!"

   alert(errStr)

   return false

}

return true;

}

function limpiar_buscar(b,texto)
{
var txt_busqueda=document.getElementById(b);
if(txt_busqueda.value==texto) txt_busqueda.value="";
}

function llenar_buscar(b,texto)
{
var txt_busqueda=document.getElementById(b);
if(txt_busqueda.value=="") txt_busqueda.value=texto;
}

function busqueda(f,b,texto)
{
	var txt_busqueda=document.getElementById(b);
	var forma=document.getElementById(f);
	if(txt_busqueda.value=="" || txt_busqueda.value==texto) 
	{
	alert('No ha escrito nada, Por favor escriba el texto que desea buscar');limpiar_buscar(b,texto);txt_busqueda.focus();return
	}
	forma.submit();
}

// Boletin de correos en visualizacion*******
function enviar(valor)
{
 var d;
 d=document.formulario;
 if(d.f_email.value=="")
 {
  alert("Debe ingresar un email");
  d.f_email.focus();
  return;
 }
 else {
	 	if (!emailCheck(d.f_email.value))
 		{
		d.f_email.focus();
  		return;
		}
		else
			{
			d.opcion.value=valor;
			d.submit();
			}
 }
}
// fin de boletin de correos
// **************************  A D M O N   B O L E T I N (lista de correos)***************************************************


function admon_boletin(valor)
{
var d;
d=document.boletin;

if(valor!=3)
{
 
if(d.f_boletin.value=="")
 {
  alert("No ha Escrito la Información a Enviar");
  d.f_boletin.focus();
  return;
 }

}

d.control.value=valor;
d.submit();
}
// ************************** F I N A L      A D M O N (lista de correos) B O L E T I N ***************************************************