<%
Set nt1 = Server.CreateObject("ADODB.Recordset")
nt1.Open "SELECT * from noticias order by id desc", DB
Contar = 0
Do while not nt1.Eof
tópico = nt1("tópico")
Resumo = nt1("Resumo")
Classe1 = nt1("Classe1")
Classe = nt1("Classe")
Horas = nt1("Horas")
id = nt1("id")
IF Contar > 0 Then
exit do
end if
if Classe1 = "Destaque" Then
%>
<p align="left" style="margin-top: 0; margin-bottom: 0">
<a target="conteudo" href='Mostra.asp?Noticias=<%=nt1("id")%>&Classe=<%=nt1("classe")%>'>
<img src="<%=nt1("foto")%>" width="189" height="158" border="1">
<font face="Arial" color="red" style="font-size:8pt;"><strong><%Response.Write tópico%></strong></font><br>
<font face="Arial" color="black" style="font-size:6pt;"><strong><%Response.Write Resumo%></strong></font></p></a>
<%
Contar = Contar + 1
end if
nt1.Movenext
Loop
%>
Esse código é de um site de noticias q to fazendo...
a ideia é mostrar uma Imagem e logo abaixo o Titulo da noticias e um resumo do texto... a se a pessoa clica em cima levará a materia na integra.
Está funcionando!
O que quero então?
Ele trocar a noticia de tanto em tanto segundos... ficar reversando entras as ultimas 5 noticias...
Exemplo:
Aparece a foto/tópico/Resumo da ultima noticia... passa 10segundos... ele muda a foto/tópico/Resumo da penultima noticia... assim sucessivamente até 5 noticias... depois ele volta pra ultima novamente e recomeça o loop.
Obs: somente será mostrado noticias que o campo Classe1 = "Destaque" e que o campo Foto<>""
Editado por WEBIER Remover caixa alta do título e adcionar tag's (Jonathan)
Pergunta
WEBIER
possuo o seguinte codigo:
Esse código é de um site de noticias q to fazendo...
a ideia é mostrar uma Imagem e logo abaixo o Titulo da noticias e um resumo do texto... a se a pessoa clica em cima levará a materia na integra.
Está funcionando!
O que quero então?
Ele trocar a noticia de tanto em tanto segundos... ficar reversando entras as ultimas 5 noticias...
Exemplo:
Aparece a foto/tópico/Resumo da ultima noticia... passa 10segundos... ele muda a foto/tópico/Resumo da penultima noticia... assim sucessivamente até 5 noticias... depois ele volta pra ultima novamente e recomeça o loop.
Obs: somente será mostrado noticias que o campo Classe1 = "Destaque" e que o campo Foto<>""
Editado por WEBIERRemover caixa alta do título e adcionar tag's (Jonathan)
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.