Script simples de criação de arquivos .XML, todo comentado

<%
ArquivoXML = "criado.xml" 'adicionando um nome no arquivo
Set FSO = CreateObject("Scripting.FileSystemObject") 'criando o objeto FSO
Set Linhas = FSO.CreateTextFile(Server.MapPath(ArquivoXML), True) 'salvando o arquivo no servidor através do método "CreateTextFile"
'gerando linas
	Linhas.WriteLine("<?xml version=""1.0""?>")
	Linhas.WriteLine("<container>")
	Linhas.WriteLine("<tag_01>TEXTO DA TAG 01</tag_01>" )
	Linhas.WriteLine("<tag_02>TEXTO DA TAG 02</tag_02>" )
	Linhas.WriteLine("<tag_03>TEXTO DA TAG 03</tag_03>" )
	Linhas.WriteLine("</container>")
'destruíndo os objetos
Linhas.Close
Set Linhas = Nothing
%>

Pode ser adicionado um LOOP ou simplismente adicionar com o banco de dados!