<!--
function checkFale(d)
{
  var erros='';

  if (d.depto.selectedIndex<0)
    erros+='- Selecione o Departamento desejado.\n';

  if ((!d.professor.checked) && (!d.pai.checked) && (!d.aluno.checked) && (!d.coorden.checked) && (!d.livreiro.checked))
    erros+='- Escolha uma Identificação.\n';

  if (!d.nome.value)
    erros+='- Preencha o seu Nome.\n';

// Verifica E-mail
  if (!d.email.value)
    erros+='- Preencha o seu E-mail.\n';
  else
  {
    var pto = d.email.value.lastIndexOf(".");
    var arr = d.email.value.indexOf("@");
    var eee = d.email.value.length-1;
    if(d.email.value.indexOf(" ") != -1)
      erros+='- E-mail inválido - não pode haver espaços.\n';
    else if(arr == -1)
      erros+='- E-mail inválido - deve haver um caracter @.\n';
    else if((arr == 0) || (arr == eee))
      erros+='- E-mail inválido - @ não pode ser o primeiro nem o último caracter.\n';
    else if(arr != d.email.value.lastIndexOf("@"))
      erros+='- E-mail inválido - só pode haver um único caracter @.\n';
    else if(pto == -1)
      erros+='- E-mail inválido - deve haver pelo menos um ponto.\n';
    else if((pto == 0) || (pto == eee))
      erros+='- E-mail inválido - o ponto não pode ser o primeiro nem o último caracter.\n';
    else if(pto < arr)
      erros+='- E-mail inválido - deve haver pelo menos um ponto após o @.\n';
    else if((d.email.value.charAt(arr+1)==".")||(d.email.value.charAt(arr-1)=="."))
      erros+='- E-mail inválido - deve haver pelo menos um caracter entre @ e o ponto.\n';
  }

// Verifica DDD e Telefone
  var TD=d.telddd.value;
  var TT=d.tel.value;
  if(TT.length>0)
  {
    if(!TD)
      erros+='- Preencha o código DDD do seu Telefone.\n';
    else if(isNaN(TD))
      erros+='- O código DDD do seu Telefone deve conter somente algarismos.\n';
    else if(TD.length!=2)
      erros+='- O código DDD do seu Telefone deve ter 2 algarismos.\n';
    if(isNaN(TT))
      erros+='- O seu Telefone deve conter somente algarismos.\n';
    else if((TT.length<7)||(TT.length>8))
      erros+='- O seu Telefone deve ter 7 ou 8 algarismos.\n';
  }

// Verifica DDD e Fax
  TD=d.faxddd.value;
  TT=d.fax.value;
  if(TT.length>0)
  {
    if(!TD)
      erros+='- Preencha o código DDD do seu Fax.\n';
    else if(isNaN(TD))
      erros+='- O código DDD do seu Fax deve conter somente algarismos.\n';
    else if(TD.length!=2)
      erros+='- O código DDD do seu Fax deve ter 2 algarismos.\n';
    if(isNaN(TT))
      erros+='- O seu Fax deve conter somente algarismos.\n';
    else if((TT.length<7)||(TT.length>8))
      erros+='- O seu Fax deve ter 7 ou 8 algarismos.\n';
  }

  if (!d.escola.value)
    erros+='- Preencha o Nome da Escola.\n';

  if (d.escolaemail.value.length!=0)
  {
    pto = d.escolaemail.value.lastIndexOf(".");
    arr = d.escolaemail.value.indexOf("@");
    eee = d.escolaemail.value.length-1;
    if(d.escolaemail.value.indexOf(" ") != -1)
      erros+='- E-mail da escola inválido - não pode haver espaços.\n';
    else if(arr == -1)
      erros+='- E-mail da escola inválido - deve haver um caracter @.\n';
    else if((arr == 0) || (arr == eee))
      erros+='- E-mail da escola inválido - @ não pode ser o primeiro nem o último caracter.\n';
    else if(arr != d.escolaemail.value.lastIndexOf("@"))
      erros+='- E-mail da escola inválido - só pode haver um único caracter @.\n';
    else if(pto == -1)
      erros+='- E-mail da escola inválido - deve haver pelo menos um ponto.\n';
    else if((pto == 0) || (pto == eee))
      erros+='- E-mail da escola inválido - o ponto não pode ser o primeiro nem o último caracter.\n';
    else if(pto < arr)
      erros+='- E-mail da escola inválido - deve haver pelo menos um ponto após o @.\n';
    else if((d.escolaemail.value.charAt(arr+1)==".")||(d.escolaemail.value.charAt(arr-1)=="."))
      erros+='- E-mail da escola inválido - deve haver pelo menos um caracter entre @ e o ponto.\n';
  }

// Verifica DDD e Telefone da escola
  TD=d.escolatelddd.value;
  TT=d.escolatel.value;
  if(TT.length>0)
  {
    if(!TD)
      erros+='- Preencha o código DDD do Telefone da Escola.\n';
    else if(isNaN(TD))
      erros+='- O código DDD do Telefone da Escola deve conter somente algarismos.\n';
    else if(TD.length!=2)
      erros+='- O código DDD do Telefone da Escola deve ter 2 algarismos.\n';
    if(isNaN(TT))
      erros+='- O Telefone da Escola deve conter somente algarismos.\n';
    else if((TT.length<7)||(TT.length>8))
      erros+='- O Telefone da Escola deve ter 7 ou 8 algarismos.\n';
  }

// Verifica DDD e Fax da escola
  TD=d.escolafaxddd.value;
  TT=d.escolafax.value;
  if(TT.length>0)
  {
    if(!TD)
      erros+='- Preencha o código DDD do Fax da Escola.\n';
    else if(isNaN(TD))
      erros+='- O código DDD do Fax da Escola deve conter somente algarismos.\n';
    else if(TD.length!=2)
      erros+='- O código DDD do Fax da Escola deve ter 2 algarismos.\n';
    if(isNaN(TT))
      erros+='- O Fax da Escola deve conter somente algarismos.\n';
    if((TT.length<7)||(TT.length>8))
      erros+='- O Fax da Escola deve ter 7 ou 8 algarismos.\n';
  }

  if (d.mensagem.value=="")
    erros+='- Você não escreveu sua mensagem.\n';

  if (erros)
  {
    alert('Atenção:\n'+erros);
    return false;
  }
  else
    return true;
}
//-->