% 'Conexao banco de dados Abre_Bd() ' fim Conexao if Ucase(session("allow")) <> "ALL;" then Set Dados = conexao.Execute ("SELECT allow,ativo,nome,funcao,login,id_usu FROM usuarios where allow <> 'ALL;' order by nome") else Set Dados = conexao.Execute ("SELECT allow,ativo,nome,funcao,login,id_usu FROM usuarios order by nome") end if %>
|
|||||||||||||||||||||||