Ir para conteúdo
Fórum CódigoFonte.net

Gleik

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

  1. Gleik

    Somar Variavel Com Loop Multi Nivel

    estou tentando montar um sistema de rede multi nivel ja consegui todos os vinculos tudo ok até ai. so não estou conseguindo fazer a seguinte soma... SEGUE ABAIXO O GRAFICO EM IMG Olha meu codigo atual para apresentar o seguinte resultado Nivel 1 Marcio Nivel 2 joao Nivel 3 Flavio Manoel Mario Nivel 2 jose Nivel 3 Amanda Jorge Leonardo Nivel 2 pedro Nivel 3 Joana Joaquim Maria Exemplo da estrutura da tabela nome | email | codigo | cod_indicado | numero_indicado | Marcio ----- [email protected] ----- 123 ----- 000 ----- 1 | jose ----- [email protected] ----- 456 ----- 123 ----- 1 | joao ----- [email protected] ----- 789 ----- 123 ----- 1 | Leo... ----- [email protected] ----- 888 ----- 456 ----- 1 | e assim segue <!--#include file="config.asp"--> <% 'Declarações ConRrs = 3 If Request.QueryString("pagina") = "" Then numpag = 1 Else numpag = CInt(Request.QueryString("pagina")) End If %> <% ' coloquei o usuario direto aki pra poupar pagina de login nesta explicação usuario = "[email protected]" ' na tabela cadastro existe um campo numero_indicado para todos os cadastrado com o VALOR 1 ' este campo coloquei para fazer tal soma AccessoDB = ""&banco&"" Set adoCon = Server.CreateObject("ADODB.Connection") Set rs1 = Server.CreateObject("ADODB.Recordset") strCon="DRIVER={Microsoft Access Driver (*.mdb)};" strCon = strCon & "DBQ=" & Server.MapPath(AccessoDB) strSQL = "SELECT * FROM cadastro where email='"&usuario&"'" strSQL = strSQL & " ORDER By cadastro.nome" rs1.Open strSQL, strCon, 3 rs1.PageSize = ConRrs If NOT rs1.EOF Then rs1.AbsolutePage = numpag For intRecordLoopCounter = 1 to ConRrs If rs1.EOF Then Exit For STRID1 = CInt(rs1("idprod")) strnome= rs1("nome") strcodigo= rs1("codigo") %> <strong>Nivel 1 </strong> <%=""&strnome&""%> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <% rs1.MoveNext next %> <br> <% AccessoDB = ""&banco&"" Set adoCon = Server.CreateObject("ADODB.Connection") Set rs2 = Server.CreateObject("ADODB.Recordset") strCon="DRIVER={Microsoft Access Driver (*.mdb)};" strCon = strCon & "DBQ=" & Server.MapPath(AccessoDB) strSQL = "SELECT * FROM cadastro where cod_indicado='"&strcodigo&"'" strSQL = strSQL & " ORDER By cadastro.nome" rs2.Open strSQL, strCon, 3 rs2.PageSize = ConRrs If NOT rs2.EOF Then rs1.AbsolutePage = numpag For intRecordLoopCounter2 = 1 to ConRrs If rs2.EOF Then Exit For STRID2 = CInt(rs2("idprod")) strnome2= rs2("nome") strcodigo2= rs2("codigo") %> <strong>Nivel 2 </strong> <%=""&strnome2&""%> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <% rs2.MoveNext %> <strong>Nivel 3</strong> <% AccessoDB = ""&banco&"" Set adoCon = Server.CreateObject("ADODB.Connection") Set rs3 = Server.CreateObject("ADODB.Recordset") strCon="DRIVER={Microsoft Access Driver (*.mdb)};" strCon = strCon & "DBQ=" & Server.MapPath(AccessoDB) strSQL = "SELECT * FROM cadastro where cod_indicado='"&strcodigo2&"'" strSQL = strSQL & " ORDER By cadastro.nome" rs3.Open strSQL, strCon, 3 rs3.PageSize = ConRrs If NOT rs3.EOF Then rs3.AbsolutePage = numpag For intRecordLoopCounter3 = 1 to ConRrs If rs3.EOF Then Exit For STRID3 = CInt(rs3("idprod")) strnome3= rs3("nome") strcodigo3= rs3("codigo") %> <%=""&strnome3&""%> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <% rs3.MoveNext next %> <br> <% next %> será que alguem tem alguma noção de como posso fazer esta soma?? Desde ja Agradeço a todos Um Forte Abraço
×
×
  • Criar Novo...