var elem = new Array ();
var down = 0;
var index1;
var index2;

//ventana flotante para gráficos, metadatos y formularios.	
function openwind2 (name, sw) {

  var wimage = "width=400,height=610,menubar=no, toolbar=no,resizable=yes,scrollbars=no";
  var wmetadata = "menubar=yes, toolbar=yes,resizable=yes,scrollbars=yes";
  var wform = "width=600,height=480,menubar=no, toolbar=no,resizable=no,scrollbars=no,status=0";
  if (sw == 0){
	var windown2 = window.open (name,"window",wimage);	
	windown2.focus();
  } else if (sw == 1) {
	var windown2 = window.open (name,"window",wmetadata);	
	windown2.focus();    
  } else {
	var windown2 = window.open (name,"window",wform);	
	windown2.focus();
  }
}

function open_win(file,w,h){
  var vent = window.open (file,"vent","width=w,height=h,toolbars=0,scrollbars=1,statusbar=0,menubar=0,resizable=1");
  vent.focus();
}
function open_win2(file){
  var vent = window.open (file,"vent","width=700,height=500,toolbars=0,scrollbars=1,statusbar=0,menubar=0,resizable=1");
  vent.focus();
}
function openmetadata(url) {
  vent = window.open (url, "vent","width=780, height=500, toolbars=0,scrollbars=1,statusbar=0,menubar=0,resizable=1");
  vent.focus();
}

//funcion para validar datos del formulario en "download-data.htm"
function validar(f,sw){
var n;
var c;
var e;
var numeros = "0123456789";
if (f.name.value == "") {
 alert("Please enter a correct name");
 document.forms[0].name.value="";
 document.forms[0].name.focus();
 down = 0;
} else
  down = 1;
//END Validación del nombre si es vacion
if (down == 1){
 down = 0;
 for (n=0; n < f.name.value.length; n++){
   c = f.name.value.substring(n, n+1);
   if (numeros.indexOf(c,0) != -1) {
    alert("The name is invalid. Please enter again");
	document.forms[0].name.value="";
	document.forms[0].name.focus();
	down = 0;
	break;
   } else
	down = 1;
  }//END For
}// END If (down==1) - Validación del nombre si contienen caracteres no comunes o numeros
if (down == 1) {
  down = 0;
  if (f.email.value == "" || f.email.value.indexOf('@',0) == -1) {
    alert("Please enter a correct e-mail");
    document.forms[0].email.value="";
    document.forms[0].email.focus();
    down = 0;
   } else
    down = 1;
}//END If (down==1) - Validacoón del E-mail
if (down == 1) {
  down = 0;
  if (f.use.value == "" || f.use.length <= 1) {
    alert("Please enter a sentence about the use of Data");
    document.forms[0].use.value="";
    document.forms[0].use.focus();
    down = 0;
  } else
    down = 1;
} // END If (down==1) - Validación del Uso de Datos
var index1 = f.year.selectedIndex;
//alert(index1);
if (down == 1){
  down = 0;
  if (index1 == 0) {
	alert("Please select a valid Year");
	document.forms[0].year.options[0].value;
	document.forms[0].year.focus();
	down = 0;
  } else
	down = 1;
}// END If (down==1) - Validación del Año
var index2 = f.format.selectedIndex;
//alert(index2);
if (down == 1) {
  down = 0;
  if (index2 == 0) {
	alert("Please select a valid Format");
	document.forms[0].format.options[0].value;
	document.forms[0].format.focus();
	down = 0;
  } else
	down = 1;
}// END If (down==1) - Validación del Formato
if (down == 1) {
//  alert(document.forms[0].age.options[index1].value);
//  alert(document.forms[0].format.options[index2].value);
if (sw == 0)
  iniciar(f)
else
  iniciar_es(f)
 }
}

