Buscador

[enchodebacon]

No del todo, eso lo tengo claro, mi problema esta en ke kiero mostrar los resultados de cada producto(para el ke tengo una tablita con su foto y algún detalle) a 4 resultados x fila y eso no se como hacerlo.

Mira, tengo este código:

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 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
%>		

En la tabla he metido 2 resultados tipo xk no se introducir uno base y ke se vaya copiando en las columnas ke kiero. Si tienes alguna duda(ke imagino ke si xk asi dixo es 1 poco complicado, dimelo y te envio el código completo al mail, va?) ayuda!!!  :'(  :'(  :'( 
Gracias