Lector rss con asp Hola , tengo un problema que me tiene bastante rirritado,
soy nuevo en asp y me tira un error cuando trato de citar un xml de una web externa.
Error: System error: -2147012889.
Linea: 0
Texto:
CODIGO ASP
<%Response.Charset = "iso-8859-1"
Dim objXML
Dim objItemList
Dim objItem
Dim strHTML
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocumen t")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load("AQUI VA EL XML")
If objXML.parseError.errorCode <> 0 Then
Response.Write "<pre>" & vbCrLf
Response.Write "<strong>Error:</strong> " & objXML.parseError.reason
Response.Write "<strong>Linea:</strong> " & objXML.parseError.line & vbCrLf
Response.Write "<strong>Texto:</strong> " & Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
Response.Write "</pre>" & vbCrLf
End If
'OBTENEMOS TODOS LOS ITEM
Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing
%>
CODIGO DENTRO DEL DIV DONDE QUIERO QUE VALLA LA NOTICIA
maxItem=1
For Each objItem In objItemList
'OBTENEMOS LOS DISTINTOS NODOS
if maxItem <=4 then
TituloRSS = objItem.childNodes(0).text
LinkRSS = objItem.childNodes(1).text
DescripcionRSS = objItem.childNodes(2).text
FechaRSS = objItem.childNodes(3).text
%><a style="background: rgb(204, 204, 204) none repeat scroll 0% 0%; color: rgb(102, 102, 102); -moz-background-clip: border; -moz-background-origin: padding; -moz-background-inline-policy: continuous;" href="#" class="box_title activeButton"><h2><% Response.write(TituloRSS & " " & FechaRSS)%></h2></a><%
for i=1 to len(DescripcionRSS) step 1
if mid(descripcionRSS,i,1)=">" and j<3 then
j=j+1
t=i
end if
Next
%><div style="overflow: hidden; height: 0px; visibility: hidden; opacity: 0;" class="information">
<p><%Response.Write (mid(DescripcionRSS,t+1,len(DescripcionRSS)))
Response.Write ("<br><a href=""" & LinkRSS & """ target= ""_blank""> leer más...</a>" & "</p>")
Response.write("</div>")
end if
maxItem=maxItem+1
Next
Set objItemList = Nothing
Application.Lock
Application("LectorRSSContenido") = strHTML
Application("LectorRSSActualizado") = Now()
Application.UnLock
%>
LO EXTRAÑO DE ESTO ES QUE LO PROBE EN MI CASA, Y FUNCIONA PERO ACA EN LOS SERVIDORES DE MI TRABAJO, NOO
ayudaaaaaaaa garciaas :(
