listbox y asp

[axelme]

Tengo este codigo pero me lista una hoja de la db, la hoja "cables".

Código:

<%
Dim conexion, registros, basedatos
basedatos = Server.MapPath("./productos/productos.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Set registros = conexion.Execute("SELECT * FROM cables ORDER BY cables.descripcion")
Do While Not registros.EOF
%>
<%= registros.Fields("descripcion").Value %>
<%= registros.Fields("precio").Value %>
<%
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>