Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Listando topicos das noticias numa pagina buscando no bd


wsales

Pergunta

Ai galera peguei o sistema de noticias do Cido Silva uma massa mas to querendo que uma página liste todas as últimas noticias , independente da classe tipo assim:

Esportes

A copa 2010 esta chegando e a africa esta muito otimista

Internacional

Alqueda ameaça com bombas seleciones do mundo

Nacional

Chuvas do rio fazemos muitas vitimas.

Estava adptando o codigo abaixo mas não to conseguindo alguém pode dá uma mão ai??

<% @Language = VBScript %><%session.LCID=1046%>

<%strNoticias = Request.QueryString("Noticias")

if strNoticias <> "" then

stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("dados/dados.mdb")

Set RsConexao = Server.CreateObject("ADODB.Connection")

RsConexao.Open stringConexao

strSQL = "SELECT * FROM Noticias WHERE Noticia LIKE '%"& Noticias &"%'"

Set RS = RsConexao.Execute(strSQL) %>

<!-- desenvolvido pelo Cido Silva - -->

<STYLE type=text/css>BODY {

SCROLLBAR-FACE-COLOR: #f8f8f8; SCROLLBAR-HIGHLIGHT-COLOR: #1E7BEF; SCROLLBAR-SHADOW-COLOR: #1E7BEF; SCROLLBAR-3DLIGHT-COLOR: #fcfcfc; SCROLLBAR-ARROW-COLOR: #1E7BEF; SCROLLBAR-TRACK-COLOR: #fcfcfc; SCROLLBAR-DARKSHADOW-COLOR: #fdf5e3

}

.style5 {

FONT-WEIGHT: bold; FONT-SIZE: 10px; FONT-FAMILY: Tahoma, Verdana, Arial

}

</STYLE>

</STYLE>

<STYLE>

A:link { Color:#4BA0F7 ;TEXT-DECORATION: none }

A:visited { Color:#4BA0F7 ;TEXT-DECORATION: none }

A:active { Color:#4BA0F7 ;TEXT-DECORATION: none }

A:hover { Color:#FF0000 ;TEXT-DECORATION: underline; background-color:yellow }

</STYLE>

<meta name="generator" content="Namo WebEditor v5.0">

<body bgcolor="white" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">

<table align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="749"> <p></p>

</td>

</tr>

</table>

<table align="center" cellpadding="0" cellspacing="0" width="635">

<tr>

<td width="125" valign="top" height="39">

</td>

<td width="510" valign="top" height="39"> <p align="center"><font face="Arial Black" color="red">

</font><p>

<font face="Arial"><span style="font-size:10pt;"><%While not RS.EOF

response.write "" & RS("Classe") & "<BR>"

response.write ("<a href=""Mostra.asp?Noticias=" & RS("ID") & "&classe=" & RS("Classe1") & """>" & RS("tópico") & "</a>") & "<BR><BR>"

RS.MoveNext

Wend

end if

%> </span></font></p>

</td>

</tr>

</table>

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...