Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Catei um sistema de noticia na net e estou estudando-o pra desenvolver um pra mim.
A noticias estão sendo exibidas assim:
TOPICO (seria o titulo da noticia)
RESUMO - DATA
Exemplo:
MICHAEL JACKSON MORREU
Acabou de morrer nos Estados Unidos o maior pop da musica brab bra - 12/07/2009
LULA DECLARA SER BURRO
O presidente Lula acaba de declara o que todo mundo já sabia - 12/07/2009
A MICROSOFT DOU 1 BI
Essa foi a pior das mentiras rs rs rs - 13/07/2009
Eu gostaria de um espaço antes de cada titulo (TOPICO)... Ficaria assim:
MICHAEL JACKSON MORREU
Acabou de morrer nos Estados Unidos o maior pop da musica brab bra - 12/07/2009
LULA DECLARA SER BURRO
O presidente Lula acaba de declara o que todo mundo já sabia - 12/07/2009
A MICROSOFT DOU 1 BI
Essa foi a pior das mentiras rs rs rs - 13/07/2009
Segue o código:
<div id="Layer2" style="position:absolute; width:286px; height:304px; z-index:2; left: 229px; top: 51px;"><font face="Arial"><span style="font-size:8pt;">
<%
Set nt1 = Server.CreateObject("ADODB.Recordset")
nt1.Open "SELECT * from noticias order by id desc", DB
Contar = 0
Do while not nt1.Eof
Topico = nt1("Topico")
Resumo = nt1("Resumo")
Classe1 = nt1("Classe1")
Classe = nt1("Classe")
Data = nt1("Data")
Horas = nt1("Horas")
id = nt1("id")
IF Contar > 3 Then
exit do
end if
if Classe1 = "Local" Then
%>
</span></font><a href='mostra.asp?noticias=<%=nt1("id")%>&Classe=<%Response.Write Classe%>'>
<font face="Arial" bold=true color="red"> <span style="font-size:10pt;"> <strong>
<%Response.Write Topico%>
</strong> </span></font><font face="Arial"> <br>
<font face="Arial" color="black"> <span style="font-size:8pt;">-
<%Response.Write Resumo%>
</span></font> <font face="Arial" bold=true color="silver"> <span style="font-size:8pt;">
-
<%Response.Write Data%>
</span></font></font></a> <font face="Arial"><span style="font-size:8pt;"><br>
<%
Contar = Contar + 1
end if
nt1.Movenext
Loop
%>Carregando comentários...