Buscador

[enchodebacon]

Hola! Necesito hacer una búsqueda x todos los campos ke tengo en una tabla de una base de datos y ke además me muestre los resultados en una tabla de la forma 4 x fila y 4 filas solo. Si hubiera + resultados me mostraria página 2 y tal...
Pues bien, la búskeda la tengo + o - xk creo ke me saca todos los registros de la base de datos. Pero eso ya lo comprobare. Mi problema es la ordenación.
Se debe mostrar de esta forma: www.2dmayo.com/riojavina/html/resultados.htm

Y este es mi código asp:

Código:

								  <%
    'realizamos la conexión de la Base de Datos
    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 UCase([Decripcion])='" & UCase(Request("palabra"))'"
    Else
        Temp="Select * From Productos Where InStr(UCase([Descripcion]),'" & UCase(Request("Criterio")) & "')>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 <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>

<!-- aquí comienza el Script que nos muestra los resultados, si los encuentra, en una tabla -->
<%
Else
contador=0
%> 							
<table width="712" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td colspan="4">
</td>
</tr>
<tr> 
<td width="178" height="106">
<%While Not rs.EOF%> 
<table width="178" height="106" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="50"><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
contador=contador + 1
if contador=4 then
response.Write(Hola)
end if
Wend
rs.Close
db.Close
End If
%>

Gracias a todos y ayudarme x favor!!!
Si alguien necesita el ASP entero para ver como tengo las tablas ke me escriba un correo y se lo mando, va?

Muxas gracias.