He estado leyendo acerca de los recordset, en mi codigo, donde pongo:
'Mostrar los productos de la categoria
if not rscatlist.eof then
rscatlist.movefirst
while not rscatlist.eof
Lo que hago es situar el puntero en el primer regisro, despues pongo
<a href="product.asp?idproducto=<%=rscatlist("idprodu cto")%>"><%=rscatlist("nombreproducto")%><IMG height=120src="<%=rscatlist("imagen")%>
Con esto se muestran el nombre y la imagen del producto, despues pongo
<%
rscatlist.movenext
wend
end if
%>
Con esto hago que el puntero se mueva al siguiente registro (no se muy bien que hace wend, ¿la estructura no seria while....wend?)
Por favor decidme como deberia de poner el codigo que me habeis dado, porque he probado todo pero no consigo nada, Gracias
<%@ LANGUAGE = "VBScript" %>
<!-- #include file="db.asp" -->
<!-- #include file="config.asp" -->
<!-- #include file="functions.asp" -->
<%
codigocat=request.querystring("codigocat")
set rscat=db.execute("select * from categorias where codigocat=" & codigocat)
if rscat.eof then
response.redirect("error.asp?No se ha encontrado la categoria!")
end if
'Obtener los nombres y codigos de todos los productos de la categoria
set rscatlist=db.execute("select nombreproducto,idproducto,imagen from productos where codigocat=" & codigocat & " order by nombreproducto")
%>
<html>
<head>
<title> <%= storename %> </title>
<body bgcolor="<%= bgcolor %>" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" text="<%= text %>" alink="<%= azul %>" link="<%= verde%>" vlink="<%= vlink %>"><font face="arial">
<%
header
categorymenu
%>
<table>
<td valign=top align=left> <font face="helvetica" size="3" color="<%= COLdark %>"><B><%= rscat("nombrecat") %></B></font> <br> <%
'Mostrar los productos de la categoria
if not rscatlist.eof then
rscatlist.movefirst
while not rscatlist.eof
%> <font size="2" aling="center" face="helvetica" color="<%= verde %>"><td width=50> <a href="product.asp?idproducto=<%= rscatlist("idproducto")%>"><%=rscatlist("nombrepro ducto")%><IMG height=120src="<%=rscatlist("imagen")%></a> <br>
<%
rscatlist.movenext
wend
end if
%> </td>
<%
ci=rscat("imagencat")
if ci<>"" then
%>
<td width=180 align="left"> <%=rscat("imagencat") %> <%
else
%> <%
end if
%> </td>
<td>
<%
numcarro
%></td>
</table>
<% footer %>
</body>
</html>
<%
db.close
set db=nothing
%>