<% qusr="SELECT * FROM T_USR,T_TIPOUSR WHERE T_USR.IDTIPOUSR=T_TIPOUSR.IDTIPOUSR AND (T_USR.IDTIPOUSR=1 OR T_USR.IDTIPOUSR=2) ORDER BY T_USR.IDTIPOUSR, NOME" Set RSusr=Conexao.Execute(qusr) Do Until RSusr.EOF %> <% RSusr.MoveNext Loop %>
Manutenção de Usuários
Nome
Usuário
Tipo
<%=RSusr("USUARIO")%>
="<%if RSusr("T_USR.IDTIPOUSR")=1 then Response.Write "COLOR=red" End if%>"> <% permissao=RSusr("TITULO") Response.Write permissao %>
<% if Request.QueryString("err")<>"" AND IsNumeric(Request.QueryString("err")) then qerr="SELECT * FROM T_ERRO WHERE NUMERRO="&Request.QueryString("err") Set RSerr=Conexao.Execute(qerr) %> <% End if %>
Adicionar usuário
<%=RSerr("TITULO")%>
<%=RSerr("DESCRICAO")%>
Nome*:
Usuário (Login)*:
Permissão*:
Senha*:
Confirmação*: