Listado en dos o tres columnas

[armandoweb]

Amigos:

Actualmente listo en una pagina registros de una base de datos, pero uno debajo de otro. Lo que necesito hacer ahora es listar, por ejemplo una foto de un producto y su precio, pero en dos comlumnas.
Como debo encarar la cuestión?? Algún tutorial o idea donde pueda investigar??
Saludos y gracias por la ayuda de todos ustedes...

ARIEL.

[Owen-Bonilla]

Que tal amigo !

Checate las Faqs de ASP. Ahí viene un ejemplo de cómo hacer lo que necesitas.

Ahorita no tengo ese ejemplo a la mano, pero se que lo he visto en las Fasq.

Saludos

[orharo2003]

Estimado usuario:

Veo que tu problema radica en el formato de salida, su ya tienes tu información agregada y organizada correctamente creo que la cuestión sería el estudiar un buen manual de HTML (tablas,imagenes etc..). En cualquier buscador lo podrás encontrar.

Un saludo.

Orlando Rios

[armandoweb]

En el sistema actual que utilizo tengo en una pagina un listado donde mediante un bucle me lee de una tabla determinada los ultimos seis registros ingresados y los ubica uno debajo de otro. Lo que no logro hacer es, por ejemplo, con otro bucle colocar tres registros en una columna y los otros tres en la columna de al lado dentro de una misma tabla, se entiende??? El problema lo tengo con todo, el código y el formato para mostrarlo.
Desde ya gracias....

ARIEL.

[Myakire]

Podría ser algo así:

Código:

<table border=1>
<tr><td valign="top">
<%
LimMax = 15 'Puede ser el recordount
for i=1 to LimMax
   if  i = 1 Then
	 %><table border=1><%
	 End If
   if  i = CInt(LimMax/2)+1 Then
	 %></table><td  valign="top"><table border=1><%
	 End if
   %><tr><td>Ciclo<td><%=i%><%
Next
%>

[armandoweb]

Myakire:

Agradezco tu ayuda pero no es exactamente lo que deseo hacer.
Si alguie más puede ayudarme le estare muy agradecido.
Saludos a todos.

ARIEL

[JaviM]

Mira a ver si esto te sirve

<table width="434" align="center">
<tr>
<%
counter=0
Do While Not Rs.EOF
if rs("imagen")<>"" then
%>

<td colspan="4">
<div align="center"><font size="2"
color="#666666"><img src="mante/images/<%=rs("imagen")%>" vspace="0"
hspace="5" border="0"><br>
<%
Response.Write "<b><font face=Verdana size=1><b><a href="
&rs.Fields("enlace") & " target=_blank>"&rs("libro")&"</a> &nbsp;
</b></font><br>"%>

</font></div><br>
</td>
<%
else
%>
<td colspan="4">
<%
Response.Write "<b><font face=Verdana size=1><b><a href=" &rs.Fields
("enlace") & " target=_blank>"&rs("libro")&"</a> &nbsp; </b></font><br>"%>

</td>
<%
end if
counter=counter+1
Rs.MoveNext
%>
<%If counter MOd 2=0 Then
Response.Write "</tr><tr>"
Loop
%>
</table>

[armandoweb]

Hola JaviM:
Ese ejemplo lo tengo, pero no es lo que necesito. El ejemplo que me das lista un registro de la base de datos en dos columnas, pero un solo registro. Lo que estoy necesitando que en cada columna haya un registro distinto y con un bucle que me lea los ultimos 4 registros por ejemplo.
No se si me expreso bien pero quiero tener dos columnas con 4 registros distintos, los últimos ingresados.

Gracias y espero que puedan ayudarme....

ARIEL.

[Myakire]

Creo que el ejemplo que te pasé facilmente lo puedes adaptar para que funcione apartir de una tabla. Obtener la idea era lo dificil, y creo ya son dos ideas diferentes y funcionales.

[DkarnDuuk]

"creo" q yo tengo hecho eso con unos cuadros combiandos, pero no se si es esto lo que quieres:

simplemente le tienes q indicar cuando le pides q t saque los registros en la lista:

mivariable_a_sacar="<%=(rs("foto"))"& &"(rs("precio"))"& &"(rs("stock"))%>"

lo malo de este ejemplo es a la hora de sacarlo en columnas en condiciones:

foto1.jpg | 1000€ | 5
misuperfoto1.jpg | 500€ | 6

[armandoweb]

