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.

[enchodebacon]

Tengo ke hacer una busqueda y no se como organizarla de tal forma ke me vayan apareciendo los resultados según los va encontrando en las columnas de una tabla(4 columnas) y despues en las filas(5 filas), es decir ke me termine mostrando 20 resultados(4columnas x 5 filas) en la página.

Gracias

[Myakire]

¿Te refieres a:

rs.open "select ' from tabla",3,3
%><table><%
while not rs.eof
%>
<tr><td><%=rs("campo1")%><td><%=rs("campo2")%><td> <%=rs("campo3")%><td><%=rs("campo4")%><td><%=rs("c ampo5")%>
<%
rs.movenext
wend
%>
</table>
?

[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

[Myakire]

A ver, ¿cuál es tu problema exacto?, ¿queres paginas una consulta de a cuatro en cuatro?, ¿Armar una consulta al vuelo?

Disculpa, pero como que no te entendí bien cual es el problema.


Saludos

[enchodebacon]

Mi problema es ke kiero ke en una página me aparezcan 20 resultados, 5 columnas de 4, y no se como hacer para ir poniendolos en columnas xk lo ke me sale es ponerlos en fila a fila cada registro, ahora mejor?
Gracias