Como puedo parar un bucle While???

[enchodebacon]

Quiero ke se deje de ejecutar un bucle while cuando se cumpla una condicion, pero no es tan facil como parece.

Código:

 <%While Not rs.EOF%>
<%
'si encuentra mas de un resultado nos hace una celda mas en la tabla
if rs.EOF=true then
wend
else 
rs.MoveNext
contador=contador+1
end if
%> 
<%wend%>

La razon de ese movenext del if, es ke tengo todos los posibles campos ya configurados en una tabla y kiero ke vaya cogiendo la información y poniendola en sus respectivos huecos, no ke me vaya creando tablas x cada registro, entendeis???
Gracias

[unholy]

Puedes hacerlo de una forma que es la mas sencilla , aunque es un poco costosa para el servidor, que es haciendo:

rs.moveLast();

[JosephFley]

Cual es el problema que obtienes? un loop infinito?

prueba con Do... Loop

Do While Not ObjRS.EOF
........
ObjRS.MoveNext
Loop

[enchodebacon]

hola, la duda es ke, en la página de resultados, ya tengo hecho el esquema de representación de resultados xk kiero ke estos(si hay) se muestren de una manera determinada y ke solo relleno los datos de los ke van apareciendo y si no hay como en las tablas no tengo puesta ninguna altura ni anchura determinadas no me aparecerian, lo único es ke, el bloque while se supone ke tiene ke abarcar todas las tablas pero cuando deja de haber resultados tiene ke salir del bucle while y no rellenar + datos, eso es lo ke no se como hacer. Os paso un poco + de código a ver si entendeis mejor:

Código:

    dim con,rs,sql,cuenta,cat
	Set db = Server.CreateObject("ADODB.Connection")
	Set rs = Server.CreateObject("ADODB.Recordset")
	con="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/riojavina/data/bbddRiojavina.mdb")
	db.open con

'definimos las variables de busqueda
    Dim Temp,Rango,contador
    Rango=Request("Tipo")
    If Rango="1" Then
'En la Tabla la palabra que buscamos
     Temp="Select * From Productos Where Criterio='" & Request("palabra")'"
    Else
        Temp="Select * From Productos Where InStr(UCase([Criterio]),'" & UCase(Request("palabra")) & "')>0"
    End If
	set rs=db.execute(Temp)
    
If rs.BOF And rs.EOF Then
%>
<!-- si no encuentra nada nos da este mensaje -->
<p><font face="Tahoma" size="2">No se ha encontrado nada con <font face="Tahoma" size="2"><strong><%=Request("palabra")%></strong></font>en la Base de Datos</font></p>

<!-- aquí comienza el Script que nos muestra los resultados, si los encuentra, en una tabla -->

                    <tr valign="top"> 
                      <td height="312" colspan="2"> <table width="748" height="312" border="0" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td width="18">&nbsp;</td>
                            <td valign="top"><table width="712" border="0" cellspacing="0" cellpadding="0">
                                <tr> 
                                  <td width="178" height="106" id=11>
<%
Else
contador=1
%>
                                    <%While Not rs.EOF%>
                                    <table width="178" height="106" border="0" cellpadding="0" cellspacing="0">
                                      <tr> 
                                        <td width="50" id=1><table width="50" height="106" border="0" cellpadding="0" cellspacing="0">
                                            <tr> 
                                              <td height="8" align="left" class="normal"><strong><%=contador%></strong></td>
                                            </tr>
                                            <tr> 
                                              <td align="center" valign="top"><img src='<%=rs.Fields("URLImgPeke")%>'></td>
                                            </tr>
                                          </table></td>
                                        <td width="1" bgcolor="#666666" class="vacio">&nbsp;</td>
                                        <td><table width="100%" height="106" border="0" cellpadding="0" cellspacing="0">
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal"><strong><%=rs.Fields("NomMarca")%></strong></td>
                                            </tr>
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal"><%=rs.Fields("NomProducto")%></td>
                                            </tr>
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal">Acidez <%=rs.Fields("Acidez")%></td>
                                            </tr>
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal"><a href="datos_ejemplo.htm"><img src="../images/mas.gif" width="11" height="11" border="0"></a> 
                                                Informaci&oacute;n</td>
                                            </tr>
                                          </table></td>
                                      </tr>
                                    </table></td>


                                  <td width="178" height="106" id=2>
