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.