Hola a todos!!!
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
%>
Y el que lee el xml en el formato que lo presento es:
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
%> Nose si he comenzado bien.
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!!!