function iniciar(f) {
	var index1 = f.year.selectedIndex;
	var index2 = f.format.selectedIndex;
	var format1;
	var age1;
	var turl;
	if (down == 1) {
		elem[0] = f.para.value;
		elem[1] = f.suj.value;
		elem[2] = f.name.value;
		elem[3] = f.email.value;
		elem[4] = f.use.value;
		elem[5] = index1;
		elem[6] = f.year.options[index1].value;
		elem[7] = index2;
		elem[8] = f.format.options[index2].value;
	}
//	alert(elem[6]+"\n"+elem[8]+"\n");		
	if (index1  > 0) {
	  if (index2 > 0) {
			age1 = elem[6];
			format1 = elem[8];
//			alert(age1);
//			alert(format1);
			switch (age1) {
			case "1960" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd1960.zip";
				alert(turl);
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd1960.tar.z";
				down = 1;
			}
			break;
			case "1970" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd1970.zip";
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd1970.tar.z";
				down = 1;
			}
			break;
			case "1980" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd1980.zip";
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd1980.tar.z";
				down = 1;
			}
   		    break;
			case "1990" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd1990.zip";
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd1990.tar.z";
				down = 1;
			}
 		    break;
			case "2000" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd2000.zip";
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd2000.tar.z";
				down = 1;
			}
			break;
	       } // END del Case
			//termina if para bajar TIF o TAR
	     } // END IF
	} // END IF
//	alert(turl);
    //f.action="http://gisweb.ciat.cgiar.org/Formularios/formulario.asp";
	f.action = "http://webpc.ciat.cgiar.org/formularios/formulario.asp"
    window.location.href = "download-data.htm";
    var windown = window.open(turl, "windown", "width=320,height=150,scrollbars=0,status=1,toolbar=0,resize=0,location=1");
	window.opener.focus();
	window.close();
}

function iniciar_es(f) {
	var index1 = f.year.selectedIndex;
	var index2 = f.format.selectedIndex;
	var format1;
	var age1;
	var turl;
	if (down == 1) {
		elem[0] = f.para.value;
		elem[1] = f.suj.value;
		elem[2] = f.name.value;
		elem[3] = f.email.value;
		elem[4] = f.use.value;
		elem[5] = index1;
		elem[6] = f.year.options[index1].value;
		elem[7] = index2;
		elem[8] = f.format.options[index2].value;
	}
//	alert(elem[6]+"\n"+elem[8]+"\n");		
	if (index1  > 0) {
	  if (index2 > 0) {
			age1 = elem[6];
			format1 = elem[8];
//			alert(age1);
//			alert(format1);
			switch (age1) {
			case "1960" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd1960.zip";
				alert(turl);
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd1960.tar.z";
				down = 1;
			}
			break;
			case "1970" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd1970.zip";
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd1970.tar.z";
				down = 1;
			}
			break;
			case "1980" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd1980.zip";
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd1980.tar.z";
				down = 1;
			}
   		    break;
			case "1990" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd1990.zip";
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd1990.tar.z";
				down = 1;
			}
 		    break;
			case "2000" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd2000.zip";
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd2000.tar.z";
				down = 1;
			}
			break;
	       } // END del Case
			//termina if para bajar TIF o TAR
	     } // END IF
	} // END IF
//	alert(turl);
    //f.action="http://gisweb.ciat.cgiar.org/Formularios/formulario.asp";
	f.action = "http://webpc.ciat.cgiar.org/formularios/formulario.asp"
    window.location.href = "download-data.htm";
    var windown = window.open(turl, "windown", "width=320,height=150,scrollbars=0,status=0,toolbar=0,resize=0,location=0");
	window.opener.focus();
	window.close();
}

function change(f){
var index = f.elements[0].selectedIndex;
var dummy = f.elements[0].options[index].value;
	if (dummy != "0") {
	  switch (dummy) {
	     case "1" : document.map.src = "images/pobcbm2.gif";
		 break;
		 case "2" : document.map.src = "images/anim_mexico.gif";
		 break;
		 case "3" : document.map.src = "images/anim_colombia3.gif";
		 break;
		 case "4" : document.map.src = "images/mega_se2.gif";
		 break;		 
		 case "5" : document.map.src = "images/i_amazonpob.gif";
		 break;		 
	  }
	}
}  

