Utf-8

[Adler]

Hola

Como sugerencia, podrías usar getrows() en noticias_xml.asp. De esa manera la consulta sería más rápida.

Código asp:

Dim titulo, id, descripcion, fecha
titulo = 0
id = 1
descripcion = 2
fecha = 3
const adTypeBinary = 1
const adSaveCreateOverwrite = 2
const adModeReadWrite = 3
Set objStream = server.CreateObject("ADODB.Stream")
objStream.Open
objStream.CharSet = "UTF-8"
objStream.WriteText("<?xml version=""1.0"" encoding=""UTF-8""?>")
objStream.WriteText("<rss version=""2.0"">")
objStream.WriteText("<channel>")
objStream.WriteText("<title>Título de tu sitio web</title>")
objStream.WriteText("<link>http://www.tusitioweb.com/</link>")
objStream.WriteText("<description>Descripción de tu sitio web.</description>")
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("noticias.mdb")&";"
SQL="SELECT titulo, id, descripcion, fecha FROM entradas ORDER BY id DESC"
rs.Open SQL, oConn
registros = rs.getrows()
rs.close
oConn.close
For i = 0 to UBound(registros,2)
objStream.WriteText("<item>")
objStream.WriteText("<title>"&(registos(titulo,i))&"</title>")
objStream.WriteText("<link>noticias_ver.asp?id="&(registos(id,i))&"</link>")
objStream.WriteText("<description>"&(registos(descripcion,i))&"</description>")
objStream.WriteText("<pubDate>"&(registos(fecha,i))&"</pubDate>")
objStream.WriteText("</item>")
Next 'i
objStream.WriteText("</channel>")
objStream.WriteText("</rss>")
objStream.SaveToFile server.mappath(".") & "/noticias.xml" , adSaveCreateOverWrite
objStream.Close
 
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "noticias.xml"
 

Suerte