<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID_EMPRESA=request.item("ID_EMPRESA") wID_Plano=request.item("ID_Plano") wSQL=" SELECT EP.ID_EMPRESA, EP.ID_PLANO, P.DESCRICAO, P.VLR_MENSAL, EP.PRC_COMISSAO, EP.PRC_COBRANCA, EP.MODELO_TICKETS " 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 & " AND ID_PLANO=" & wID_PLANO Set TabPlanos = Database.Execute(wSQL) wPRC_Comissao=TabPlanos("PRC_COMISSAO") wPRC_Cobranca=TabPlanos("PRC_COBRANCA") wMODELO_TICKETS=TabPlanos("MODELO_TICKETS") %>
<%=wComissao%> Comissão
Plano
Plano
:
<%=TabPlanos("Descricao")%>
Perc. Comissão
:
Modelo Ticket
: