<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID_Empresa=request.item("Empresa") wSQL="SELECT ID, NOME FROM EMPRESAS WHERE ID=" & wID_Empresa Set TabEmpresa = Database.Execute(wSQL) wSQL=" SELECT EP.ID_EMPRESA, EP.ID_PLANO, P.DESCRICAO, P.VLR_MENSAL, EP.PRC_COMISSAO, EP.PRC_COBRANCA " wSQL= wSQL & " FROM EMPRESAS_PLANOS EP " wSQL= wSQL & " LEFT JOIN PLANOS P " wSQL= wSQL & " ON EP.ID_PLANO = P.ID " wSQL= wSQL & " WHERE ID_Empresa=" & wID_Empresa wSQL= wSQL & " ORDER BY P.DESCRICAO " Set TabPlanos = Database.Execute(wSQL) %>
Planos da Empresa
Empresa: <%=TabEmpresa("NOME")%>
Código
Descrição
Valor
Comissão
Cobrança
<% While NOT TabPlanos.EoF %>
<%=TabPlanos("ID_PLANO")%>
&ID_PLANO=<%=TabPlanos("ID_Plano")%>"><%=TabPlanos("DESCRICAO")%>
<%=TabPlanos("VLR_MENSAL")%>
<%=TabPlanos("PRC_COMISSAO")%>
<%=TabPlanos("PRC_COBRANCA")%>
<% TabPlanos.MoveNext Wend %>