<%
'si encuentra mas de un resultado nos hace una celda mas en la tabla
if rs.EOF=true then
wend
else 
rs.MoveNext
contador=contador+1
end if
%> 
								  <table width="178" height="106" border="0" cellpadding="0" cellspacing="0">
                                      <tr> 
                                        <td width="50" id=1><table width="50" height="106" border="0" cellpadding="0" cellspacing="0">
                                            <tr> 
                                              <td height="8" align="left" class="normal"><strong><%=contador%></strong></td>
                                            </tr>
                                            <tr> 
                                              <td align="center" valign="top"><img src='<%=rs.Fields("URLImgPeke")%>'></td>
                                            </tr>
                                          </table></td>
                                        <td width="1" bgcolor="#666666" class="vacio">&nbsp;</td>
                                        <td><table width="100%" height="106" border="0" cellpadding="0" cellspacing="0">
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal"><strong><%=rs.Fields("NomMarca")%></strong></td>
                                            </tr>
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal"><%=rs.Fields("NomProducto")%></td>
                                            </tr>
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal">Acidez <%=rs.Fields("Acidez")%></td>
                                            </tr>
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal"><a href="datos_ejemplo.htm"><img src="../images/mas.gif" width="11" height="11" border="0"></a> 
                                                Informaci&oacute;n</td>
                                            </tr>
                                          </table></td>
                                      </tr>
                                    </table></td>
<%
'si encuentra mas de un resultado nos hace una celda mas en la tabla
rs.MoveNext

Wend
rs.Close
db.Close
End If
%>

Muxas Gracias.

[LeCLUB]

Lo estás haciendo mal, tendrías que utilizar esta forma:

1. Te conectas a la BBDD

2. If Rs.BOF And Rs.EOF Then 'Miramos si hay registros

3. Si no hay registros, no pintes nada

4. else 'Si hay registros hacemos lo siguiente

5. contador = 1 'Reiniciamos el contador

6. While Not rs.EOF 'Mientras hayan registros ves pintando 1 tabla por registro

7. <TABLE> .... etc ... <%=rs.Fields("loquesea")%> ... etc ... </TABLE>

8. Rs.MoveNext 'Saltamos al siguiente registro (es decir, vamos al punto 6)

9. Wend 'Cerramos el bucle de Tablas

10. End If 'Cierras comprobación de que haya registros en la consulta SQL


Y ya está, no necesitas más.

Por cada registro que haya en la BBDD se creará una nueva Tabla con sus datos correspondientes

[enchodebacon]

hola, si, entiendo lo ke me has puesto pero no es exactamente eso lo ke kiero. Mira, el diseño esta en: www.2dmayo.com/riojavina/html/resultados.htm

Y si lo hago como me has dixo, ke es como lo tenia antes me aparecen los resultados uno debajo del otro y yo los necesito como en el diseño, entiendes???

Gracias x preocuparte. Si kieres te envio el código a tu email si me lo dices.

Ok, entendido, lo siento, era para asegurarme de ke lo veias. La verdad ke mejor asi.

[LeCLUB]

Entonces lo que tienes que hacer es:


If Rs.BOF And Rs.EOF Then

NO MOSTRAMOS NADA

else

contador = 1

While Not rs.EOF

if NOT Rs.EOF
PINTA LA TABLA 1 con sus Recordsets <%= Rs("campo") %> y su <%= contador %>
contador = contador + 1
Rs.Movenext()
End if

if NOT Rs.EOF
PINTA LA TABLA 2 con sus Recordsets <%= Rs("campo") %> y su <%= contador %>
contador = contador + 1
Rs.Movenext()
End if

if NOT Rs.EOF
PINTA LA TABLA 3 con sus Recordsets <%= Rs("campo") %> y su <%= contador %>
contador = contador + 1
Rs.Movenext()
End if

if NOT Rs.EOF
PINTA LA TABLA 4 con sus Recordsets <%= Rs("campo") %> y su <%= contador %>
contador = contador + 1
Rs.Movenext()
End if

