<% Function podeapagar(idvend) qx="SELECT COUNT(*) AS NUMERO FROM T_PROPOSTA WHERE IDVENDEDOR="&idvend Set RSx=Conexao.Execute(qx) if RSx("NUMERO")=0 then podeapagar=true else podeapagar=false End if End Function %> Credilon
<% qven="SELECT * FROM T_VENDEDOR,T_USR WHERE T_USR.IDUSR=T_VENDEDOR.IDUSR AND IDREPRESENTANTE="&Session("IDREPRESENTANTE") Set RSven=Conexao.Execute(qven) Do Until RSven.EOF %> <% RSven.MoveNext Loop %>
   Nome   
   Usuário   
<%=RSven("USUARIO")%>
<%if podeapagar(RSven("IDVENDEDOR")) then%> &acao=confirmacao"> <%End if%>
<%if RSven("T_VENDEDOR.STATUS")="S" then arq="ativo.gif" else arq="inativo.gif" End if%> ">
<% if Request.QueryString("err")<>"" then qerr="SELECT * FROM T_ERRO WHERE NUMERRO="&Request.QueryString("err") Set RSerr=Conexao.Execute(qerr) %> <%End if%>
Cadastro de Vendedores
<%=RSerr("TITULO")%>
<%=RSerr("DESCRICAO")%>
Nome*:
Usuário*:
Senha*:
Confirmação*: