function vacio(cadena)
  {                                    // DECLARACION DE CONSTANTES
    var blanco = " \n\t" + String.fromCharCode(13); // blancos
                                       // DECLARACION DE VARIABLES
    var i;                             // indice en cadena
    var es_vacio;                      // cadena es vacio o no
    for(i = 0, es_vacio = true; (i < cadena.length) && es_vacio; i++) // INICIO
      es_vacio = blanco.indexOf(cadena.charAt(i)) != - 1;
    return(es_vacio);
  }
  
  function email(cadena, otros)
  {                                    // DECLARACION-INICIALIZACION VARIABLES
    var i, j;                          // indice en cadena
    var es_email = 0 < cadena.length;  // cadena es email o no
    i = salta_alfanumerico(cadena, 0, otros); // INICIO
    if(es_email = 0 < i)               // lee "alfanum*"
      if(es_email = (i < cadena.length))
        if(es_email = cadena.charAt(i) == '@') // lee "alfanum@*"
          {
            i++;
            j = salta_alfanumerico(cadena, i, otros);
            if(es_email = i < j)       // lee "alfanum@alfanum*"
              if(es_email = j < cadena.length)
                if(es_email = cadena.charAt(j) == '\.')
                  {                    // lee "alfanum@alfanum.*"
                    j++;
                    i = salta_alfanumerico(cadena, j, otros);
                    if(es_email = j < i) // lee "alfanum@alfanum.alfanum*"
                      while(es_email && (i < cadena.length))
                        if(es_email = cadena.charAt(i) == '\.')
                          {
                            i++;
                            j = salta_alfanumerico(cadena, i, otros);
                            if(es_email = i < j) // lee "alfanum@alfanum.alfanum[.alfanum]*"
                              i = j;
                          }
                  }
          }
    return(es_email);
  }
  
 function salta_alfanumerico(cadena, i, otros)
  {                                    // DECLARACION DE VARIABLES
    var j;                             // indice en cadena
    var car;                           // caracter de cadena
    var alfanum;                       // cadena[j] es alfanumerico u otros
    for(j = i, alfanum = true; (j < cadena.length) && alfanum; j++) // INICIO
      {
        car = cadena.charAt(j);
        alfanum = alfanumerico(car) || (otros.indexOf(car) != -1);
      }
    if(!alfanum)                       // lee "alfanumX"
      j--;
    return(j);
  }
  
/* dice si car es alfanumerico                                               */
function alfanumerico(car)
  {
    return(alfabetico(car) || numerico(car));
  }


/* dice si car es alfabetico                                                 */
function alfabetico(car)               // DECLARACION DE CONSTANTES
  {                                    // caracteres alfabeticos
    var alfa = "ABCDEFGHIJKLMNOPQRSTUWXYZabcdefghijklmnopqrstuvxyz";
    return(alfa.indexOf(car) != - 1);  // INICIO
  }


/* dice si car es numerico                                                   */
function numerico(car)
  {                                    // DECLARACION DE CONSTANTES
    var num = "0123456789";            // caracteres numericos
    return(num.indexOf(car) != - 1);   // INICIO
  }
 
  
function blanco(FRM_Regist)
  {
    if(vacio(document.FRM_Regist.nombre.value))
      alert("El Campo Nombre está Vacio.");
	else if (vacio(document.FRM_Regist.apellido.value))
	  alert("El Campo Apellido está Vacio.");
	  else if (vacio(document.FRM_Regist.cedula.value))
	  alert("El Campo Cedula está Vacio.");
	else if (vacio(document.FRM_Regist.pais.value))
	  alert("El Campo País está Vacio.");
	else if (vacio(document.FRM_Regist.estado.value))
	  alert("El Campo Estado está Vacio.");
	else if (vacio(document.FRM_Regist.profesion.value))
	  alert("El Campo Profesión está Vacio.");
	else if (vacio(document.FRM_Regist.motivo.value))
	  alert("El Campo Motivo está Vacio.");
	else if (vacio(document.FRM_Regist.consultas.value))
	  alert("El Campo Consulta está Vacio.");
    else if(!email(document.FRM_Regist.email.value, "-_"))
      alert("Dirección de correo electrónico incorrecta.");
    
    else
      //sustituir esta linea por return(true) para hacer el submit de un formulario real
      return(true)
    return(false);
  }

