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 &"%'"
Pergunta
wsales
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