<% 'String de conexão com o banco de dados. ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\contee\dados\artigos.mdb;" Set conexao=server.createobject("adodb.connection") Conexao.open ConnString 'Seleciona os campo do recordset SQL="select Locaweb,LocaMail,LocaVoz from dados" set rs = conexao.execute(SQL) 'Instancia o objeto FSO Set ObjFSO = CreateObject("Scripting.FileSystemObject") 'A propriedade CreateTextFile cria o arquivo arq.xml no local especificado Set escreve = ObjFSO.CreateTextFile("e:\home\contee\Web\noticias\artigos\arq.xml", true) 'Para quem utiliza o serviço de REVENDA, utilize este caminho fisico como base 'Set escreve = ObjFSO.CreateTextFile("E:\vhosts\DOMINIO_COMPLETO\httpdocs\teste\arq.xml", 'O método write escreve a string no arquivo escreve.write "" & vbcrlf escreve.write "" & vbcrlf 'Lopping até o último registro do banco do while not rs.eof escreve.write "" & vbcrlf 'Looping para contagem dos campos for i=0 to rs.fields.count-1 escreve.write "<" & rs.fields(i).name & ">" & rs.fields(i).value & "" & vbcrlf next rs.movenext escreve.write "" & vbcrlf loop escreve.write "" & vbcrlf Response.write "Arquivo salvo !" 'Fechando de destruíndo os objetos set ObjFSO = nothing rs.close conexao.close set rs = nothing set conexao = nothing %>