function emailCheck (emailStr) {
mensaje=""
if (emailStr=="")
	return mensaje
// cadena de entrada vacía , sale por otro caso

/* Verificar si el email tiene el formato user@dominio. */
var emailPat=/^(.+)@(.+)$/ 

/* Verificar la existencia de caracteres. ( ) < > @ , ; : \ " . [ ] */
var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]" 

/* Verifica los caracteres que son válidos en una dirección de email */
var validChars="\[^\\s" + specialChars + "\]" 

var quotedUser="(\"[^\"]*\")" 

/* Verifica si la dirección de email está representada con una dirección IP Válida */ 
var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/


/* Verificar caracteres inválidos */ 

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) {
mensaje=mensaje+"La dirección parece incorrecta (verifique @  '.')"
return mensaje
}
var user=matchArray[1]
var domain=matchArray[2]

// Si el user "user" es valido 
if (user.match(userPat)==null) {
// Si no
mensaje=mensaje+"La parte 'usuario' del email no es válida."
return mensaje
}

/* Si la dirección IP es válida */
var IPArray=domain.match(ipDomainPat)
if (IPArray!=null) {
for (var i=1;i<=4;i++) {
if (IPArray[i]>255) {
mensaje=mensaje+" IP de destino inválida"
return mensaje
}
}
}

var domainArray=domain.match(domainPat)
if (domainArray==null) {
mensaje=mensaje+"La parte 'dominio' del email no es válida."
return mensaje
}

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) { 
mensaje=mensaje+"El dominio debe tener 3 letras si es .'com' o similar, o 2 si es de algún pais."
return mensaje
}

if (len<2) {
mensaje=mensaje+"La dirección es erronea (demasiado corta)"
return mensaje
}

// La dirección de email ingresada es Válida
return mensaje;
}
	
//************************************************************************************************************

function validar_basico() {
ret=true
m=""

if (document.form_contacto.Asunto.selectedIndex==0) 
	  { 
	  m=m+"Selecciona un asunto de la lista.\n"
	  }
if (document.form_contacto.Nombre.value=="") 
	  { 
	  m=m+"Debes rellenar el campo: Nombre.\n"
	  }	  	
if (document.form_contacto.Email.value=="") 
	  { 
	  m=m+"Debes rellenar el campo: Email.\n"
	  }
if (document.form_contacto.Mensaje.value=="") 
	  { 
	  m=m+"Debes rellenar el campo: Mensaje.\n"
	  }	   	  
m=m+emailCheck(document.form_contacto.Email.value)
if (m!="") 
	{
	ret=false
	alert(m)
	}
return ret;
}