Retornar Todos Os Valores Encontrados No Select Sem Criar Paginação

[regitronic 0]

galera seguinte

tenho uma página que busca ums valores num banco de dados e pelo select ele retorna cerca de 8 valores mas eu coloquei o response.write e ele so retorna 1 valor como faço para mostrar todos os valores encontrados no select?

minha pagina ta assim:

 

conexão e select com o banco:

<%
constr=server.mappath("bd1.mdb")
banco="dbq="&constr&";driver={microsoft access driver (*.mdb)}"
set conexao=server.createobject("adodb.connection")
conexao.open banco


rs = conexao.execute("SELECT * FROM pedidos WHERE cod_cliente='"&request.querystring("cod") &"' AND num_pedido='"&request.QueryString("num_pedido")&"' AND vendedor='"&request.QueryString("nome")&"'")

%>

retomando valores:

 

            <td><% response.Write rs("codigo") %> </td>
            <td><% response.Write rs("nome") %> </td>
            <td><% response.Write rs("quantidade") %> </td>
            <td><% response.Write rs("valor")  %><br/> </td>

não ta dando erro nda mas so ta retornando um valor

[jrcardozo 4]

<%

Do While Not rs.Eof

%>

<tr> <td><% response.Write rs("codigo") %> </td>

<td><% response.Write rs("nome") %> </td>

<td><% response.Write rs("quantidade") %> </td>

<td><% response.Write rs("valor") %><br/> </td></tr>

<%

rs.movenext

Loop

%>