loop dentro de loop

[natbe]

Pessoal,

Tenho um faq no banco onde cadastro a pergunta e a resposta. Tem algumas respostas muito compridas que estão divididas em 2 ou 3 registros no banco.

Queria listar na página a primeira pergunta e tenha um loop para juntar as respostas da mesma pergunta e só depois passe para a próxima pergunta.

Fiz assim:

<%

Set rstemp = Server.CreateObject("ADODB.Recordset")

Set rstemp.ActiveConnection = con

str="SELECT * FROM site WHERE item='dúvidas' order by pergunta"

rstemp.Open str

registro=0

perg = rstemp("pergunta")

While Not rstemp.EOF

Set rstemp1 = Server.CreateObject("ADODB.Recordset")

Set rstemp1.ActiveConnection = con

str1="SELECT * FROM site WHERE pergunta='"&perg&"' order by id"

rstemp1.Open str1

Response.write "<dt><p>" & rstemp("pergunta") & "</p></dt>"

Response.write "<dd>"

do while not rstemp1.eof

Response.write rstemp1("texto")

rstemp1.MoveNext

loop

rstemp1.close

set rstemp1 = nothing

Response.write "</dd>"

registro = registro +1

rstemp.MoveNext

Wend

%>

O problema é que ele está imprimindo 3 vezes a primeira pergunta e todas as demais perguntas com a resposta da primeira pergunta, ou seja, no primeiro loop ele consegue ir para o próximo registro, mas, no loop interno ele não vai, ele fica empacado...

Alguma sugestão de como implementar isso?

Grata!

Editado Maio 9, 2011 por natbe

[-#Alea#-]

<%

Set rstemp = Server.CreateObject("ADODB.Recordset")

Set rstemp.ActiveConnection = con

str="SELECT * FROM site WHERE item='dúvidas' order by pergunta"

rstemp.Open str

registro=0

perg = rstemp("pergunta") 'AQUI ELE DEVERIA PEGAR ID se sua tabela pergunta tem relacionamento com a tabela respostas

While Not rstemp.EOF

Set rstemp1 = Server.CreateObject("ADODB.Recordset")

Set rstemp1.ActiveConnection = con

str1="SELECT * FROM site WHERE pergunta='"&perg&"' order by id"

rstemp1.Open str1

Response.write "<dt><p>" & rstemp("pergunta") & "</p></dt>"

Response.write "<dd>"

do while not rstemp1.eof

Response.write rstemp1("texto")

rstemp1.MoveNext

loop

rstemp1.close

set rstemp1 = nothing

Response.write "</dd>"

registro = registro +1

rstemp.MoveNext

Wend

%>

[natbe]

Na realidade acabei de resolver!!

Foi só tirar a variável perg e colocar o rstemp("pergunta") no código...

Mesmo assim agradeço as respostas!!!

While Not rstemp.EOF

Set rstemp1 = Server.CreateObject("ADODB.Recordset")

Set rstemp1.ActiveConnection = con

str1="SELECT * FROM site_portugues WHERE titulo='conta margem' and pergunta='"&rstemp("pergunta")&"' order by id"

rstemp1.Open str1

Response.write "<dt><p>" & rstemp("pergunta") & "</p></dt>"

Response.write "<dd>"

do while not rstemp1.eof

Response.write rstemp1("texto")

rstemp1.MoveNext

loop

rstemp1.close

set rstemp1 = nothing

Response.write "</dd>"

registro = registro +1

rstemp.MoveNext

Wend

[natbe]

meu problema agora é que se tem no banco duas perguntas iguais, ele imprime as duas perguntas. Inseri o loop dentro de outro para concatenar as respostas.

Como faço para ele imprimir apenas uma ocorrência? Alguma idéia?

[-#Alea#-]

como assim apenas uma?

digamos que a pergunta tenha 4 respostas tu quer mostrar somente a primeira?

Att

[natbe]

Não, é assim:

Tenho um faq.

Nesse faq tenho várias perguntas e respostas que estão guardadas no BD.

Tem pergunta que a resposta está dividida em alguns registros.

O que fiz no código acima foi imprimir tudo. O segundo loop junta as respostas de uma mesma pergunta.

O problema é que, suponha que a mesma pergunta tenha 3 registros de respostas. Eu estou imprimindo as respostas via loop, aí aparece na tela 3x a mesma pergunta com a resposta completa. Dessa forma, queria imprimir somente uma ocorrência.

Grata!

como assim apenas uma?

digamos que a pergunta tenha 4 respostas tu quer mostrar somente a primeira?

Att

[bareta]

em vez de buscar as perguntas pela string pergunta

pergunta='"&rstemp("pergunta")&"'

use a chave primaria da tabela pergunta.