Empecé hacer un rss, pero tengo bastantes dudas. Estuve buscando y creo que lo esencial lo tengo, no se seguro. Tengo 2 archivos asp. Uno que crea el xml y el otro lo lee. Ahora bien ya nose como continuar, tengo un poco de lio. Esque he visto que se puede leer en móviles, web y correo. ¿cómo se hace esto?
Estos son los códigos de los archivos:
newrss.asp:
Código HTML:
<!--#INCLUDE FILE="inc_conecnew.asp" --> <% 'muestro los últimos 15 campos de la tabla noticias ordenado por la fecha strSql ="select top 15 Idd,fecha,titulo from noticias Order by fecha desc" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSql, my_Conn, 3 ' Numero total de noticias Dim NumNews NumNews = rs.RecordCount ' tipo de archivo XML response.ContentType="text/xml" 'Creo el documento XML 'especifico el titulo, la fecha y el link de la noticia response.write "<?xml version=""1.0"" encoding=""ISO-8859-1""?>" response.write "<rss version=""0.91""><channel>" response.write "<title>Noticias de comercio internacional</title>" response.write "<description>Noticias de comercio internacional</description>" response.write "<language>es</language>" if NOT NumNews = 0 then 'Lanzo el ciclo de las noticias 'Se creo una estructura en xml con las noticias. Do while not rs.eof response.write "<item>" response.write "<title>" & server.HTMLEncode (Rs("titulo") ) & "</title>" response.write "<description>" & server.HTMLEncode (Rs("titulo") ) & "</description>" response.Write "<pubDate>" & Rs("fecha") & "</pubDate>" response.write "<link>http://www.../conte/"& Rs("Idd") &".asp</link>" response.write "</item>" rs.movenext Loop End if 'termino el XML response.write "</channel></rss>" 'cierro rs.close set rs=nothing my_Conn.Close set my_Conn=nothing %>
readrss.asp (os pongo el código asp, esto lo tengo dentro de una tabla y demás)
Código HTML:
<%
Dim objXML
Dim objItemList
Dim objItem
Dim strHTML
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://www....com/conte/newrss.asp")
'si hay algún error
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
For Each objItem In objItemList
'OBTENEMOS LOS DISTINTOS NODOS
TituloRSS = objItem.childNodes(0).text
DescripcionRSS = objItem.childNodes(1).text
FechaRSS = objItem.childNodes(2).text
LinkRSS = objItem.childNodes(3).text
Response.Write ("<span class=""titulo_rss""><a href='" & LinkRSS & "'>" & server.HTMLEncode(TituloRSS) & "</a></br></span>")
Response.Write ("<span class=""fecha_rss"">(" & FechaRSS & ")<br></span>")
'Response.Write ("<span class=""descripcion_rss"">" & DescripcionRSS & "</span>")
Next
Set objItemList = Nothing
Application.Lock
Application("LectorRSSContenido") = strHTML
Application("LectorRSSActualizado") = Now()
Application.UnLock
%> Pero ahora ya nose como continuar. Esta miando en páginas que tenian rss, pero sale el código xml, como se podría ver o mandar a otra web para que vea tus rss??? Estoy muy pérdida y liada.
Gracias!!!
