Foros del Web » Programando para Internet » ASP Clásico »

Penultimo registro

Estas en el tema de Penultimo registro en el foro de ASP Clásico en Foros del Web. Hola he estado leiendo los post sobre este tema y no he podido hacer que me funcione. estoy haciendo un pequeño sistema de noticias con ...
  #1 (permalink)  
Antiguo 15/12/2008, 16:43
 
Fecha de Ingreso: octubre-2008
Mensajes: 19
Antigüedad: 15 años, 7 meses
Puntos: 0
Penultimo registro

Hola he estado leiendo los post sobre este tema y no he podido hacer que me funcione.

estoy haciendo un pequeño sistema de noticias con asp y access

noticia 10 28/11/2008
noticia 9 17/11/2008
noticia 8 27/11/2008
noticia 7 28/11/2008

quiero que la noticia 10, despliegue una pequeña intruduccion y un listado a partir de la

noticia 7 28/11/2008
noticia 8 27/11/2008
noticia 9 17/11/2008

esto es lo que tengo hasta el momento pero solo me hace un listado de las ultimas tres me a comoda asi

noticia 10
noticia 7
mpticia 8

Código:
select top 3 * from (select top 3 * from tbl_actividad where actividad_activa = 1 order by actividad_id desc) order by actividad_fecha desc
yo necesite que inicie en el penultimo registro por fecha

alguien puede ayudar me.
  #2 (permalink)  
Antiguo 15/12/2008, 18:17
Avatar de JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 20 años, 7 meses
Puntos: 27
Respuesta: Penultimo registro

claro solo ellas están en el query


10 5 con detalle 5 sin


Código asp:
Ver original
  1. sql = "select top 10 * from tutabla order by algunafecha desc"
  2. 'ejecuto sql
  3. 'creo rs
  4. contador = 0
  5. 'inicio ciclo cuando rs no sea final o este vació
  6. response.write rs("titulo")
  7. if contador <= 5 then
  8.      response.write ("copete")
  9. end if
  10. contador = contador + 1
  11. 'me muevo en el registro

suerte
__________________
JuanRa Pérez
San Salvador, El Salvador
  #3 (permalink)  
Antiguo 15/12/2008, 19:35
 
Fecha de Ingreso: octubre-2008
Mensajes: 19
Antigüedad: 15 años, 7 meses
Puntos: 0
Respuesta: Penultimo registro

gracias JuanRAPerez, hice estas modificaciones y me funciono muy bien

no se si tenga codigo de mas y puedas decirme que quitar o poner.

Cita:
Dim rsDatos, contador

Set rsDatos = Connect.Execute ("select top 5 * from tbl_actividad order by actividad_fecha desc")

response.write "<div id='navcontainer'>"
response.write "<ul id='navlist'>"
contador = 0
if not rsDatos.EOF then
rsDatos.MoveFirst
do while not rsDatos.EOF
if contador = 0 then
response.write ("<span class='fechanewshome'>"& rsDatos("actividad_fecha") &"</span><br><span class='headernewshome'>"& rsDatos("actividad_titulo") &"</span><br><br><span class='cuerpotxt'>"& mid( rsDatos("actividad_detalle"),1,180) & "... " &"&nbsp;<a href='actividades.asp?actividadID="& rsDatos("actividad_id") &"&mes="& Month(rsDatos("actividad_fecha")) &"' id='current' class='linknormal'><strong><small>Leer&nbsp;m&aacu te;s<br></small></strong></a></span><li class='linea'>noticias anteriores</li>")
else
response.write "<li id='active'><a href='actividades.asp?actividadID="& rsDatos("actividad_id") &"&mes="& Month(rsDatos("actividad_fecha")) &"' id='current'>"& rsDatos("actividad_titulo")&"</a></li>"
end if
contador = contador + 1
rsDatos.moveNext
loop
response.write "</ul></div>"
rsDatos.close()
else
response.write "<table width='100%' cellpadding=5 border=0>"
response.write "<tr><td class=titulo>&nbsp;</td></tr>"
response.write "<tr valign='top'><td class=listado_directorio>NO SE ENCONTRARON RESULTADOS</td></tr>"
response.Write "</table>"
end if
estoy muy agradecido

Última edición por btopalacios; 15/12/2008 a las 19:41
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:15.