<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID_Vendedor=request.item("Vendedor") wSQL="SELECT ID, NOME FROM VENDEDORES WHERE ID=" & wID_Vendedor Set TabVendedor = Database.Execute(wSQL) wSQL="SELECT VP.ID_VENDEDOR, VP.ID_PLANO, COALESCE(VP.PRC_COMISSAO1, 0) AS PRC_COMISSAO1, " wSQL=wSQL & " COALESCE(VP.PRC_COMISSAO2, 0) AS PRC_COMISSAO2, " wSQL=wSQL & " COALESCE(VP.PRC_COMISSAO3, 0) AS PRC_COMISSAO3, " wSQL=wSQL & " COALESCE(VP.PRC_COMISSAO4, 0) AS PRC_COMISSAO4, " wSQL=wSQL & " COALESCE(VP.PRC_COMISSAO5, 0) AS PRC_COMISSAO5, " wSQL=wSQL & " VP.PER_VISUALIZAR, VP.PER_CADASTRAR, P.DESCRICAO, P.VLR_MENSAL " wSQL=wSQL & " FROM VENDEDORES_PLANOS VP " wSQL=wSQL & " LEFT JOIN PLANOS P " wSQL=wSQL & " ON P.ID = VP.ID_PLANO " wSQL=wSQL & " WHERE VP.ID_VENDEDOR =" & wID_Vendedor wSQL=wSQL & " ORDER BY P.DESCRICAO " Set TabPlanos = Database.Execute(wSQL) %>

Planos do Vendedor e Comissões por Plano
 
Vendedor: <%=TabVendedor("ID")%> - <%=TabVendedor("NOME")%>
 
<% While NOT TabPlanos.EoF %> <% TabPlanos.MoveNext Wend %>
Código Descricao Valor Com. 1 Com. 2 Com. 3 Com. 4 Com. 5
<%=TabPlanos("ID_PLANO")%> &ID_PLANO=<%=TabPlanos("ID_Plano")%>&Comissao1=<%=TabPlanos("PRC_COMISSAO1")%>&Comissao2=<%=TabPlanos("PRC_COMISSAO2")%>&Comissao3=<%=TabPlanos("PRC_COMISSAO3")%>&Comissao4=<%=TabPlanos("PRC_COMISSAO4")%>&Comissao5=<%=TabPlanos("PRC_COMISSAO5")%>&Desc_Plano=<%=TabPlanos("DESCRICAO")%>"><%=TabPlanos("DESCRICAO")%> <%=CCur(TabPlanos("VLR_MENSAL"))%> <%=CCur(TabPlanos("PRC_COMISSAO1"))%> <%=CCur(TabPlanos("PRC_COMISSAO2"))%> <%=CCur(TabPlanos("PRC_COMISSAO3"))%> <%=CCur(TabPlanos("PRC_COMISSAO4"))%> <%=CCur(TabPlanos("PRC_COMISSAO5"))%>