Wend

End if


Pero recuerda, tienes que pintar la PRIMERA LINEA de la tabla entera, y dentro de cada celda AÑADIR una tabla nueva con los IF NOT Rs.EOF

Es decir:

<table width="300" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>AQUÍ DENTRO VA LA TABLA 1</td>
<td>AQUÍ DENTRO VA LA TABLA 2</td>
<td>AQUÍ DENTRO VA LA TABLA 3</td>
<td>AQUÍ DENTRO VA LA TABLA 4</td>
</tr>
</table>

Y cuando me refiero a que va la TABLA 1 es que va todo este código:

if NOT Rs.EOF
PINTA LA TABLA 1 con sus Recordsets <%= Rs("campo") %> y su <%= contador %>
contador = contador + 1
Rs.Movenext()
End if


Dime si lo vas cogiendo

[enchodebacon]

No se si te he entendido bien, es esto lo ke me dices??? O se supone ke me tendria ke construir todas las tablas en asp.

Código:

<%
'si encuentra mas de un resultado nos hace una celda mas en la tabla
if not rs.EOF then
rs.MoveNext
contador=contador+1
end if
%> 
<table width="178" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="50" id=1><table width="50" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td height="8" align="left" class="normal"><strong><%=contador%></strong></td>
</tr>
<tr> 
<td align="center" valign="top"><img src='<%=rs.Fields("URLImgPeke")%>'></td>
</tr>
</table></td>
<td width="1" bgcolor="#666666" class="vacio">&nbsp;</td>
<td><table width="100%" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><strong><%=rs.Fields("NomMarca")%></strong></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><%=rs.Fields("NomProducto")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal">Acidez <%=rs.Fields("Acidez")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><a href=""><img src="../images/mas.gif" width="11" height="11" border="0"></a> 
Informaci&oacute;n</td>
</tr>
</table></td>
</tr>
</table></td>

[enchodebacon]

ya lo he piyado, voy a hacerlo y si me va te aviso, va???

[LeCLUB]

Weeeeeno, a ver si así te queda algo más claro xDDDD

Código PHP:

   
<%
'Lo primero, Te conectas a la BBDD 
'y haces la consulta SQL
 
'Miramos si hay registros en el resultado
If rs.BOF And rs.EOF Then
 
'Si no hay registros, no mostramos nada
'Si hay registros, empezamos a pintar la tabla
'y reiniciamos el contador
else
 
contador = 1
 
'Creamos un Bucle que pinte la tabla principal,
'siempre y cuando existan más registros que sacar
While Not rs.EOF
%>
 
<table width="400" border="0" cellspacing="0" cellpadding="0">
  <tr>
   <td width="100">
        <% 
        'Si hay un registro que mostrar, pintamos la tabla
        'interior con el contenido de los RecordSet y el contador
        if NOT Rs.EOF 
        %>
        <table width="100" border="0" cellpadding="0" cellspacing="0">
        <tr>
        <td>ESTO ES LA TABLA 1</td>
        </tr>
        </table>
        <%
        'Incrementamos el contador y saltamos a un nuevo registro
        contador = contador + 1
        Rs.Movenext()
        End if
        %>
        </td>
   <td width="100">
        <% 
        'Si hay un registro que mostrar, pintamos la tabla
        'interior con el contenido de los RecordSet y el contador
        if NOT Rs.EOF 
        %>
        <table width="100" border="0" cellpadding="0" cellspacing="0">
        <tr>
        <td>ESTO ES LA TABLA 2</td>
        </tr>
        </table>
        <%
        'Incrementamos el contador y saltamos a un nuevo registro
        contador = contador + 1
        Rs.Movenext()
        End if
        %>
        </td>
   <td width="100">
        <% 
        'Si hay un registro que mostrar, pintamos la tabla
        'interior con el contenido de los RecordSet y el contador
        if NOT Rs.EOF 
        %>
        <table width="100" border="0" cellpadding="0" cellspacing="0">
        <tr>
        <td>ESTO ES LA TABLA 3</td>
        </tr>
        </table>
        <%
        'Incrementamos el contador y saltamos a un nuevo registro
        contador = contador + 1
        Rs.Movenext()
        End if
        %>
        </td>
   <td width="100">
        <% 
        'Si hay un registro que mostrar, pintamos la tabla
        'interior con el contenido de los RecordSet y el contador
        if NOT Rs.EOF 
        %>
        <table width="100" border="0" cellpadding="0" cellspacing="0">
        <tr>
        <td>ESTO ES LA TABLA 4</td>
        </tr>
        </table>
        <%
        'Incrementamos el contador y saltamos a un nuevo registro
        contador = contador + 1
        Rs.Movenext()
        End if
        %>
        </td>
  </tr>
