visualizar campos de una tabla

[txuk]

Hola.

Tengo una tabla de la que quiero visualizar una serie de campos varias veces. Para ello utilizo un while(hasta q se acabe el select).
Lo que quiero es que solo se visualicen los ultimos 4 por fecha.

El codigo que utilizo es:

sql2= "select titulo,tema,fecha,foto from actividades_area order by fecha desc"
Set rs2 = con.Execute(sql2)

j=1

do while not rs2.eof
if j<5 then
response.Write("<table width='90%' align='center'>")
response.Write("<tr><td class='texto_responsables'><table width='100%'><tr><td align='left' valign='top'>"&rs2("titulo")&"</td><td align='right' valign='top'>"&rs2("fecha")&"</td></tr></table></td></tr>")
response.Write("<tr><td><table width='100%'><tr><td align='left' valign='top'><img src='imagenes/"&rs2("foto")&"' alt='' name='foto' width='130' height='80' id='foto'/></td><td width='3%'></td><td align='left' valign='top' class='texto_actividad'>"&rs2("tema")&"</td></tr></table></td></tr>")

response.Write("<tr><td colspan='2'>")
response.Write("<hr>")
response.Write("</td></tr></table>")
rs2.movenext
j=j+1
end if
loop

lo que me pasa es que me tarda muchisimo en cargar la pagina y al final me da el error:
Páginas Active Server error 'ASP 0113'

Tiempo de espera agotado para la secuencia de comandos


Que hago mal????

Gracias.

[portillo18]

Yo creo que al haber mas campos de los que quieres mostrar se te esta saliendo del limite, es decir te intenta mostrar las fotos, pero al llegar al limite de 5 se para, yo probaria a ponerle un else end loop , o algo así.

Suerte!

[portillo18]

Ahora que me he dado cuenta, prueba a sacar del while lo siguiente:


response.Write("<table width='90%' align='center'>")

y despues pon el while con todo lo demás


Por último cierra la tabla fuera del while loop.


Ya me cuentas saludos!

[txuk]

Hola.

He probado esto ultimo que me cuentas y sigue igual.
Que quieres decir en el primer mensaje que has puesto???

Gracias.

[nruiz]

hola chicos como estan? no se si alguno me puede explicar pero comienzo diciendoles que no se nada nada de asp...necesito hacer una aplicacion que permita a los usuarios registrarse para ingresar y no tengo ni idea de como hacerlo en asp...y menos se cono realizar la conexion a la base de datos...sos auxilio

[Myakire]

A ver, el problema del error es por esto:

Código:

do while not rs2.eof
  if j<5 then
     rs2.movenext
     j=j+1
  end if
loop

i=1 -> Entra (hace moveNext e incrementas i ahora es 2)
i=2 -> Entra (hace moveNext e incrementas i ahora es 3)
i=3 -> Entra (hace moveNext e incrementas i ahora es 4)
i=4 -> Entra (hace moveNext e incrementas i ahora es 5)
ya no entra, ya no haces moveNext y tu programa queda en un ciclo infinito (por eso el error) por que nunca alcanzas el EOF

Eso se llama prueba de escritorio

[Lebennin]

Tambien tienes la posibilidad de utilizar la siguiente consulta

sql2= "select top 4 titulo,tema,fecha,foto from actividades_area order by fecha desc"

De esta forma no tienes que preguntar por la variable j, sino que directamente recorres el recordset.

Un saludo.

[txuk]

hola lebennin.

poniendo lo que tu has dicho me sale este error:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 3.51 Driver][mysqld-4.1.20]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '4 titulo,tema,fecha,foto from actividades_area order by fecha desc' at line 1

[Myakire]

El TOP 4 no funciona por que él quiere los 4 primeros de cada fecha, no solo los 4 primeros de la consulta (aparte que en MySQL no es TOP, sino LIMIT).

Necesita agruparlos u ordenarlos por fecha y luego leer hasta que la fecha_anterior sea diferente a la fecha actual o mientras el número de registros leídos sea menor o igual a 4.

El algoritmo simple y sin optimizar sería algo como esto:

Código:

rs.open "query", conn
fecha_anterior = rs("fecha")
Cnt=0
while not rs.eof 
   if Cnt <= 4 and fecha_anterior = rs("fecha") Then 
	    response.write "lo que ocupes"
	 Else
	    cnt = cnt + 1 
	 End if
   rs.movenext
	 if Not rs.eof Then 
      if Fecha_Anterior <> Fecha Then
         fecha_anterior = rs("fecha")     
         Cnt=0
	    End if
	 End if 
wend

La idea es esa

[txuk]

Eso no es lo que quiero yo. Haber si me explico mejor.
Tengo por ejemplo 20 actividades. Lo de la fecha mas que nada es para tenerlos ordenados. Quiero sacar de esos 20 solo 4 (los 4 mas cercanos a la fecha actual).

Por eso no entiendo que metas el campo fecha en las comparaciones, haciendo un order by en la select ya me lo ordena y solo quiero coger las 4 primeras filas de la select.

Gracias.

[txuk]

La idea no sería algo asi, me saca las 4 filas solo que al final me pone:
Microsoft OLE DB Provider for ODBC Drivers error '80040e24'

El conjunto de filas no admite recuperación hacia atrás.



j=1

do while not rs2.eof
if j>4 then
rs2.movelast
else
response.Write("<table width='90%' align='center'>")
response.Write("<tr><td class='texto_responsables'><table width='100%'><tr><td align='left' valign='top'>"&rs2("titulo")&"</td><td align='right' valign='top'>"&rs2("fecha")&"</td></tr></table></td></tr>")
response.Write("<tr><td><table width='100%'><tr><td align='left' valign='top'><img src='imagenes/"&rs2("foto")&"' alt='' name='foto' width='130' height='80' id='foto'/></td><td width='3%'></td><td align='left' valign='top' class='texto_actividad'>"&rs2("tema")&"</td></tr></table></td></tr>")

response.Write("<tr><td colspan='2'>")
response.Write("<hr>")
response.Write("</td></tr></table>")
j=j+1
end if
rs2.movenext

loop

[i_e_s27]

En ese ultimo codigo que posteaste... y si en vez de rs2.movelast pones un Exit Do?

[txuk]

Ya esta.

Muchas gracias a tod@s.

[Myakire]

Que bueno que ya salió, solo como consejo para futuras consultas, hay que poner atención a los mensajes donde solicitas ayuda ya que si están redactados de forma incorrecta y/o imprecisa obtendrás soluciones que no te son útiles:

...Lo que quiero es que solo se visualicen los ultimos 4 por fecha

Saludos y hasta la próxima

[i_e_s27]

Jajaja, capaz que el tipo queria saber las dos cosas: Los ultimos 4 y los primeros 4, por eso abrio dos post jajaja