<% wProposta=request.item("Proposta") wCliente=request.item("Cliente") wPlano=request.item("Plano") wOrigem=request.item("Origem") wID_Vendedor=request.item("ID_Vendedor") Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wSQL="SELECT * FROM PROPOSTAS_BENEFICIARIOS WHERE ID_PROPOSTA=" & wProposta & " AND ID_CLIENTE=" & wCliente & " AND ID_PLANO=" & wPLANO & " ORDER BY NOME " Set TabBeneficiarios = Database.Execute(wSQL) wSQL="SELECT NOME FROM CLIENTES WHERE ID=" & wCliente Set TabClientes = Database.Execute(wSQL) if wOrigem = "V" then wSQL="SELECT ALT_BENEFICIARIO FROM VENDEDORES WHERE ID=" & wID_Vendedor Set TabVendedor = Database.Execute(wSQL) wAltBenef=TabVendedor("ALT_BENEFICIARIO") else wAltBenef="S" end if %>
<% While NOT TabBeneficiarios.EoF %> <% if wAltBenef = "S" then %> <% else %> <% end if %> <% TabBeneficiarios.MoveNext %> <% Wend %>

Beneficiários
 
Cliente: <%=TabClientes("NOME")%>
       

Cadastrar Beneficiário
Nome Parentesco Dt. Nasc. Dt. Inclusão. %  
<%=TabBeneficiarios("NOME")%> <%=TabBeneficiarios("Parentesco")%> <%=TabBeneficiarios("DT_Nascimento")%> <%=DataBr(TabBeneficiarios("DATA_INCLUSAO"))%> <%=TabBeneficiarios("PORCENTAGEM")%>

&Plano=<%=TabBeneficiarios("ID_Plano")%>&Cliente=<%=TabBeneficiarios("ID_Cliente")%>&ID=<%=TabBeneficiarios("ID")%>&Nome=<%=TabBeneficiarios("Nome")%>&Porcentagem=<%=TabBeneficiarios("PORCENTAGEM")%>&Dt_Nascimento=<%=TabBeneficiarios("DT_Nascimento")%>&Parentesco=<%=TabBeneficiarios("PARENTESCO")%>&Alteracao=S">Alterar   &Plano=<%=TabBeneficiarios("ID_Plano")%>&Cliente=<%=TabBeneficiarios("ID_Cliente")%>&ID=<%=TabBeneficiarios("ID")%>"> Excluir