Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá Pessoal.
Tenho um portal e estou querendo colocar uma página de notícias que puxa um RSS de outro portal. Até aí tudo bem, conseguir configurar as 2 páginas e ela está recebendo o RSS normal, mas não estou conseguindo alterar a fonte e as cores dessas notícias, elas ficam com o link em azul padrão e fonte Times, saindo totalmente fora do padrão de meu portal.
Será que alguém sabe como que faço para alterar isso??
Vou postar abaixo o código da página de notícias e o da página RSS
RSS
ASP
<%' Script ASP Para leitura de arquivos de RSS.
url = "http://maplink.p.rss.uol.com.br/rss/noticiasmaplink.xml" 'Aqui vai o endereço do arquivo RSS, ou do arquivo "gerador"
' Criando Objeto XML
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
' Não validar o arquivo
objXML.validateOnParse =false' true
' Retirar espaços
objXML.preserveWhiteSpace = false
blnLoaded = objXML.Load(url)
If Not blnLoaded Then
Response.write "Nenhum notícia na fonte!"
Else
set objNodeList = objXML.getElementsByTagName("channel")
For Each objNode In objNodeList
For Each objNode2 In objNode.childNodes
Select Case objNode2.nodeName
Case "title"
html = html &"<tr><td><b>"
html = html &objNode2.firstChild.nodevalue
html = html &"</b></td></tr>"
Case "link"
html = html &"<tr><td><a target=_blank href="& objNode2.firstChild.nodevalue &">"
html = html & objNode2.firstChild.nodevalue
html = html &"</a></td></tr>"
Case "description" 'Está desabilitado para exibir apenas os links
html = html &"<tr><td><i>"
html = html & objNode2.firstChild.nodevalue
html = html &"</i></td></tr>"
End Select
Next
Next
html = html &"<tr><td><hr></td></tr>"
Set objNodeList = objXML.getElementsByTagName("item")
For Each objNode In objNodeList
For Each objNode2 In objNode.childNodes
Select Case objNode2.nodeName
Case "title"
strTitle = objNode2.firstChild.nodevalue
Case "link"
strURL = objNode2.firstChild.nodevalue
Case "description"
strDescription = objNode2.firstChild.nodevalue
End Select
Next
html = html &"<tr><td><li/><b><a target=_blank href="& strURL &">"& strTitle &"</a></b><br>"& strDescription &"</td></tr>"
strTitle = ""
strURL = ""
strDescription = ""
Next
html = "<table>"& html &"</table>"
set objNodeList = NothingEnd if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<body><%
Response.write (html)
%>
</body>
</html>Notícias
[url="http-~~-//december.com/html/4/element/td.html"]<td[/url] width="800" height="1000" valign="top">[url="http-~~-//december.com/html/4/element/iframe.html"]<iframe[/url] width="500" height="300" src="rss.asp" class="style2" id="noticias"></iframe>
valeu galera
Carregando comentários...