<% if Request.QueryString("err")<>"" then qerr="SELECT * FROM T_ERRO WHERE NUMERRO="&Request.QueryString("err") Set RSerr=Conexao.Execute(qerr) %> <% End if %>
Insira um Produto
<%=RSerr("TITULO")%>
<%=RSerr("DESCRICAO")%>
Nome*:
Com entrada?
Sim
Não
Max. de Parcelas*:
TAC.*:
Valor Min.*:
Valor Max.*:
%
%
Taxa Mensal*:
Taxa Anual*:
Taxa Mensal de
inadimplência*:
Taxa Anual de
inadimplência*:
%
%
%
%
Multa*:
Garantias*:
Encargos*:
Finalidade*:
%
%
<% qprod="SELECT * FROM T_PRODUTO" Set RSprod=Conexao.Execute(qprod) %> <% Do Until RSprod.EOF %> <% RSprod.MoveNext Loop %>
Nome
Entrada
Finalidade
Garantias
Valor Min.
Valor Max.
Taxa Mensal
<% if RSprod("ENTRADA")="S" then Response.Write "Sim" else Response.Write "Não" End if %>
<%=RSprod("FINALIDADE")%>
<%=RSprod("GARANTIAS")%>
<%=Replace(RSprod("VALORMIN"),".",",")%>
<%=Replace(RSprod("VALORMAX"),".",",")%>
<%=Replace(RSprod("TXMENSAL"),".",",")%>%