2 replies to this topic

[Makerup]

olá,

como posso mostrar so a ultima noticia do BD numa celula??

e em outra a penultima e em outra a antipenultima.


celulas separadas.. e distante uma da outra.. eu estou usando código abaixo, mais ele seleciona as tres ultimas em um só lugar.

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("/noticias/bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

sql = "SELECT TOP 3 * FROM NOTICIAS ORDER BY DATA DESC;"
Set objrs = ObjConn.Execute(sql)

If Not objrs.eof then
Do While Not objrs.eof
response.write "<a href='ver_noticia.asp?id="&objrs("id")&"'>"&objrs("data")&" - "&objrs("titulo")&"</a>"

objrs.movenext
Loop
Else
response.write "Nenhuma notícia encontrada"
End if
%>

alguem pode ajudar?

[luckynho]

Aonde ele esta dando o response.white, cria uma tabela antes que ele faz o loop sozinho já.

Acho que é assim ou é algo parecido, testa ai q ve no que dá..


response.white "<table>"
response.white "<tr>"
response.white "<td><a href='ver_noticia.asp?id="&objrs("id")&"'>"&objrs("data")&" - "&objrs("titulo")&"</a></td>"
response.white "</tr>"
response.white "</table>"

[Agente Linhares]

se entendi direito, so vc ao inves de puxar as 3 ultimaspuxar a ultima:


sql = "SELECT TOP 1 * FROM NOTICIAS ORDER BY DATA DESC;"

ou


sql = "SELECT TOP 1 * FROM NOTICIAS ORDER BY id DESC;"