<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID_Empresa=request.item("Empresa") wProposta=request.item("Proposta") wCliente=request.item("Cliente") wPlano=request.item("Plano") wSQL="SELECT C.CPF_CNPJ, C.NOME, P.DESCRICAO AS PLANO, PC.CERTIFICADO, " wSQL=wSQL & " C.ENDERECO, C.NUMERO, C.COMPLEMENTO, C.BAIRRO, C.CIDADE, C.ESTADO, " wSQL=wSQL & " C.CEP, C.FONES, C.DT_NASCIMENTO " wSQL=wSQL & " FROM PROPOSTAS_CLIENTES PC " wSQL=wSQL & " LEFT JOIN CLIENTES C " wSQL=wSQL & " ON C.ID = PC.ID_CLIENTE " wSQL=wSQL & " LEFT JOIN PLANOS P " wSQL=wSQL & " ON P.ID = PC.ID_PLANO " wSQL=wSQL & " WHERE PC.ID_PROPOSTA = " & wPROPOSTA wSQL=wSQL & " AND PC.ID_CLIENTE = " & wCliente Set TabCliente = Database.Execute(wSQL) 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) %>

Proposta - Clientes
     
Cliente : <%=TabCliente("Nome")%>
CPF : <%=TabCliente("CPF_CNPJ")%>
Certificado : <%=TabCliente("CERTIFICADO")%>
Plano : <%=TabCliente("Plano")%>
Data Nasc. : <%=TabCliente("Dt_Nascimento")%>
Endereço : <%=TabCliente("Endereco")%> - <%=TabCliente("Numero")%> - <%=TabCliente("Complemento")%>
Bairro : <%=TabCliente("Bairro")%>
Cidade : <%=TabCliente("Cidade")%>
CEP : <%=TabCliente("CEP")%>
Telefone : <%=TabCliente("FONES")%>
     
Plano : <%=TabCliente("Plano")%>
     
<% While NOT TabBeneficiarios.EoF %> <% TabBeneficiarios.MoveNext %> <% Wend %>
BENEFICIARIOS      
Nome Parentesco Dt. Nasc.

Porcentagem
<%=TabBeneficiarios("Nome")%> <%=TabBeneficiarios("Parentesco")%> <%=DataBr(TabBeneficiarios("Dt_Nascimento"))%>

<%=TabBeneficiarios("Porcentagem")%>