var ga_lan;
	var ga_images;
	preloadImages();
	var gb_all = false;
	onload = init;

function setSubmit(li_lan) {
		if (gb_all) {		
			var lb_submit = true;
			if (lb_submit) {
				if (document.forms['prueba_escrita'].elements['Name'].value.length == 0) {
					lb_submit = false;
					alert(ga_lan[li_lan].name);
					document.forms['prueba_escrita'].elements['Name'].focus();
				}
			}

			if (lb_submit) {
				if (document.forms['prueba_escrita'].elements['Email'].value.length == 0) {
					lb_submit = false;
					alert(ga_lan[li_lan].mail);
					document.forms['prueba_escrita'].elements['Email'].focus();
				}
				else {
					if (VerifyEmail(document.forms['prueba_escrita'].elements['Email'].value) != 1) {
						lb_submit = false;
						alert(ga_lan[li_lan].mailErr);
						document.forms['prueba_escrita'].elements['Email'].focus();
					}
				}
			}

			if (lb_submit) {
				if (document.forms['prueba_escrita'].elements['Company'].value.length == 0) {
					lb_submit = false;
					alert(ga_lan[li_lan].text);
					document.forms['prueba_escrita'].elements['Company'].focus();
				}
			}

			if (lb_submit) {
				/// var ls_action = 'http://www.crownlang.com/cgi-bin/CLIENTES/mailtocli2.cgi?itv@itv.es,Servicio_Técnico,';
				///var ls_action = 'http://www.crownlang.com/cgi-bin/formmail.pl';
				///var ls_url = document.URL;
				///var li_slash = ls_url.lastIndexOf('/');
				///var ls_action = ls_action + ls_url.substr(0, li_slash + 1) + 'respuesta.htm';
				///document.forms['prueba_escrita'].action = ls_action;
				///document.forms['prueba_escrita'].submit();
			}
		}
	}

	function init() {
		gb_all = true;
		document.forms['prueba_escrita'].elements['Name'].focus();

		// Idiomas
		ga_lan = new Array();

		// Castellano
		ga_lan[0] = new Array();
		ga_lan[0].name = 'Introduzca su nombre';
		ga_lan[0].mail = 'Introduzca su dirección de correo electrónico';
		ga_lan[0].mailErr = 'La dirección de correo electrónico introducida es incorrecta';
		ga_lan[0].text = 'Introduzca la compañía';

		// Ingles
		ga_lan[1] = new Array();
		ga_lan[1].name = 'Write your name';
		ga_lan[1].mail = 'Write your e-mail address';
		ga_lan[1].mailErr = 'e-mail address is wrong';
		ga_lan[1].text = 'Write your comments';

		// Aleman
		ga_lan[2] = new Array();
		ga_lan[2].name = 'Geben Sie Ihren Namen ein';
		ga_lan[2].mail = 'Geben Sie Ihre E-mail-adresse ein';
		ga_lan[2].mailErr = 'Die E-mail adresse ist nicht korrekt';
		ga_lan[2].text = 'Geben Sie die Kommentare ein';

		// Frances
		ga_lan[3] = new Array();
		ga_lan[3].name = 'Donnez son nom';
		ga_lan[3].mail = 'Donnez son adresse de courrier electronique';
		ga_lan[3].mailErr = "L'adresse de courrier electronique est incorrecte";
		ga_lan[3].text = 'Presentez vos commentaires';
	}

	function changeButton(vi_button, vb_on) {
		var lu_element = ga_images[0];
		if (vi_button == 1) lu_element = ga_images[1];
		var lu_image = lu_element.on.image;
		if (!vb_on) lu_image = lu_element.off.image;
		document.images[lu_element.name].src = lu_image.src;
	}

function preloadImages() {
		ga_images = new Array();
		ga_images[0] = new Array();
		ga_images[0].name = 'bt_borrar';
		ga_images[0].on = new Array();
		ga_images[0].on.image = new Image();
		ga_images[0].on.image.src = '../images/btn_form/btn_borrar_on.gif';
		ga_images[0].off = new Array();
		ga_images[0].off.image = new Image();
		ga_images[0].off.image.src = '../images/btn_form/btn_borrar_off.gif';
		ga_images[1] = new Array();
		ga_images[1].name = 'bt_enviar';
		ga_images[1].on = new Array();
		ga_images[1].on.image = new Image();
		ga_images[1].on.image.src = '../images/btn_form/btn_enviar_on.gif';
		ga_images[1].off = new Array();
		ga_images[1].off.image = new Image();
		ga_images[1].off.image.src = '../images/btn_form/btn_enviar_off.gif';
	}

	function VerifyEmail(email) {
	  var at_pos;
	  var pd_pos;
	  var sp_pos;
	  var em_len;

	  // Make sure there is a value
	  em_len = email.length;
	  if (em_len < 1) {
		return -1;
	  }

	  // Check for spaces
	  sp_pos = email.indexOf(" ", 0);
	  if (sp_pos != -1) {
		return -2;
	  }

	  // Check for an @ symbol
	  at_pos = email.indexOf("@", 0);
	  if (at_pos == -1) {
		return -3;
	  }

	  // Check for a period after the @ symbol
	  pd_pos = email.indexOf(".", at_pos);
	  if (pd_pos == -1) {
		return -4;
	  }

	  // Check for period as last character
	  if (pd_pos == (em_len - 1)) {
		return -5;
	  }

	  // Make sure there is at least one character 	<br><img src="/graphics/rtnarrow.gif" alt="Image Loading...">between @ and .
	  if (pd_pos == (at_pos + 1)) {
		return -6;
	  }

	  // Make sure address doesn't start with @ 	<br><img src="/graphics/rtnarrow.gif" alt="Image Loading...">symbol
	  if (at_pos == 0) {
		return -7;
	  }

	  return 1;
	}