function change2(f){
var index = f.elements[0].selectedIndex;
var dummy = f.elements[0].options[index].value;
	if (dummy != "0") {
	  switch (dummy) {
	     case "1" : document.map.src = "../images/pobcbm2.gif";
		 break;
		 case "2" : document.map.src = "../images/anim_mexico.gif";
		 break;
		 case "3" : document.map.src = "../images/anim_colombia3.gif";
		 break;
		 case "4" : document.map.src = "../images/mega_se2.gif";
		 break;		 
		 case "5" : document.map.src = "../images/i_amazonpob.gif";
		 break;		 
	  }
	}
}  

function mapas()
{
var num = document.frm.menu.selectedIndex;
var dummy;
dummy = document.frm.menu.options[num].value;
  if (dummy == "0000") {
    document.altimg7.src='../images/lam/p0000.gif';
  } else if (dummy == "1950") {
    document.altimg7.src='../images/lam/p1950.gif';
  }  else if (dummy == "1951") {
    document.altimg7.src='../images/lam/p1951.gif';
  } else if (dummy == "1952") {
    document.altimg7.src='../images/lam/p1952.gif';
  } else if (dummy == "1953") {
    document.altimg7.src='../images/lam/p1953.gif';
  } else if (dummy == "1954") {
    document.altimg7.src='../images/lam/p1954.gif';
  } else if (dummy == "1955") {
    document.altimg7.src='../images/lam/p1955.gif';
  } else if (dummy == "1956") {
    document.altimg7.src='../images/lam/p1956.gif';
  } else if (dummy == "1957") {
    document.altimg7.src='../images/lam/p1957.gif';
  } else if (dummy == "1958") {
    document.altimg7.src='../images/lam/p1958.gif';
  } else if (dummy == "1959") {
    document.altimg7.src='../images/lam/p1959.gif';
  } else if (dummy == "1960") {
    document.altimg7.src='../images/lam/p1960.gif';
  } else if (dummy == "1961") {
    document.altimg7.src='../images/lam/p1961.gif';
  } else if (dummy == "1962") {
    document.altimg7.src='../images/lam/p1962.gif';
  } else if (dummy == "1963") {
    document.altimg7.src='../images/lam/p1963.gif';
  } else if (dummy == "1964") {
    document.altimg7.src='../images/lam/p1964.gif';
  } else if (dummy == "1965") {
    document.altimg7.src='../images/lam/p1965.gif';
  } else if (dummy == "1966") {
    document.altimg7.src='../images/lam/p1966.gif';
  } else if (dummy == "1967") {
    document.altimg7.src='../images/lam/p1967.gif';
  } else if (dummy == "1968") {
    document.altimg7.src='../images/lam/p1968.gif';
  } else if (dummy == "1969") {
    document.altimg7.src='../images/lam/p1969.gif';
  } else if (dummy == "1970") {
    document.altimg7.src='../images/lam/p1970.gif';
  } else if (dummy == "1971") {
    document.altimg7.src='../images/lam/p1971.gif';
  } else if (dummy == "1972") {
    document.altimg7.src='../images/lam/p1972.gif';
  } else if (dummy == "1973") {
    document.altimg7.src='../images/lam/p1973.gif';
  } else if (dummy == "1974") {
    document.altimg7.src='../images/lam/p1974.gif';
  } else if (dummy == "1975") {
    document.altimg7.src='../images/lam/p1975.gif';
  } else if (dummy == "1976") {
    document.altimg7.src='../images/lam/p1976.gif';
  } else if (dummy == "1977") {
    document.altimg7.src='../images/lam/p1977.gif';
  } else if (dummy == "1978") {
    document.altimg7.src='../images/lam/p1978.gif';
  } else if (dummy == "1979") {
    document.altimg7.src='../images/lam/p1979.gif';
  } else if (dummy == "1980") {
    document.altimg7.src='../images/lam/p1980.gif';
  } else if (dummy == "1981") {
    document.altimg7.src='../images/lam/p1981.gif';
  } else if (dummy == "1982") {
    document.altimg7.src='../images/lam/p1982.gif';
  } else if (dummy == "1983") {
    document.altimg7.src='../images/lam/p1983.gif';
  } else if (dummy == "1984") {
    document.altimg7.src='../images/lam/p1984.gif';
  } else if (dummy == "1985") {
    document.altimg7.src='../images/lam/p1985.gif';
  } else if (dummy == "1986") {
    document.altimg7.src='../images/lam/p1986.gif';
  } else if (dummy == "1987") {
    document.altimg7.src='../images/lam/p1987.gif';
  } else if (dummy == "1988") {
    document.altimg7.src='../images/lam/p1988.gif';
  } else if (dummy == "1989") {
    document.altimg7.src='../images/lam/p1989.gif';
  } else if (dummy == "1990") {
    document.altimg7.src='../images/lam/p1990.gif';
  } else if (dummy == "1991") {
    document.altimg7.src='../images/lam/p1991.gif';
  } else if (dummy == "1992") {
    document.altimg7.src='../images/lam/p1992.gif';
  } else if (dummy == "1993") {
    document.altimg7.src='../images/lam/p1993.gif';
  } else if (dummy == "1994") {
    document.altimg7.src='../images/lam/p1994.gif';
  } else if (dummy == "1995") {
    document.altimg7.src='../images/lam/p1995.gif';
  } else if (dummy == "1996") {
    document.altimg7.src='../images/lam/p1996.gif';
  } else if (dummy == "1997") {
    document.altimg7.src='../images/lam/p1997.gif';
  } else if (dummy == "1998") {
    document.altimg7.src='../images/lam/p1998.gif';
  } else if (dummy == "1999") {
    document.altimg7.src='../images/lam/p1999.gif';
  } else if (dummy == "2000") {
    document.altimg7.src='../images/lam/p2000.gif';
  } 
}

