<!--

// E-mail validation script from www.perlscriptsjavascripts.com

function validate_email(e) 
{
	ok = "1234567890qwertyuiop[]asdfghjklzxcvbnm.@-_QWERTYUIOPASDFGHJKLZXCVBNM";
	for(i=0; i < e.length ;i++)
	{
		if(ok.indexOf(e.charAt(i))<0)
		{ 
			return (false);
		}	
	} 
	
	if (document.images) 
	{
		re = /(@.*@)|(\.\.)|(^\.)|(^@)|(@$)|(\.$)|(@\.)/;
		re_two = /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/;
		
		if (!e.match(re) && e.match(re_two)) 
		{
			return (-1);		
		} 
	}
}

// -->

<!--

// This script is used to check that all required fields have been entered
// Author: Rafael Schiel

function form_check()
{
	valid = true;
	
	if ( document.support_form.required_firstname.value == "" )
	{
		alert("Please enter your First Name(s).");
		document.support_form.required_firstname.focus();
		valid = false;
	}
	else if ( document.support_form.required_surname.value == "" )
	{
		alert("Please enter your Surname.");
		document.support_form.required_surname.focus();
		valid = false;
	}
	
	else if(!validate_email(document.support_form.required_email.value))
	{
		alert("Please enter a valid e-mail address.");
		document.support_form.required_email.focus(); 
		valid = false;
	}
	return valid;
}

// -->