Penultimo registro

[btopalacios]

gracias JuanRAPerez, hice estas modificaciones y me funciono muy bien

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

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