<!-- // © Iddea Soluciones Internet S.L. 1.998 webmaster@iddea.es César Sánchez Novo

var checkObjects	= new Array();
var errors		= "";
var valores		= false;
var language		= new Array();
language["header"]	= "Hemos encontrado los siguientes errores:"
language["start"]	= "->";
language["field"]	= " El campo ";
language["require"]	= " es requerido";
language["min"]		= " y debe contener al menos ";
language["max"]		= " y no debe contener menos de ";
language["minmax"]	= " y no más de ";
language["chars"]	= " caracteres";
language["num"]		= " y debe contener números";
language["email"]	= " debe contener una dirección de correo válida";

function define(n, type, HTMLname, min, max, d) {
var p;
var i;
var 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 = define(n, type, HTMLname, min, max, d.layers[i].document);
return x;       
}
eval("V_"+n+" = new formResult(x, type, HTMLname, min, max);");
checkObjects[eval(checkObjects.length)] = eval("V_"+n);
}
function formResult(form, type, HTMLname, min, max) {
this.form = form;
this.type = type;
this.HTMLname = HTMLname;
this.min  = min;
this.max  = max;
}
function comprueba() {
if (checkObjects.length > 0) {
errorObject = "";
for (i = 0; i < checkObjects.length; i++) {
compruebaObject = new Object();
compruebaObject.form = checkObjects[i].form;
compruebaObject.HTMLname = checkObjects[i].HTMLname;
compruebaObject.val = checkObjects[i].form.value;
compruebaObject.len = checkObjects[i].form.value.length;
compruebaObject.min = checkObjects[i].min;
compruebaObject.max = checkObjects[i].max;
compruebaObject.type = checkObjects[i].type;
if (compruebaObject.type == "num" || compruebaObject.type == "string") {
if ((compruebaObject.type == "num" && compruebaObject.len <= 0) || (compruebaObject.type == "num" && isNaN(compruebaObject.val))) { errors += language['start'] + language['field'] + compruebaObject.HTMLname + language['require'] + language['num'] + "\n";
} else if (compruebaObject.min && compruebaObject.max && (compruebaObject.len < compruebaObject.min || compruebaObject.len > compruebaObject.max)) { errors += language['start'] + language['field'] + compruebaObject.HTMLname + language['require'] + language['min'] + compruebaObject.min + language['minmax'] + compruebaObject.max+language['chars'] + "\n";
} else if (compruebaObject.min && !compruebaObject.max && (compruebaObject.len < compruebaObject.min)) { errors += language['start'] + language['field'] + compruebaObject.HTMLname + language['require'] + language['min'] + compruebaObject.min + language['chars'] + "\n";
} else if (compruebaObject.max && !compruebaObject.min &&(compruebaObject.len > compruebaObject.max)) { errors += language['start'] + language['field'] + compruebaObject.HTMLname + language['require'] + language['max'] + compruebaObject.max + language['chars'] + "\n";
} else if (!compruebaObject.min && !compruebaObject.max && compruebaObject.len <= 0) { errors += language['start'] + language['field'] + compruebaObject.HTMLname + language['require'] + "\n";
   }
} else if(compruebaObject.type == "email") {

if ((compruebaObject.val.indexOf("@") == -1) || (compruebaObject.val.charAt(0) == ".") || (compruebaObject.val.charAt(0) == "@") || (compruebaObject.len < 6) || (compruebaObject.val.indexOf(".") == -1) || (compruebaObject.val.charAt(compruebaObject.val.indexOf("@")+1) == ".") || (compruebaObject.val.charAt(compruebaObject.val.indexOf("@")-1) == ".")) { errors += language['start'] + language['field'] + compruebaObject.HTMLname + language['email'] + "\n"; }
      }
   }
}
if (errors) {
alert(language["header"].concat("\n" + errors));
errors = "";
valores = false;
} else {
valores = true;
   }
}


//-->