HOlaaa,
alguién sabe como puedo definirle los items, a un lector de rss en asp, ya que en el div , me los muestra todos!!
dejo el código y ojalá puedan ayudarme, ya uqe me tiene ultra chato =/
<%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("el xml")
Dim xmlhttp
dim proxyip
dim proxyport
dim proxyuser
dim proxypassword
dim timeout
dim url
dim strrespuesta
proxyip="10.200.251.5" ' se establece la ip del proxy
proxyport="8080" ' se establece el puerto del proxy
proxyuser="" ' se estable el user del proxy (de ser necesario)
proxypassword="" ' se estable el password del proxy (de ser necesario)
timeout=10 ' se estable el tiempo de espera de la solicitud
strrespuesta=""
url= "el xml"
set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP.6.0") 'se crea el objeto
xmlhttp.Open "get",url,false ' se establece el metodo
if proxyip<>"" then ' si la variable tiene datos se le asigna al objeto xmlhttp ip de proxy y puerto
urlproxy=proxyip & ":" & proxyport
xmlhttp.setProxy 2,urlproxy
if proxyuser <>"" then ' si la variable tiene datos se establecen la credenciales al objeto xmlhttp
xmlhttp.setProxyCredentials proxyuser,proxypassword
end if
end if
xmlhttp.send ' se ejecuta la solicitud
if xmlhttp.readystate<>4 then
xmlhttp.waitforresponse int(timeout)
end if
if xmlhttp.status=200 then 'si la respuesta de la solicitud esta OK
strrespuesta=xmlhttp.responseXML.xml ' asigno el xml de la respuesta
response.ContentType="text/html"
objXML.LoadXML(strrespuesta)
'OBTENEMOS TODOS LOS ITEM
Set objItemList = objXML.getElementsByTagName("item")
'response.write (objItemList.length-1)
for i=0 to objItemList.length-1%>
<p class="fecha_rss"><%response.write (objItemList(i).selectSingleNode("pubDate").text)% ></p>
<p class="titulo_rss"><a href="<%response.write (objItemList(i).selectSingleNode("link").text)%>" target="_blank">
<%response.write (objItemList(i).selectSingleNode("title").text)%></a></p>
<h6> <%response.write (objItemList(i).selectSingleNode("description").te xt)%></h6>
<%maxItem=maxItem+1
Next
Set objXML = Nothing
else
response.Write ("No se pudo establecer la comunicación" & "<br/>")
response.Write("ERROR: " & xmlhttp.status & "<br/>")
response.Write("Descripción: " & xmlhttp.statusText & "<br/>")
end if
set xmlhttp=nothing
%>