</table>
 
<%
'Volvemos a la parte superior del Bucle, o
'terminamos el bucle de pintar la Tabla Principal
si ya no quedan más registros que mostrar
Wend
 
End if
%>  
   

Y ya está ! no hace falta pintar más tablas, ni nada de nada

[enchodebacon]

ya lo tengo, pero me falla en algo xk se me desborda. El resultado está en:
www.2dmayo.com/riojavina/html/resultados2.asp

Hay prueba a buscar x ejemplo "ajo" y, como solo hay uno, te lo muestra bien aunke desbordado no se xk(xk se supone ke todo está en el centro)
Pero si buscas "Aliño" la cosa se complica, te los muestra todos en esa misma fila.

El código es este:

Código:

<%
--Conexión--

If rs.BOF And rs.EOF Then
%>
<tr valign="top"> 
<td height="312" colspan="2"> 
<table width="748" height="312" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="18">&nbsp;</td>
<td valign="top">
<table width="712" border="0" cellspacing="0" cellpadding="0">
<tr> 
<%
Else
contador=1
While Not rs.EOF%>
<%
'si encuentra mas de un resultado nos hace una celda mas en la tabla
if not rs.EOF then%>
<td width="178" height="106" id=11> <table width="178" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="50" id=1><table width="50" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td height="8" align="left" class="normal"><strong><%=contador%></strong></td>
</tr>
<tr> 
<td align="center" valign="top"><img src='<%=rs.Fields("URLImgPeke")%>'></td>
</tr>
</table></td>
<td width="1" bgcolor="#666666" class="vacio">&nbsp;</td>
<td><table width="100%" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><strong><%=rs.Fields("NomMarca")%></strong></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><%=rs.Fields("NomProducto")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal">Acidez <%=rs.Fields("Acidez")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><a href="datos_ejemplo.htm"><img src="../images/mas.gif" width="11" height="11" border="0"></a> 
Informaci&oacute;n</td>
</tr>
</table></td>
</tr>
</table></td><%
contador=contador+1
rs.MoveNext()
end if
'si encuentra mas de un resultado nos hace una celda mas en la tabla
If Not rs.EOF then%>
<td width="178" height="106" id=2>					  <table width="178" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="50" id=1><table width="50" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td height="8" align="left" class="normal"><strong><%=contador%></strong></td>
</tr>
<tr> 
<td align="center" valign="top"><img src='<%=rs.Fields("URLImgPeke")%>'></td>
</tr>
</table></td>
<td width="1" bgcolor="#666666" class="vacio">&nbsp;</td>
<td><table width="100%" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><strong><%=rs.Fields("NomMarca")%></strong></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><%=rs.Fields("NomProducto")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal">Acidez <%=rs.Fields("Acidez")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><a href="datos_ejemplo.htm"><img src="../images/mas.gif" width="11" height="11" border="0"></a> 
Informaci&oacute;n</td>
</tr>
</table></td>
</tr>
</table></td><%
contador=contador+1
rs.MoveNext()
end if
'si encuentra mas de un resultado nos hace una celda mas en la tabla
If Not rs.EOF then%>
                                  <td width="178" height="106" id=3>
								  <table width="178" height="106" border="0" cellpadding="0" cellspacing="0">
                                      <tr> 
                                        <td width="50" id=1><table width="50" height="106" border="0" cellpadding="0" cellspacing="0">
                                            <tr> 
                                              <td height="8" align="left" class="normal"><strong><%=contador%></strong></td>
                                            </tr>
                                            <tr> 
                                              <td align="center" valign="top"><img src='<%=rs.Fields("URLImgPeke")%>'></td>
                                            </tr>
                                          </table></td>
                                        <td width="1" bgcolor="#666666" class="vacio">&nbsp;</td>
                                        <td><table width="100%" height="106" border="0" cellpadding="0" cellspacing="0">
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal"><strong><%=rs.Fields("NomMarca")%></strong></td>
                                            </tr>
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal"><%=rs.Fields("NomProducto")%></td>
                                            </tr>
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal">Acidez <%=rs.Fields("Acidez")%></td>
                                            </tr>
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal"><a href="datos_ejemplo.htm"><img src="../images/mas.gif" width="11" height="11" border="0"></a> 
                                                Informaci&oacute;n</td>
                                            </tr>
                                          </table></td>
                                      </tr>
                                    </table></td>
									
                                  <%
