Feed de noticias

[Artepop]

Hola, estoy haciendo este feed de noticias: http://www.mfo.com.es/noticias.xml

¿ Esta bien ?

Las noticias las tengo en una base de datos Access y las muestro en http://www.mfo.com.es/noticias.asp

¿Como puedo hacer para imprimirlas, en el momento de crear una nueva noticia en la base de datos, en el XML?

[Panino5001]

Pues no es necesario que la extensión sea xml, puede ser asp. Lo importante es el formato y que el content-type sea text/xml. De manera que, o generás un nuevo archivo con extensión .xml cada vez que subís o modificás algo en la base de datos, o hacés que to rss se sirva directamente a partir de un archivo asp dinámico que consulte a la base de datos.

[Artepop]

Tengo este script asp:

Código:

<%OPTION EXPLICIT%>

<%
dim cuantos
dim muestra
dim conexion
dim sql
dim archivo_creado
dim fso
dim archivo
dim rs
dim basedatos
cuantos=0
muestra = 100
archivo_creado= "noticias.xml"
basedatos = "datos/noticias.mdb"
set conexion=Server.CreateObject("ADODB.connection")
conexion.provider="Microsoft.Jet.OLEDB.4.0;"
conexion.open server.mappath(basedatos)
sql="select * from entradas order by id desc"
set fso = createobject("scripting.filesystemobject")
Set archivo = fso.CreateTextFile(server.mappath(archivo_creado), true)
set rs=conexion.Execute(sql)
archivo.WriteLine("<?xml version=""1.0"" encoding=""UTF-8""?>")
archivo.WriteLine("<rss version=""2.0"">")
archivo.WriteLine("<channel>")
archivo.WriteLine("<title>www.MFO.com.es</title>")
archivo.WriteLine("<link>http://www.mfo.com.es/noticias-xml.asp</link>")
archivo.WriteLine("<description>Ordenando la web hacia su máxima potencia, proyectado por Miguel Fernández Oviedo.</description>")
do while not rs.EOF and cuantos < muestra
archivo.WriteLine("<item>")
archivo.WriteLine("<title>"&rs("titulo")&"</title>")
archivo.WriteLine("<link>http://www.mfo.com.es/noticias_ver.asp?id="&rs("id")&"</link>")
archivo.WriteLine("<description>"&rs("subtitulo")&"</description>")
archivo.WriteLine("</item>")
rs.MoveNext()
cuantos=cuantos+1
loop
rs.close()
conexion.close()
archivo.WriteLine("</channel>")
archivo.WriteLine("</rss>")
archivo.close
%>

<%
Response.Write "<meta http-equiv=refresh content=0;URL=noticias.xml>"
%>

Entra en la base de datos, recoge las entradas y crea el XML, despues redirige al archivo creado. Hasta ahi todo perfecto, pero necesito poner en el script una orden para que el archivo lo cree (Guarde) en codificacion UTF-8. Solo me falta eso. Lo hago manual con el archivo ya creado por el script y funciona bien pero necesito que lo haga el script.

[Panino5001]

Creo que te convendría reportar el mensaje para que un moderador lo mueva a asp, donde te ayudarán mejor con eso (lamentablemente, no manejo asp, por eso no puedo ayudarte).

[Artepop]

Lo posteo aqui: http://www.forosdelweb.com/f15/utf-8-a-688648/