<!--

// ------------------------------------------------------------------------
//  Script realizado por:
//             Carles Martínez Rius (c) '2006
// 		infoARROBAcalaix.net
//  No se permite la copia, distribución o modificación de
//  este código sin la obtención de un documento de conformidad
//  firmado por el autor. Posteriormente al citado procedimiento legal
//  será necesario indicar la fuente, y el autor del citado código en cada
//  código en el que sea utilizado.
// ------------------------------------------------------------------------

var res = (navigator.appName).search("Microsoft");

function vesA(link)
{
	window.location.href = link;
}

function SoloNums(e) {
	var tecla=0;
	if ( res==-1 ) { tecla = e.which; } else { tecla = e.keyCode; }
	if ( ((tecla>=48)&&(tecla<=57))||(tecla<=13) ) { return true; } else { return false; }
}

function VerificaCorreuOK( correu )
{
	var i=0; //contador
	var l=correu.length; //longitud de la cadena d'entrada
	var arroba=false; //flag que controla si existeix l'arroba
	var punt=false; //flag que determina si existeix l'arroba
	var c=""; //variable caracter
	var pos1 = 0;
	var pos2 = 0;

	if ( correu.length<4 ) { return 0; }

	for (i=0; i<l; i++)
	{
		 c = correu.charAt(i);
		 if (c=="@") { arroba=true; pos1 = i; }
		 if ( arroba==true ) { if (c==".") { punt=true; pos2 = i; } }
	}

	if ( (pos1>0)&&(pos2>0)&&((pos2-pos1)>1)&&((l-pos2)>1) ) {
		return (arroba & punt);
	} else {
		return 0;
	}
}

//-->