Como puedo parar un bucle While???

[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!!!