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("Formato inválido de e-mail"); return false; }
	var user=matchArray[1];
	var domain=matchArray[2];
	if (user.match(userPat)==null){ alert("Usuario inválido en el e-mail"); return false; }
	var IPArray=domain.match(ipDomainPat);
	if (IPArray!=null){  for (var i=1;i<=4;i++){ if (IPArray[i]>255){ alert('IP inválida en el e-mail'); return false; } } return true; }
	var domainArray=domain.match(domainPat);
	if (domainArray==null){ alert('Dominio inválido en el e-mail'); 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>4){ alert('Dominio inválido en el e-mail'); return false; }
	if(len<2){ alert('Servidor inválido en el e-mail'); return false; }
	return true;
}

function validar_recomendar(f){
	var o;
	o=f.nombre1; if(o.value==''){ alert('Falta tu nombre'); o.focus(); return false; }
	o=f.nombre2; if(o.value==''){ alert('Falta el nombre de tu amig@'); o.focus(); return false; }
	o=f.email1; if(o.value>''){
		if(!o.value.match(/[a-zA-Z\.\@\d\_]/)){ alert("Formato inválido en el e-mail"); o.focus(); return false; }
		if (!emailCheck(o.value)){ o.focus(); return false; }
	}
	o=f.email2; if(o.value==''){ alert('Falta el e-mail de tu amig@'); o.focus(); return false; }
	if(!o.value.match(/[a-zA-Z\.\@\d\_]/)){ alert("Formato inválido en el e-mail"); o.focus(); return false; }
	if (!emailCheck(o.value)){ o.focus(); return false; }
	return true;
}

function validar_enviar(f){
	var o;
	o=f.nombre; if(o.value==''){ alert('Falta tu nombre'); o.focus(); return false; }
	o=f.email; if(o.value==''){ alert('Falta el e-mail de tu amig@'); o.focus(); return false; }
	if(!o.value.match(/[a-zA-Z\.\@\d\_]/)){ alert("Formato inválido en el e-mail"); o.focus(); return false; }
	if (!emailCheck(o.value)){ o.focus(); return false; }
	o=f.titulo; if(o.value==''){ alert('Falta el título'); o.focus(); return false; }
	o=f.userfile; if(o.value==''){ alert('Falta el archivo'); o.focus(); return false; }
	return true;
}

function interfase_browser(){
	if (!hp.isHomePage('http://www.puntohumor.com/')) {
		document.write(" - <a class=mi href=\"javascript:void(0);\" onClick=\"style.behavior='url(#default#homepage)';setHomePage('http://www.puntohumor.com/');\">Hacer página de inicio</a>");
	}
	if(document.all){
		document.write(" - <a class=mi href=\"http://www.puntohumor.com\" onClick=\"window.external.AddFavorite('http://www.puntohumor.com','puntoHumor.com');window.external.AddFavorite('http://www.servidor-alicante.com/fotos-divertidas/','Fotos divertidas');return false;\">Ańadir a favoritos</a>");
	}
}