Exibir registros com o mesmo ID

[Fabio AVILA]

Ola AMigos ,

Como que faço pra exibir pra mim todos os registro que possuem o mesmo id , pois eu to conseguindo exibir apenas 1... segue o codigo :

<% Set Conexao = CreateObject("ADODB.CONNECTION")
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Data Source="&Server.MapPath("bd.mdb")&";Provider=Microsoft.Jet.OLEDB.4.0;"

 %>

<%


acao     = Request("acao")
id = Request("id")


    if acao = "V" then
        disabilita = " disabled=""disabled"" " 
    elseif acao = "A" then
        disabilita = ""
    end if
    
    'Dados Alterar
    id= Request("id")
    
    if (acao = "A" or acao = "V") then    
        
        if acao = "A" then
           acao = "alterar"
           bt   = "Alterar" 
        else
           acao = "visualizar"
           bt   = "Alterar"
        end if
    
        set rs2 = Server.CreateObject("ADODB.Recordset")
        sql2    = "select * from Pedidos where id="&id&""
        set rs2 = objCon.execute(sql2)
    
    '-------------------------------------------------
    '    Estes dados podem ser alterados
        Produto    = rs2("produto")
        Cliente= rs2("cliente")
                    id    = rs2("id")
    
    

            
    '--------------------------------------------------
    else
        acao = "gravar"
        bt   = "Gravar"
    end if

    bt = Ucase(bt)

%>

vlw

[Rafael Spilki]

O select está certo... mas você tem que fazer um loop do tipo while usando seu recordset...

Google it!

[]'s