//********************************************************************************
//* Functie leest een gegeven variabele uit een URL b.v. www.test.com?ID=12&ACTION=UPDATE
//* Lees_Var_Uit_URL('ID') -> returns 12
//********************************************************************************
function Lees_Var_Uit_URL(i_iVar) {
	var l_URL = document.URL;
	return(Lees_Var_Uit_Meegegeven_URL(i_iVar, l_URL));
}

function Lees_Var_Uit_Meegegeven_URL(i_iVar, i_URL) {
	var is_input = i_URL.indexOf('?');
	var variable = "";
	var argument = "";
	var left_from_sign = true;
	var count;
	var character;
	var length_of_arguments_in_url;
	var addr_str;

	// Check the position of the ? in the url
	if (is_input != -1)
	{ 
		// Create variable from ? in the url to the end of the string
		addr_str = i_URL.substring(is_input+1, i_URL.length);
		length_of_arguments_in_url =addr_str.length;
		// Loop through the url and write out values found
		// or a line break to seperate values by the &
		for (count = 0; count < addr_str.length+1; count++) 
		{
			character = addr_str.charAt(count);
			if (character == " " )
				{break;}

			if (left_from_sign && character == "=") {
				left_from_sign = false;
				continue
			}
			if (!left_from_sign && character == "&" ||
			    count == length_of_arguments_in_url) {
				left_from_sign = true;
				if (i_iVar == variable) {
					return(argument)
				}
				argument = "";
				variable = "";
				continue;
			}
			if (left_from_sign) {
				variable = variable + character;
			}
			if (!left_from_sign) {
				argument = argument + character;
			}
		}
	}
	// If there is no ? in the url state no values found
	return("")
}

function alert_waarde_van_arg(i_Arg)
{
	// test doeleinden
	alert (Lees_Var_Uit_URL(i_Arg));
}

// *****************************************************************************
// * Functie leest email uit een meegegeven URL
// * nieuw_window.html?naam=gerrit&domein=hetnet&domein_ext=nl
// * returned gerrit@hetnet.nl
// *****************************************************************************
function Lees_email_Uit_URL(i_URL) {
	var naam 	= Lees_Var_Uit_Meegegeven_URL('naam', i_URL);
	var domein 	= Lees_Var_Uit_Meegegeven_URL('domein', i_URL);
	var domein_ext	= Lees_Var_Uit_Meegegeven_URL('domein_ext', i_URL);

	var e_mail 	= naam+"@"+domein+"."+domein_ext;

	return(e_mail);
}


// *****************************************************************************
// * Functie trekt een gegeven email uit elkaar en zet dit in een url
// * formaat, dat b.v. achter een ? van een url geplakt worden.
// * email = gerrit@hetnet.nl
// * returned: 
// * "domein=hetneti&naam=gerrit&domein_ext=nl" 
// *****************************************************************************
function Trek_email_uit_elkaar_en_zet_in_URL(i_email)
{
	var part_num=0;
	var domein	= "";
	var domein_ext	= "";
	var domein_point= "";
	var email_array	= i_email.split("@");
	var naam 	= email_array[0];

	email_array = email_array[1].split(".");

	while (part_num < (email_array.length -1))
	{
		domein = domein + domein_point + email_array[part_num];
		part_num+=1;
		domein_point = ".";
	}
	domein_ext = email_array[(email_array.length - 1)];
//	alert (naam+"  @  " +domein + " .  "+domein_ext);
	return("domein="+domein+"&naam="+naam+"&domein_ext="+domein_ext);
}