Nesta coluna vamos aprender a colocar notícias em nosso site através de um XML especificado no código com a escolha do tema a ser exibido.

Com isso seu site ficará atualizado com as notícias do dia-dia.



' Script ASP Para leitura de arquivos de RSS.
url = "http://www.euquerotrabalharnogoogle.com/feed/" '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

' Retirar espaços
objXML.preserveWhiteSpace = false

blnLoaded = objXML.Load(url)


'Condição caso não tenha notícias no RSS
If Not blnLoaded Then

Response.write "Nenhuma 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"
'Define Propriedades do Titulo
html = html &""
html = html &objNode2.firstChild.nodevalue
html = html &"
"

Case "link"
'Define Propriedades do link
html = html &""
html = html & objNode2.firstChild.nodevalue
html = html &"
"

Case "description"
'Está desabilitado para exibir apenas os links
html = html &""
html = html & objNode2.firstChild.nodevalue
html = html &""
End Select
Next
Next

html = html &""

Set objNodeList = objXML.getElementsByTagName("item")

contador = 0
For Each objNode In objNodeList

'Definindo quantidade de notícias que será exibida
if contador < 5 then
contador = contador + 1

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 &"
"& strTitle &"
"& strDescription &""
strTitle = ""
strURL = ""
strDescription = ""
End if

Next

'Variável onde gardamos o conteúdo do RSS
html = "

"& html &"

"
set objNodeList = Nothing
End if
%>








<%
'Exibindo notícias do RSS escolhido
Response.write (html)
%>



Vocês podem alterar o XML para um especifico, aconselho usar do site da Folha. No caso eu utilizei o da Folha Online informática, mas fiquem a vontade.

Simples né?

Qualquer dúvida entre em contato comigo deixando um comentário.

Abraços!


Alexandre de Luccia