function slctr(texto,valor){
this.texto = texto
this.valor = valor
}
var ESPAÑA=new Array()
ESPAÑA[0] = new slctr('- - - - - -')

var NULL=new Array()
NULL[0] = new slctr('- - - - - -')

var MEXICO=new Array()
MEXICO[0] = new slctr('- - - - - -')

var ARGENTINA=new Array()
ARGENTINA[0] = new slctr('- - - - - -')

var CHILE=new Array()
CHILE[0] = new slctr('- - - - - -')

var PERU=new Array()
PERU[0] = new slctr('- - - - - -')

var COLOMBIA=new Array()
COLOMBIA[0] = new slctr('- - - - - -')

var BOLIVIA=new Array()
BOLIVIA[0] = new slctr('- - - - - -')

var BRASIL=new Array()
BRASIL[0] = new slctr('- - - - - -')

var COSTARICA=new Array()
COSTARICA[0] = new slctr('- - - - - -')

var ECUADOR=new Array()
ECUADOR[0] = new slctr('- - - - - -')

var SALVADOR=new Array()
SALVADOR[0] = new slctr('- - - - - -')

var GUATEMALA=new Array()
GUATEMALA[0] = new slctr('- - - - - -')

var HONDURAS=new Array()
HONDURAS[0] = new slctr('- - - - - -')

var NICARAGUA=new Array()
NICARAGUA[0] = new slctr('- - - - - -')

var PANAMA=new Array()
PANAMA[0] = new slctr('- - - - - -')

var PARAGUAY=new Array()
PARAGUAY[0] = new slctr('- - - - - -')

var DOMINICANA=new Array()
DOMINICANA[0] = new slctr('- - - - - -')

var PUERTORICO=new Array()
PUERTORICO[0] = new slctr('- - - - - -')

var USA=new Array()
USA[0] = new slctr('- - - - - -')

var URUGUAY=new Array()
URUGUAY[0] = new slctr('- - - - - -')

var OTROS=new Array()
OTROS[0] = new slctr('- - - - - -')

var CUBA=new Array()
CUBA[0]=new slctr('- - - - - -')


var VENEZUELA=new Array()
VENEZUELA[0] = new slctr('')
VENEZUELA[1] = new slctr("Amazonas",null)
VENEZUELA[2] = new slctr("Anzoátegui",null)
VENEZUELA[3] = new slctr("Apure",null)
VENEZUELA[4] = new slctr("Aragua",null)
VENEZUELA[5] = new slctr("Barinas",null)
VENEZUELA[6] = new slctr("Bolívar",null)
VENEZUELA[7] = new slctr("Carabobo",null)
VENEZUELA[8] = new slctr("Cojedes",null)
VENEZUELA[9] = new slctr("Delta Amacuro",null)
VENEZUELA[10] = new slctr("Distrito Capital",null)
VENEZUELA[11] = new slctr("Falcón",null)
VENEZUELA[12] = new slctr("Guárico",null)
VENEZUELA[13] = new slctr("Lara",null)
VENEZUELA[14] = new slctr("Miranda ",null)
VENEZUELA[15] = new slctr("Monagas",null)
VENEZUELA[16] = new slctr("Mérida",null)
VENEZUELA[17] = new slctr("Nueva Esparta",null)
VENEZUELA[18] = new slctr("Sucre",null)
VENEZUELA[19] = new slctr("Trujillo",null)
VENEZUELA[20] = new slctr("Táchira",null)
VENEZUELA[21] = new slctr("Vargas",null)
VENEZUELA[22] = new slctr("Yaracuy",null)
VENEZUELA[23] = new slctr("Zulia",null)

function slctryole(cual,donde){
if(cual.selectedIndex != 0){
   donde.length=0
   cual = eval(cual.value)
   for(m=0;m<cual.length;m++){
      var nuevaOpcion = new Option(cual[m].texto);
      donde.options[m] = nuevaOpcion;
      if(cual[m].valor != null){
         donde.options[m].value = cual[m].valor
         }
      else{
         donde.options[m].value = cual[m].texto
         }
      }
   }
}