function validadata(Data){
	if (Data == "") 
		return false;
	Data_valida = true;
	if (Data.length > 10)
		Data_valida = false;
	if (!isNaN(Data))
		Data_valida = false;
	for (i=0;i<=Data.length;i++)
  	if (isNaN(Data.charAt(i))){
      Separador = Data.charAt(i)
      if (Separador != "/")
				Data_valida = false;
      Dia = Data.substring(0,Data.indexOf(Separador));
      Mes = Data.substring(eval(Data.indexOf(Separador) + 1),Data.lastIndexOf(Separador));
      Ano = Data.substring(eval(Data.lastIndexOf(Separador) + 1),Data.length);
		} //End if
	if (isNaN(Dia))
		Data_valida = false; 
	if (Dia.length < 1 || Dia.length > 2)
		Data_valida = false; 
	if (isNaN(Mes))
		Data_valida = false; 
	if (Mes.length < 1 || Mes.length > 2 )
		Data_valida = false; 
	if (isNaN(Ano))
		Data_valida = false;
	if (Ano.length < 2 || Ano.length > 4)
		Data_valida = false; 
	if (Dia < 1 || Dia > 31 || Mes < 1 || Mes > 12)
		Data_valida = false; 
	return Data_valida;
}

function MM_findObj(n, d) { //v4.01
  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 && d.getElementById) x=d.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=args[i+1]; 
			if ((val=val.value)!="") {
      	if (test.indexOf('isEmail')!=-1) { 
					p=val.indexOf('@');
    	    if (p<1 || p==(val.length-1))
						errors+='- '+nm+' deve conter um endereço de e-mail.\n';
    	  }else{ 
	      	if (test.indexOf('isData')!=-1) { 
						if (!validadata(val))
							errors+='- '+nm+' deve conter um data.\n';
					}else
						if (test!='R') { 
							num = parseFloat(val);
			        if (isNaN(val)) 
								errors+='- '+nm+' deve conter um número.\n';
			        if (test.indexOf('inRange') != -1) { 
								p=test.indexOf(':');
			          min=test.substring(8,p); 
								max=test.substring(p+1);
	          		if (num<min || max<num) 
									errors+='- '+nm+' deve conter um número entre '+min+' e '+max+'.\n';
	    				}
						}
				}
			}else 
				if (test.charAt(0) == 'R') 
					errors += '- '+nm+' é requerido.\n'; 
		}
  } 
	if (errors) 
		alert('Erro:\n'+errors);
  document.MM_returnValue = (errors == '');
}