<html>
<title>Tutores,org ( crear xml desce base de datos .mdb</title>
<body bgcolor="#FFFFFF">
<%
' Nombre de base de datos
accessdb="foro_db.mdb"
' conexion a db
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
' Creamos el objeto
Set rs = Server.CreateObject("ADODB.Recordset")
' Seleccinamos en tablas
sql = "select titulo_mensaje from mensajes order by titulo_mensaje "
' Ejecutamos
rs.Open sql, cn
' Vamos hacia el primer registro
rs.MoveFirst
' Nombre del documento xml que creamos
file_being_created= "/public/muevo_documeto.xml"
'cremos el documento muevo_documeto.xml
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath(file_being_created), true)
act.WriteLine("<?xml version=""1.0""?>")
act.WriteLine("<states>")
do while not rs.eof
' Creamos una secuencia de numeros
counter=counter+1
act.WriteLine("<state id="""& counter &""">")
act.WriteLine("<state_abbrev>" & rs("titulo_mensaje") & "</state_abbrev>" )
act.WriteLine("</state>")
'Movemos al siguiente registro
rs.movenext
loop
act.WriteLine("</states>")
' Cerramos el objeto (xml)
act.close
' Creamos el enlace hacia el documento creado
response.write "<a href='muevo_documeto.xml'>Ver</a> el archivo(.xml) <br>"
response.write " " & now() & "<br>"
%>
</body>
</html>