<%
'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
%>
<%=nomeadm%>
<% else
if Dados("ativo") = "S" then %>
<%else %>
<% end if
end if %>
<%= Dados("nome")%>
<%end if%>