function createMailto(sourceForm, urlType) {

  var to      = "afanic@afanic.com";
  var cc      = "";
  var bcc     = "";
  var subject = "Petición Información - AFANIC";
  var body    = createBody(sourceForm);
  var urltext = "";

  if (to != "") {
    urltext += to;
  }
  if (cc != "") {
    urltext = addDelimiter(urltext);
    urltext += "CC=" + cc;
  }
  if (bcc != "") {
    urltext = addDelimiter(urltext);
    urltext += "BCC=" + bcc;
  }
  if (subject != "") {
    urltext = addDelimiter(urltext);
    urltext += "Subject=" + escape(subject);
  }
  if (body != "") {
    urltext = addDelimiter(urltext);
    urltext += "Body=" + escape(body);
  }else{
	return;
  }
 
  if (urlType == "url") {
    urltext = "mailto:" + urltext;
  }

  testMailto(urltext);
}


// Añadir  "?" o "&" 
function addDelimiter(inputString) {
  var inString = inputString;

    if (inString.indexOf("?") == -1) {
    inString += "?";
  }else {
    inString += "&";
  }
  return inString;
}

//Mostrar la ventana de correo.
function testMailto(loc) {
  document.mailtoForm.submit();
}

function viewMailto(mailtoText) {
  alert("URL:\n\n" + mailtoText);
}

function createBody(fr){
	
	var body = "";
			
	if (fr.Nombre.value != "")
		body = "Nombre:" + fr.Nombre.value + "\n"
	else{
		alert("Es necesario completar el campo 'Nombre'");
		fr.Nombre.focus();
		return("");
	}

	if (fr.Apellidos.value != "")
		body = body + "Apellidos: " + fr.Apellidos.value + "\n";
	else{
		alert("Es necesario completar el campo 'Apellidos'");
		fr.Apellidos.focus();
		return("");
	}	

	
	// mail
	if (fr.Mail.value != ""){
			//controlando @
			var valor=fr.Mail.value;
			if (/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$/.test(valor)){
    		body = body + "Correo Electrónico: " + fr.Mail.value + "\n";
			}
			else{ 
			alert("La dirección  '" + valor + "'  no es correcta.") 
			fr.Mail.focus();
			return("");
  			}	
	}
	else{
		alert("Es necesario introducir una cuenta de 'Correo Electrónico'");
		fr.Mail.focus();
		return("");
	}
	

	return body;
}

/*function borrarDatos(formulario){
	formulario.Nombre.value=""
	formulario.Apellidos.value=""
	formulario.Direccion.value=""
	formulario.Ciudad.value=""
	formulario.provincia.value=""
	formulario.pais.value=""
	formulario.CP.value=""
	formulario.Telefono.value=""
	formulario.Movil.value=""
	formulario.Fax.value=""
	formulario.mail.value=""
	formulario.comentarios.value=""
}*/