// Funciones de Validación para formularios en Inglés
function OnlyCharactersEng(inputString) {
	var text1 = inputString.value;
	var c;
	var numeros = "0123456789!@#%$^&*()_+=-[]{};:'?.,<>";
	if ((text1 == "") || (text1.length < 2)) {
	    alert("Name is not correct."+"\n"+"Check and write again");
  	    document.forms[0].name.value="";
		document.forms[0].name.focus();
		return false;
	} else {
	for (n=0; n < text1.length; n++){
	   c = text1.substring(n, n+1);
	   if (numeros.indexOf(c,0) != -1) {
		alert("Name has invalid characters"+"\n"+"Check and Write again");
		document.forms[0].name.value="";
		document.forms[0].name.focus();   
		return false;
	    break;
	  }
	}
  }
}

function CheckEmailEng(address) {
  var email = address.value;
  if ((email == "") || (email.indexOf ('@') == -1) || (email.indexOf ('.') == -1)) {
	  alert("E-mail is not correct."+"\n"+"Check and write again");
		document.forms[0].email.value="";
		document.forms[0].email.focus();    
		return false;     
  //return true;
  }  
}

function CheckSelectEngYear(seleccion) {
	var sel = seleccion.value
//	alert(sel);
	if (sel == "") {
	  alert("Year has not been selected."+"\n"+"Choose one from the list");
 	  return false;     
   }
}

function CheckSelectEngFormat(seleccion) {
	var sel = seleccion.value
//	alert(sel);
	if (sel == "") {
	  alert("Format has not been selected."+"\n"+"Choose one from the list");
 	  return false;     
   }
}

function CheckTextAreaEng(textarea) {
    //alert(textarea.value.length);
	if ((textarea.value == "") || (textarea.value.length < 10)) {
	  alert("Use of Data is required.\n"+"Check and write again");
		document.forms[0].usedata.value="";
		document.forms[0].usedata.focus();    	  
 	  return false;     
   }
}

function MM_findObjEng(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_validateFormEng() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateFormEng.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObjEng(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must have a valid e-mail.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' must have a valid number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' must have a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) { alert('Some error(s) occurred:\n'+errors); return false;}
  document.MM_returnValueEng = (errors == '');
}

