<% qrepre="SELECT * FROM T_REPRESENTANTE,T_USR WHERE T_REPRESENTANTE.IDUSR=T_USR.IDUSR AND IDREPRESENTANTE="&Request.QueryString("idrepre") Set RSrepre=Conexao.Execute(qrepre) %> Administração
<% if Request.QueryString("err")<>"" then qerr="SELECT * FROM T_ERRO WHERE NUMERRO="&Request.QueryString("err") Set RSerr=Conexao.Execute(qerr) %> <% End if %>
Manutenção de Representante
<%=RSerr("TITULO")%>
<%=RSerr("DESCRICAO")%>
Usuário: <%=RSrepre("usuario")%>
"> Nome*: ">
CNPJ*: ">
Forma de Liberação*:
Banco (Nome)* Banco (Código)*
" size="12">
">
Agencia (Código)* Numero da Conta*
">
">
Observação:
Escolha os Produtos que o Representante poderá utilizar.
<% qprod="SELECT * FROM T_PRODUTO" Set RSprod=Conexao.Execute(qprod) Do Until RSprod.EOF qntem="SELECT COUNT(*) AS NUMERO FROM T_PRODREPRE WHERE IDREPRESENTANTE="&RSrepre("IDREPRESENTANTE")&" AND IDPRODUTO="&RSprod("IDPRODUTO") Set RSntem=Conexao.Execute(qntem) %> <% RSprod.MoveNext Loop %>
   " <%if RSntem("NUMERO")>0 then Response.Write " checked" End if%>>   
  <%=RSprod("NOME")%>  

Para modificar a senha é só você preencher
o campo abaixo, atenção só utilize este
campo se você for modificar a senha.
Nova Senha:
Cancelar