"&vbcrlf
Response.Charset = "iso-8859-1"
Dim objXML
Dim objItemList
Dim objItem
Dim strHTML
Set objXML = CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://www.abc.es/blogs/eurovision2008/feedrss.asp")
Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing
contaaux=0
iTotalItems = objItemList.length - 1
Do While (contaaux<5)
Set objItem = objItemList.item(contaaux)
TituloRSS = objItem.childNodes(0).text
LinkRSS = objItem.childNodes(2).text
'DescripcionRSS = objItem.childNodes(2).text
FechaRSS = objItem.childNodes(4).text
AutorRSS = ""
cadena=split(Fecharss,"T")
FECHAAUX=Split(cadena(0),"-")
cadenamodulo=cadenamodulo&"
"&vbcrlf
cadenamodulo=cadenamodulo&"
" & Fechaaux(2)&"-"& Fechaaux(1)&"-"&Fechaaux(0)&"
"&Replace(cadena(1),"+01:00","")& "
"&vbcrlf
cadenamodulo=cadenamodulo&"
"&AutorRSS&"
"&vbcrlf
cadenamodulo=cadenamodulo&"
"&vbcrlf
contaaux=contaaux+1
Loop
Set objItemList = Nothing
cadenamodulo=cadenamodulo&"