Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Gleik

Somar Variavel Com Loop Multi Nivel

Recommended Posts

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

Grafico.jpg

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...