<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wProposta=request.item("Proposta") wCPF=request.item("CPF") wCliente=request.item("Cliente") wPlano=request.item("Plano") wID_Empresa=request.item("Empresa") wVendedor=request.item("Vendedor") wID_Vendedor=request.item("wID_Vendedor") wAlt=request.item("Alteracao") if wCPF <> "" then wSQL="SELECT ID, CPF_CNPJ, NOME FROM CLIENTES WHERE CPF_CNPJ='" & wCPF & "'" else wSQL="SELECT ID, CPF_CNPJ, NOME FROM CLIENTES WHERE ID=" & wCliente end if Set TabCliente = Database.Execute(wSQL) wCPF_Certificado = TabCliente("CPF_CNPJ") wSQL= " SELECT ID, DESCRICAO, VLR_ADESAO, VLR_MENSAL, IDADE_DE, IDADE_ATE" wSQL=wSQL & " FROM PLANOS_PERMITIDOS_PROPOSTA(" & wProposta & ")" Set TabPlanos = Database.Execute(wSQL) wCliente=TabCliente("ID") wSQL="SELECT PC.ID_CLIENTE FROM PROPOSTAS_CLIENTES PC WHERE PC.ID_PROPOSTA = " & wProposta & " AND PC.TITULAR = 'S' AND ID_CLIENTE <> " & wCliente Set TabTitular = Database.Execute(wSQL) %>
<% if TabPlanos.EOF then %> <% else %> <% end if %>

Proposta - Clientes
     
Cliente : <%=TabCliente("Nome")%>
CPF : <%=TabCliente("CPF_CNPJ")%>
Certificado :
    <% if TabTitular.EOF then %> Titular <% else %> Titular Já Cadastrado <% end if %>
     
    Não há planos com permissão de cadastro para esta empresa/vendedor.
<% While NOT TabPlanos.EoF %> <% else %> " name="Plano"> <% end if %> <% TabPlanos.MoveNext %> <% Wend %>

Escolha um dos planos para o cliente
  Cód. Descrição Vlr. Adesão Vlr. Mensal Idade De Idade Até
<% if TabPlanos("ID") = wPlano then %> " name="Plano" checked><%=TabPlanos("ID")%> <%=TabPlanos("Descricao")%> <%=TabPlanos("VLR_ADESAO")%> <%=TabPlanos("VLR_MENSAL")%> <%=TabPlanos("IDADE_DE")%> <%=TabPlanos("IDADE_ATE")%>