Hola, monte este y funciona OK 100%
Código:
<%
const adTypeBinary = 1
const adSaveCreateOverwrite = 2
const adModeReadWrite = 3
Set objStream = server.CreateObject("ADODB.Stream")
objStream.Open
objStream.CharSet = "UTF-8"
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("datos/noticias.mdb")&";"
SQL="SELECT TOP 1 * FROM entradas ORDER BY id DESC"
rs.Open SQL, oConn
objStream.WriteText("<?xml version=""1.0"" encoding=""UTF-8""?>")
objStream.WriteText("<rss version=""2.0"">")
objStream.WriteText("<channel>")
objStream.WriteText("<title>www.MFO.com.es</title>")
objStream.WriteText("<link>http://www.mfo.com.es/</link>")
objStream.WriteText("<description>Ordenando la web hacia su máxima potencia, proyectado por Miguel Fernández Oviedo.</description>")
objStream.WriteText("<language>es-es</language>")
objStream.WriteText("<webMaster>[email protected] (Miguel Fernández Oviedo)</webMaster>")
objStream.WriteText("<lastBuildDate>"&(rs("pubDate"))&"</lastBuildDate>")
rs.close
oConn.close
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("datos/noticias.mdb")&";"
SQL="SELECT * FROM entradas ORDER BY id DESC"
rs.Open SQL, oConn
do while not rs.eof
objStream.WriteText("<item>")
objStream.WriteText("<title>"&(rs("titulo"))&"</title>")
objStream.WriteText("<link>http://www.mfo.com.es/noticias_ver.asp?id="&(rs("id"))&"</link>")
objStream.WriteText("<description>"&(rs("subtitulo"))&"</description>")
objStream.WriteText("<comments>http://www.mfo.com.es/noticias_ver.asp?id="&(rs("id"))&"#comentarios</comments>")
objStream.WriteText("<pubDate>"&(rs("pubDate"))&"</pubDate>")
objStream.WriteText("</item>")
rs.movenext
loop
objStream.WriteText("</channel>")
objStream.WriteText("</rss>")
objStream.SaveToFile server.mappath(".") & "/noticias.xml" , adSaveCreateOverWrite
rs.close
oConn.close
objStream.Close
%>
<%
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "noticias.xml"
%>
Muchas gracias a tod@s. Miguel
PD: Cuando me sea posible lo pondre en mi web bien explicado.