1 reply to this topic

[José Krasucki]

Olá Pessoal, preciso de uma ajuda.

Estou fazendo um loop para mostrar na tela as informações de uma tabela. Para cada resultado desse primeiro loop preciso que apareça alguns subitens que estão em outra tabela. E para isso preciso fazer um 2º loop. A primeira parte da tarefa consegui realizar com sucesso. A segunda não estou conseguindo. Alguem tem uma luz, como posso fazer esse segundo loop? Abaixo estou postando o código do primeiro loop.

<%
	conexaoString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("meu banco") 
	conexaoStringDefault = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("meu banco") 
        %>
    
        <%
	Set conexao = Server.CreateObject("ADODB.Connection")
	conexao.Open conexaoStringDefault
	%>
                        
        <%
		On Error Resume Next
	id = Request.QueryString("id")

	NumPerPage = 1000
	If id = Request.QueryString("id") Then
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "SELECT * from PRODUTO WHERE Id_news ="&id&" ORDER BY ID DESC", conexao
        rs.PageSize = NumPerPage
        TotalPages = rs.PageCount
        rs.AbsolutePage = CurPage
	
		
		If Err <> 0 Then
			msg = "Nenhuma noticia cadastrada!"
		End if
	%>
		
        <% 
	num = (NumPerPage * CurPage) - (NumPerPage - 1)
	Count = 0
	Do While (Count < rs.PageSize) AND (not rs.EOF)
	%>
        
<!-- Aqui eu mostro os dados da primeira tabela -->       
        
        <%
	rs.MoveNext 
	num = num + 1
	Count = Count + 1
	Loop
	%>
	
        <% 
	End If 
	conexao.Close
	Set rs = nothing
	Set conexao = nothing
	%>

:joia: Agradeço a quem se dispor a me ajudar.

[Renan L. Queiroz]

Um breve exemplo

<%
    Dim i : i = 1
    Dim r : r = 1

    Do While i < 6
        Do While r < 6
                response.write("i = "& i &" e r = "& r &"<br />")
            r = r + 1
        Loop 
        response.write("i = "& i &"<br />")
        i = i + 1
    Loop 
%>

Resultado:

i = 1 e r = 1
i = 1 e r = 2
i = 1 e r = 3
i = 1 e r = 4
i = 1 e r = 5
i = 1
i = 2
i = 3
i = 4
i = 5

Fonte para consulta: VBScript Looping Statements

Edição feita por: Renan L. Queiroz, 11/02/2010, 10:40.