//Funciones para validar fomularios en Español.
function OnlyCharacters(inputString) {
	var text1 = inputString.value;
	var c;
	var numeros = "0123456789!@#%$^&*()_+=-[]{};:'?.,<>";
	if ((text1 == "") || (text1.length < 2)) {
	    alert("El nombre no está completo."+"\n"+"Verifique y corrija correctamente");
  	    document.forms[0].name.value="";
		document.forms[0].name.focus();
		return false;
	} else {
	for (n=0; n < text1.length; n++){
	   c = text1.substring(n, n+1);
	   if (numeros.indexOf(c,0) != -1) {
		alert("El nombre contiene caracteres inválidos"+"\n"+"Verifique y corrija correctamente");
		document.forms[0].name.value="";
		document.forms[0].name.focus();   
		return false;
	    break;
	  }
	}
  }
}

function CheckEmail(address) {
  var email = address.value;
  if ((email == "") || (email.indexOf ('@') == -1) || (email.indexOf ('.') == -1)) {
	  alert("E-mail no es correcto.\n"+"Verifique y corrija correctamente");
		document.forms[0].email.value="";
		document.forms[0].email.focus();    
		return false;     
  //return true;
  }  
}

function CheckSelectAnno(seleccion) {
	var sel = seleccion.value
//	alert(sel);
	if (sel == "") {
	  alert("Debe seleccionar un año.\n"+"Verifique y corrija correctamente");
 	  return false;     
   }
}

function CheckSelectFormato(seleccion) {
	var sel = seleccion.value
//	alert(sel);
	if (sel == "") {
	  alert("Debe seleccionar un formato.\n"+"Verifique y corrija correctamente");
 	  return false;     
   }
}

function CheckTextArea(textarea) {
    //alert(textarea.value.length);
	if ((textarea.value == "") || (textarea.value.length < 10)) {
	  alert("Debe escribir el Uso que le dará a los datos.\n"+"Verifique y corrija correctamente");
		document.forms[0].usedata.value="";
		document.forms[0].usedata.focus();    	  
 	  return false;     
   }
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' debe contener un correo electrónico.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' debe contener un valor numérico.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' debe contener un número entre '+min+' y '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' es requerido.\n'; }
  } if (errors) { alert('Los siguientes error(es) ocurrieron:\n'+errors); return false;}
  document.MM_returnValue = (errors == '');
}

function Descargar_Datos_LACPop(){
	var index1 = document.forms[0].year.selectedIndex;
	var index2 = document.forms[0].format.selectedIndex;
	var age1 = document.forms[0].year.options[index1].value;
	var format1 = document.forms[0].format.options[index2].value;
			//alert(age1);
			//alert(format1);
			switch (age1) {
			case "1960" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd1960.zip";
				//alert(turl);
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd1960.tar.z";
				down = 1;
			}
			break;
			case "1970" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd1970.zip";
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd1970.tar.z";
				down = 1;
			}
			break;
			case "1980" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd1980.zip";
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd1980.tar.z";
				down = 1;
			}
   		    break;
			case "1990" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd1990.zip";
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd1990.tar.z";
				down = 1;
			}
 		    break;
			case "2000" :
			if (format1 == "ZIP") {
		 		turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/ZIP/lacd2000.zip";
				down = 1;
			} else if (format1 == "TAR") {
			    turl = "ftp://ftp.ciat.cgiar.org/usodesuelos/DownWebData/LAC/Poblacion/TAR/lacd2000.tar.z";
				down = 1;
			}
			break;
	       } // END del Case
			//termina if para bajar TIF o TAR
	//alert(turl);
	//document.forms[0].action="http://gisweb.ciat.cgiar.org/Formularios/formulario.asp";
	document.forms[0].action="http://webpc.ciat.cgiar.org/formularios/formulario.asp";
    //window.location.href = "download-data.htm";
    var windown = window.open(turl, "windown", "width=320,height=150,scrollbars=0,status=1,toolbar=0,resize=0,location=1");
	//window.opener.focus();
	//window.close();
}
