Gerar um arquivo XML a partir de registros na base de dados

Olá pessoal, criei um código ASP que gera um arquivo XML a partir de dados recuperados de uma base de dados.

    'Declaração de variáveis
    Dim Conexao, Rs, strSQL, url, RECEBE, Obj_Arquivo, Obj_Texto

    'Armazenar o caminho da base de dados na variável url
    url = "D:\Inetpub\wwwroot\BaseDeDados.mdb"

    'Instanciando a variável Conexao
    Set Conexao = Server.CreateObject("ADODB.Connection")

    'Abrindo a conexao com a bade de dados
    Conexao.Open "DBQ=" & url & ";DRIVER={Microsoft Access Driver (*.mdb)};"

    'Instrução SQL
    strSQL = "SELECT * FROM TABELA"

    'Executando a instrução SQL
    Set Rs = Conexao.Execute(strSQL)

    'Lendo os registros da base de dados e armazenando na variável RECEBE
    While NOT Rs.EOF
        RECEBE = "<DADOS>" + vbcrlf
        RECEBE = RECEBE + "<NUMERO>"         + (Rs("NUMERO"))        + "<NUMERO>"        + vbcrlf
        RECEBE = RECEBE + "<IDENTIFICACAO>"  + (Rs("IDENTIFICACAO")) + "<IDENTIFICACAO>" + vbcrlf
        RECEBE = RECEBE + "</DADOS>"
    Rs.MoveNext : Wend

    'Instanciando a variável Obj_Arquivo
    Set Obj_Arquivo = CreateObject("Scripting.Obj_ArquivotemObject")

    'Instanciando a variável Obj_Texto com o método do objeto Obj_Arquivo, passando como parâmetro a url e o nome do arquivo XML
    Set Obj_Texto = Obj_Arquivo.CreateTextFile("D:\Inetpub\wwwroot\Arquivo.XML", True)

    'Gravando o resultado contido na variável RECEBE no arquivo XML
    Obj_Texto.WriteLine("<PROCESSO>") + RECEBE + ("</PROCESSO>")

Até a próxima pessoal, Abraços !

Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...