'Instancia o objeto FSO.
Set Fso = CreateObject("Scripting.FileSystemObject")

'Utilizando a propriedade CreateTextFile para criar o arquivo.
Set Cria = Fso.CreateTextFile
("C:\inetpub\vhosts\wa.insite.com.br\httpdocs\exemplos\teste\arquivo_xml.txt",True)

'Com o método WriteLine você escreve uma linha no arquivo criado acima.
Cria.WriteLine "Está quase !!!"

Response.write "Arquivo criado"

'Fecha o arquivo criado.
Cria.Close

'Destruíndo objetos
Set Fso = nothing
Set Cria = nothing
%>