Problema con la muestra de resultados de un RS

[trasgukabi]

Código:

response.write ("<table><tr>")
contador=0
Do While Not Rs.EOF
    contador=contador+1
    if contador=5 then 'si ha sacado 4 registros, pasa a siguiente línea
       response.write("</tr><tr>")
       contador=0
    end if
    Response.Write("<td>"&Rs(nombre)&","&Rs("precio")&"</td>")
    Rs.MoveNext
Loop
response.write ("</tr></table>")