contador=contador+1
rs.MoveNext()
end if
'si encuentra mas de un resultado nos hace una celda mas en la tabla
If Not rs.EOF then%>						
						
                                  <td width="178" id=4>
								  <table width="178" height="106" border="0" cellpadding="0" cellspacing="0">
                                      <tr> 
                                        <td width="50" id=1><table width="50" height="106" border="0" cellpadding="0" cellspacing="0">
                                            <tr> 
                                              <td height="8" align="left" class="normal"><strong><%=contador%></strong></td>
                                            </tr>
                                            <tr> 
                                              <td align="center" valign="top"><img src='<%=rs.Fields("URLImgPeke")%>'></td>
                                            </tr>
                                          </table></td>
                                        <td width="1" bgcolor="#666666" class="vacio">&nbsp;</td>
                                        <td><table width="100%" height="106" border="0" cellpadding="0" cellspacing="0">
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal"><strong><%=rs.Fields("NomMarca")%></strong></td>
                                            </tr>
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal"><%=rs.Fields("NomProducto")%></td>
                                            </tr>
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal">Acidez <%=rs.Fields("Acidez")%></td>
                                            </tr>
                                            <tr> 
                                              <td width="11">&nbsp;</td>
                                              <td class="normal"><a href="datos_ejemplo.htm"><img src="../images/mas.gif" width="11" height="11" border="0"></a> 
                                                Informaci&oacute;n</td>
                                            </tr>
                                          </table></td>
                                      </tr>
                                    </table></td>
								</tr>

                                
								<%
contador = contador + 1
Rs.Movenext()
End if%>
								
                                <tr class="vacio"> 
                                  <td height="12">&nbsp;</td>
                                  <td height="12">&nbsp;</td>
                                  <td height="12">&nbsp;</td>
                                  <td height="12">&nbsp;</td>
                                </tr>
<%
Wend
rs.Close()
db.Close()
End If
%>

Con lo azul muestro el 1º resultado y lo rojo es para el 2º, entre estos dos se crea un espacio demasiado grande y no entiendo xk ya ke la busqueda me la hace perfectamente y me coloca los resultados bien(como me habias dixo)salvando el error de desbordamiento.Esta ya apuntito...

Muxas gracias.

[LeCLUB]

Pues venga, dale caña, y nos enseñas como queda ;)

[enchodebacon]

Conseguido!!! Muchas gracias LeClub, tu aportación me ha orientado xk estaba completamente perdido. Os dejo aki el código x si lo necesitais alguna vez:

Código:

--Aki iria la conexión--

<%    
If rs.BOF And rs.EOF Then
%>
<!-- si no encuentra nada nos da este mensaje -->
<p><font face="Tahoma" size="2">No se ha encontrado nada con <font face="Tahoma" size="2"><strong><%=Request("palabra")%></strong></font> en la Base de Datos</font></p>

