<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID=session("ID_Cliente") wSQL="SELECT P.ID, C.NOME, PL.DESCRICAO AS PLANO, P.STATUS, E.NOME AS EMPRESA" wSQL=wSQL & " FROM PROPOSTAS P" wSQL=wSQL & " LEFT JOIN EMPRESAS E " wSQL=wSQL & " ON E.ID = P.ID_EMPRESA" wSQL=wSQL & " LEFT JOIN PROPOSTAS_CLIENTES PC" wSQL=wSQL & " ON PC.ID_PROPOSTA = P.ID" wSQL=wSQL & " LEFT JOIN CLIENTES C" wSQL=wSQL & " ON C.ID = PC.ID_CLIENTE" wSQL=wSQL & " LEFT JOIN PLANOS PL" wSQL=wSQL & " ON PL.ID = PC.ID_PLANO" wSQL=wSQL & " WHERE PC.ID_CLIENTE=" & wID wSQL=wSQL & " ORDER BY C.NOME " Set TabProposta = Database.Execute(wSQL) %>
Consulta de Proposta
Empresa: <%=TabProposta("Empresa")%>
Proposta
Nome
Plano
Status
<% While NOT TabProposta.EoF %>
"><%=TabProposta("ID")%>
<%=TabProposta("Nome")%>
<%=TabProposta("Plano")%>
<%=TabProposta("Status")%>
<% TabProposta.MoveNext %> <% Wend %>