Lo que estoy necesitando hacer es algo como la seccion de articulos especiales en la página principla de mercado libre www.mercadolibre.com.ar
Alguien que me ayude....

Gracias.

ARIEL.

[dageba]

hola armandoweb.

fijate si este codigo te sirve.
Doy por sentado que el bucle para obtener los 4 o 6 u 8 ultimos registros ya lo tenes.
Es para complementar el bucle que ya tenes, y no para realizar otro nuevo

<%
col=1
response.write "<table>"
'aquí comensaria el bucle con DO WHILE o FOR

if condicion = "si" then 'Si está dentro de los ultimos registros
if col=1 then
response.write "<tr><td>"
response.write "aqui pones los datos del registro que cumplió la condición"
response.write "</td>"
col=2

else
if col=2 then
response.write "<td>"
response.write "aqui pones los datos del registro que cumplió la condición"
response.write "</td>"
col=3

else
response.write "<td>"
response.write "aqui pones los datos del registro que cumplió la condición"
response.write "</td></tr>"
col=1

end if
end if
else
end if

'aquí colocas el LOOP o NEXT dependiendo de que utilices para hacer el bucle
%>

es un poco rudimentario pero para los que no somos tan experto es bastante sencillo.
es para 3 columnas pero si lo queres ampliar o disminuir solo tenes que agregar o quitar if.

Aunque creo que la opcion de Myakire es bastante justa para lo que buscas.


Espero que te sirva.
saludos de un santafecino a otro santafecino

[armandoweb]

Hola de nuevo:

Estuve probando la solucion de Myakire pero no lo puedo adaptar.....
La tabla con el bucle no me queda....
Todos coinciden pero yo no lo logro hacer..
Ayuda please!

ARIEL.

[Myakire]

No te presiones por algo es es verdaderamente sencillo, mira, con recordset quedaría así:

Código:

<table border=1>
<tr><td valign="top">
<%
  Dim oConn1,oRs1
  Set oConn1 = Server.CreateObject("ADODB.Connection")
  Set oRS1 = Server.createobject("ADODB.Recordset")
  oConn1.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("prueba.mdb"))
  oRS1.Open "select * from columnas",oConn1,3,3

LimMax = oRs1.RecordCount
Cnt=1
While Not oRs1.Eof
   if  Cnt = 1 Then
	 %><table border=1><%
	 End If
   if  Cnt = CInt(LimMax/2)+1 Then
	 %></table><td  valign="top"><table border=1><%
	 End if
   %><tr><td>Ciclo:&nbsp;<%=Cnt%><td><%=oRs1(1)%><%
	 Cnt = Cnt + 1
	 oRs1.MoveNext
Wend
%>

Ahora, despues de que veas que si funciona (ya lo chequé yo ), analízalo encuentrale la lógica, veras que es muy simple adaptarlo a 3 columnas.

Saludos

[armandoweb]

Myakire:

He probado tu código, lo adapté y funcionó, pero luego me di cuenta que me lista con el siguiente formato:

noticia1 | noticia4
noticia2 | noticia5
noticia3 | noticia6

El formato de salida deberia ser el siguiente:

noticia1 | noticia2
noticia3 | noticia4
noticia5 | noticia6

El por qué de esta opción es porque teniendo muchos registros no me mostraría los últimos 6 ingresados en la tabla y también me lista todos y necesito solo los 6 últimos.
Yo se que es demasiado pedir y que me brindaste la solución a un problemón, pero he intentado adaptarlo a estas características y no doy pie con nada....
Si puedes ayudarme Myakire te lo agradeceré muchisimo, sino lo puedes hacer lo entiendo.
Muchisimas gracias por anticipado.
Saludos.

ARIEL.

[mrgubu]

Creo que valdría esto :

Código:

<table>
<tr>
  <% Do While Not rs.EOF %>
  <td><%=rs("campo")%></td>
  <% counter=counter+1
  If counter Mod 2=0 Then Response.Write "</tr><tr>"
  rs.MoveNext
  Loop %>
</tr>
</table>

[Myakire]

¡¡ Mas fácil que la opción anterior !!

Código:

<table border=1>
<%
LimMax = 15 'Puede ser el recordount
for i=1 to LimMax
   if  i MOD 2 <> 0 Then%><tr><% End If
   %><td>Ciclo&nbsp;<%=i%><%
Next
%>
</table>

Recuerda que hay que analizar y comprender las soluciones propuestas, para adaptarlas a nuestras necesidades.

Saludos