<!-- aquí comienza el Script que nos muestra los resultados, si los encuentra, en una tabla -->
<%                    
Else
contador=1
%>
<%
While Not rs.EOF
if not rs.EOF then
%>							
<table width="712" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="178" height="106" id=1> 
<table width="178" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="50" id=1><table width="50" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td height="8" align="left" class="normal"><strong><%=contador%></strong></td>
</tr>
<tr> 
<td align="center" valign="top"><img src='<%=rs.Fields("URLImgPeke")%>'></td>
</tr>
</table></td>
<td width="1" bgcolor="#666666" class="vacio">&nbsp;</td>
<td><table width="100%" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><strong><%=rs.Fields("NomMarca")%></strong></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><%=rs.Fields("NomProducto")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal">Acidez <%=rs.Fields("Acidez")%></td></tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><a href="datos_ejemplo.asp"><img src="../images/mas.gif" width="11" height="11" border="0"></a> 
Informaci&oacute;n</td>
</tr>
</table></td>
</tr>
</table></td><%
contador=contador+1
rs.MoveNext()
end if
'si encuentra mas de un resultado nos hace una celda mas en la tabla
If Not rs.EOF then
%>
<td width="178" height="106" id=2> 
 <table width="178" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="50" id=1><table width="50" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td height="8" align="left" class="normal"><strong><%=contador%></strong></td>
</tr>
<tr> 
<td align="center" valign="top"><img src='<%=rs.Fields("URLImgPeke")%>'></td>
</tr>
</table></td>
<td width="1" bgcolor="#666666" class="vacio">&nbsp;</td>
<td><table width="100%" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><strong><%=rs.Fields("NomMarca")%></strong></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><%=rs.Fields("NomProducto")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal">Acidez <%=rs.Fields("Acidez")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><a href="datos_ejemplo.asp"><img src="../images/mas.gif" width="11" height="11" border="0"></a> 
Informaci&oacute;n</td>
</tr>
</table></td>
</tr>
</table></td><%
contador=contador+1
rs.MoveNext()
end if
If Not rs.EOF then
%>
<td width="178" height="106" id=3>
<table width="178" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="50" id=1><table width="50" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td height="8" align="left" class="normal"><strong><%=contador%></strong></td>
</tr>
<tr> 
<td align="center" valign="top"><img src='<%=rs.Fields("URLImgPeke")%>'></td>
</tr>
</table></td>
<td width="1" bgcolor="#666666" class="vacio">&nbsp;</td>
<td><table width="100%" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><strong><%=rs.Fields("NomMarca")%></strong></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><%=rs.Fields("NomProducto")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal">Acidez <%=rs.Fields("Acidez")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><a href="datos_ejemplo.asp"><img src="../images/mas.gif" width="11" height="11" border="0"></a> 
Informaci&oacute;n</td>
</tr>
</table></td>
</tr>
</table></td>
<%
contador=contador+1
rs.MoveNext()
end if
If Not rs.EOF then
%>
<td width="178" id=4>
<table width="178" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="50" id=1><table width="50" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td height="8" align="left" class="normal"><strong><%=contador%></strong></td>
</tr>
<tr> 
<td align="center" valign="top"><img src='<%=rs.Fields("URLImgPeke")%>'></td>
</tr>
</table></td>
<td width="1" bgcolor="#666666" class="vacio">&nbsp;</td>
<td><table width="100%" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><strong><%=rs.Fields("NomMarca")%></strong></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><%=rs.Fields("NomProducto")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal">Acidez <%=rs.Fields("Acidez")%></td>
</tr>
<tr> 
<td width="11">&nbsp;</td>
<td class="normal"><a href="datos_ejemplo.asp"><img src="../images/mas.gif" width="11" height="11" border="0"></a> 
Informaci&oacute;n</td>
</tr>
</table></td>
</tr>
</table></td>						
<%
contador = contador + 1
Rs.Movenext()
End if
%>					
</tr>
                                <tr class="vacio"> 
                                  <td height="12">&nbsp;</td>
                                  <td height="12">&nbsp;</td>
                                  <td height="12">&nbsp;</td>
                                  <td height="12">&nbsp;</td>
                                </tr>
<%
Wend
rs.Close()
db.Close()
End If
%> 

Aki teneis el código para mostrar los resultados de la busqueda de esta manera: www.2dmayo.com/riojavina/html/resultados.htm

Os he puesto cada tabla ke creamos en un color para ke os sea + facil hacerlo. En mi caso keria crear filas de 4 columnas cada una pero seguro ke os sirve para otras configuraciones.

Muxas gracias LeClub!!!

[LeCLUB]

Bueno !!! por fin !!! me alegro de que te saliera !!!

Un saludo