// Controleer contactformulier
function checkForm() {
	var blnOk = true;
	if (blnOk) {
		if (document.tellafriend.naam.value=="")
			{
			alert("U moet uw naam invullen");
			blnOk = false;
			document.tellafriend.naam.focus();
			event.returnValue = false ;
			}
	}
	
	if (blnOk) {
		if (document.tellafriend.email.value=="")
			{
			alert("U moet uw e-mailadres invullen");
			blnOk = false;
			document.tellafriend.email.focus();
			event.returnValue = false ;
			} else {
				if (!checkEmail(document.tellafriend.email.value))
				{
				alert("Het door u ingevulde e-mailadres is onjuist");
				blnOk = false;
				document.tellafriend.email.focus();
				document.tellafriend.email.value = '';
				event.returnValue = false;}
			}
	}

	if (blnOk) {
		if (document.tellafriend.naamrelatie.value=="")
			{
			alert("U moet de naam van uw relatie invullen");
			blnOk = false;
			document.tellafriend.naamrelatie.focus();
			event.returnValue = false ;
			}
	}
	
	if (blnOk) {
		if (document.tellafriend.emailrelatie.value=="")
			{
			alert("U moet het e-mailadres van uw relatie invullen");
			blnOk = false;
			document.tellafriend.emailrelatie.focus();
			event.returnValue = false ;
			} else {
				if (!checkEmail(document.tellafriend.emailrelatie.value))
				{
				alert("Het door u ingevulde e-mailadres is onjuist");
				blnOk = false;
				document.tellafriend.emailrelatie.focus();
				document.tellafriend.emailrelatie.value = '';
				event.returnValue = false;}
			}
	}

	if (blnOk) {
		document.tellafriend.submit();
	}
}

//////////////////////////////////////////////////////////////////////////////////////////////////

// Controleer of e-mailadres valid is 
function checkEmail(strEmail)
{
	strtmpEmail = String(strEmail);
	
	// Er moet een @ en een . voorkomen in een emailadres
	if (strtmpEmail.indexOf("@")== -1 || strtmpEmail.indexOf(".")== -1)
	{
		return false;
	}
	nAt = strtmpEmail.indexOf("@")
	if (nAt > 0) {
		strCheck = strtmpEmail.slice(nAt + 1)
		// De @ komt voor de .  xxx.ppibv@nl, maar tim@ppibv.nl moet ook kunnen
		// Indien de . direct na de @ komt is dat ook fout  xxx@.nl
		if (strCheck.indexOf(".") <= 0 )
		{
			return false;
		}
		else {
			// Na de punt minimaal 2 tekens xxx@ppibv.nl
			return ((parseInt(strCheck.length) -1) - parseInt(strCheck.indexOf("."))  > 1 );
		}	
	}
	else {
		return false;
	}
}	
// Einde controleer of e-mailadres valid is