function StripSpacesFromEnds(s)
{
	// developed by www.willmaster.com
	while((s.indexOf(' ',0) == 0) && (s.length> 1))
	{
		s = s.substring(1,s.length);
	}
	while((s.lastIndexOf(' ') == (s.length - 1)) && (s.length> 1))
	{
		s = s.substring(0,(s.length - 1));
	}
	if((s.indexOf(' ',0) == 0) && (s.length == 1)) s = '';
	return s;
}

function IsItPresent(s,explanation)
{
	// developed by www.willmaster.com
	s = StripSpacesFromEnds(s);
	if(s.length) return s;
	alert(explanation);
	return '';
}

function CheckURL(s_url)
{
	// developed by www.willmaster.com
	s_url = IsItPresent(s_url,'the URL');
	if(! s_url) return false;
	var i = s_url.indexOf(' ',0);
	while(i> -1)
	{
		s_url = s_url.substring(0,i) + 
			s_url.substring((i + 1),s_url.length);
		i = s_url.indexOf(' ',0);
	}
	document.dForm.x_added_url.value = s_url;
	if((s_url.indexOf('http://',0) != 0) ||
	   (s_url.length <11) ||
	   (s_url.indexOf('.',0) <8) ||
	   (s_url.lastIndexOf('.')> (s_url.length - 3)) ||
	   (s_url.lastIndexOf('.') <(s_url.length - 4)))
	{
		alert('The URL ' + s_url + ' is not valid.');
		return false;
	}
	return true;
}

function CheckEmail(s_email)
{
	// developed by www.willmaster.com
	s_email = IsItPresent(s_email,'your email address');
	if(! s_email) return false;
	var i = s_email.indexOf(' ',0);
	while(i> -1)
	{
		s_email = s_email.substring(0,i) + 
			s_email.substring((i + 1),s_email.length);
		i = s_email.indexOf(' ',0);
	}
	document.dForm.email.value = s_email;
	if((s_email.length <6) ||
	   (s_email.indexOf('@',0) <1) ||
	   (s_email.lastIndexOf('@') != s_email.indexOf('@',0)) ||
	   (s_email.lastIndexOf('@') > (s_email.length - 5)) ||
	   (s_email.lastIndexOf('.') < (s_email.length - 4)) ||
	   (s_email.indexOf('..',0)> -1) ||
	   (s_email.indexOf('@.',0)> -1) ||
	   (s_email.indexOf('.@',0)> -1) ||
	   (s_email.indexOf(',',0)> -1))
	{
		alert('The email address "' + s_email + '" is not valid.');
		return false;
	}
	return true;
}