<% OPTION EXPLICIT %>
<%
'declaramos las variables
dim cuantos
dim muestra
dim conexion
dim sql
dim archivo_creado
dim fso
dim archivo
dim rs
dim basedatos
'final declaracion de variables
cuantos=0 ' iniciamos un contador
muestra = 20 'cuantos vamos a mostrar
archivo_creado= "urls.xml" 'nombre del archivo
basedatos = "urls.mdb" 'base de datos
set conexion=Server.CreateObject("ADODB.connection") 'conexion a la base de datos
conexion.provider="Microsoft.Jet.OLEDB.4.0;" 'tipo base de datos
conexion.open server.mappath(basedatos) ' abrimos la BD
sql="select * from urls order by titulo desc" 'hacemos la seleccion
set fso = createobject("scripting.filesystemobject") ' inicio para crear archivo
Set archivo = fso.CreateTextFile(server.mappath(archivo_creado), true) 'creamos el archivo para ser escrito
set rs=conexion.Execute(sql) 'ejecutamos conexion a la base de datos
archivo.WriteLine("<?xml version='1.0' encoding='ISO-8859-1'?>") 'Cabecera del archivo
archivo.WriteLine("<rss version='0.91'>")
archivo.WriteLine("<title>Crear archivo xml - Tutores.org</title>")
archivo.WriteLine("<scripts>")
'Final cabecera y empezamos a mostrar los registro
do while not rs.EOF and cuantos < muestra
archivo.WriteLine("<Script>")
archivo.WriteLine("<Titulo>" & rs("titulo") & "</Titulo>")
archivo.WriteLine("<Descripcion>" & replace(replace(replace(rs("descripcion"),">",""),"<",""),"&","") & "</Descripcion>")
archivo.WriteLine("<Url>"&rs("url")&"</Url>")
archivo.WriteLine("</Script>")
rs.MoveNext()' pasamos al siguite registro
cuantos=cuantos+1 'contamos
loop 'volvemos, hasta mostrar el ultimo
rs.close() ' cerramos la consulta
conexion.close()'cerramos la conexion a la base de datos
'escribimos en el archivo el pie de pagina
archivo.WriteLine("</scripts>")
archivo.WriteLine("</rss>")
archivo.close ' cerramos el archivo
%>
