function Rvalid_3(obj, len)
{
	if(!obj.tar)
	{
		obj.tar = obj.parentNode.nextSibling;
		if(obj.tar.tagName != "TD" && obj.tar.tagName != "SPAN")
			obj.tar = obj.tar.nextSibling;
	}
	var b = checkEmail(obj.value);
	if(!b)
	{
		obj.tar.className = "invfrie";
		//obj.tar.innerHTML = o.text;
		obj.isok = false;
	}
	else
	{
		obj.tar.className = "invfrie_infok";
		//obj.tar.innerHTML = o.text;
		obj.isok = true;
	}
}

function checkEmail(email) {
	var filter = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9_\-])+\.)+([a-zA-Z0-9]{2,4})+$/;
	if (!filter.test(email)) {
		//alert('Please provide a valid email address');
		return false;
	}
	return true;
}