<?
  function ListaModulos()
  {
    if (EAdmin())
      $res=Enviar("select * from Modulos order by ativo desc,ordem");
    else if (EMembro())
      $res=Enviar("select * from Modulos where ativo='S' and acesso<>'A' order by ordem");
    else
      $res=Enviar("select * from Modulos where ativo='S' and acesso='V' order by ordem");
    return $res[Linhas];
  }

?>