function insertar_flash(p_archivo,p_ancho,p_alto)
{
var linea_1="<object classid=clsid:d27cdb6e-ae6d-11cf-96b8-444553540000 codebase=http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0 width="+p_ancho+" height="+p_alto+" align=middle>";
var linea_2="<param name=movie value="+p_archivo+" />";	
var linea_3="<embed src="+p_archivo+" quality=high pluginspage=http://www.macromedia.com/go/getflashplayer type=application/x-shockwave-flash width="+p_ancho+" height="+p_alto+"></embed>";	
document.write(linea_1) 
document.write(linea_2) 
document.write('<param name=quality value=high />') 
document.write('<param name=wmode value=transparent />') 
document.write(linea_3) 
document.write('</object>') 
}


function Val_Email(p_mail,p_campo_invalido)
{
	var Template = /^[a-z][a-z-_0-9.]+@[a-z-_=>0-9.]+.[a-z]{2,3}$/i //Formato de direccion de correo electronico
	if(p_mail.value!="") 
	{
		if (Template.test(p_mail.value)) 
		{				}
		else
		{   alert(p_campo_invalido);
			p_mail.focus();
			p_mail.select();
		}		
	}
	return false;
}


function Val_Campo(p_campo,p_msg_vacio,p_msg_invalido,p_msg_link)
{
	var tem = p_campo.value;
    var i = tem.length;
	var j = 0;
	var x = 0;
	var z = 0;

	// VERIFICAMOS SI SE DESEA COMPROBAR EL CAMPO , - SE VERIFICA QUE ESTE VACIO
	if (p_msg_vacio!="")
	{	  if (p_campo.value == "")
		  {		alert (p_msg_vacio);
				p_campo.focus();
				return false;
		  }
	}

	// VERIFICAMOS SI SE DESEA COMPROBAR EL CAMPO , - SE VERIFICA QUE NO INGRESEN COMILLAS
	if (p_msg_invalido!="")
	{	for(i=0; i<tem.length; i++)
		{	if(tem.charAt(i)=="'")	
			{	
				alert (p_msg_invalido);
				p_campo.focus();
				return false;	
			}				
		}
	}

	// VERIFICAMOS SI SE DESEA COMPROBAR EL CAMPO , - SE VERIFICA QUE NO INGRESEN LINKS
	if (p_msg_link!="")
	{	for (k = 0; k<=i; k++)
		{	j = tem.indexOf(" ",0);
			tem = tem.substring(0,j) + tem.substring(j+1,tem.length);
		}
		x = tem.indexOf("<a href=",0);
		z = tem.indexOf("</a>",0);
		if ((x >= 0) || (z >= 0))
		{	alert (p_msg_link);
			p_campo.focus();
			return false;
		}
	}
	return true;

}