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 ----- eu@eu.com ----- 123 ----- 000 ----- 1 |
jose ----- jo@ele.com ----- 456 ----- 123 ----- 1 |
joao ----- ao@eu.com ----- 789 ----- 123 ----- 1 |
Leo... ----- leo@eu.com ----- 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 = "marcio@dominio.com.br"
' 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&""%>
<%
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&""%>
<%
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&""%>
<%
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
Edição feita por: Estud_asp, 16/12/2010, 20:39.
