EXIBICAO DE REGISTRO POR TEMPO

<%
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
%>