Salvar arquivo XML

Boa Noite

Sou iniciante em XML, e cheguei a fazer uma pesquisa no forum para ver se ja havia solução para o meu problema mas nao encontrei nada, como disse sou iniciante.

Fiz um codigo para XML mas gostaria que quando ele fosse carregado ja automaticamente abrisse uma caixa de dialogo para o usuario salvar o arquivo .xml em seu pc.

<%
'Response.Expires = 0
On error resume Next
Dim strXML
Dim objConn, codmot, stringSQL, stringSQL1, stringSQL2, stringSQL12, stringSQL3, stringSQL4, stringSQL5, data, stringSQL6, stringSQL7, stringSQL8, stringSQL9, stringSQL10, stringSQL11, strConnection, id, nome, telefone, email, comentario, fantasia, razao, cidade, est, bairro, cep, fone, celular, fax, cnpj, insc, site, endereco, cod, frete, trans
grupo = Request.QueryString("codgrupo")
forn = Request.QueryString("forn")
prod = Request.QueryString("prod1")
prod2 = Request.QueryString("prod2")
prod3 = Request.QueryString("prod3")
prod4 = Request.QueryString("prod4")
prod5 = Request.QueryString("prod5")
prod6 = Request.QueryString("prod6")
prod7 = Request.QueryString("prod7")
codmot = Request.QueryString("codmot")
comis = Request.QueryString("comis")
trans = Request.QueryString("trans")
data = Request.QueryString("data")
id = clng(Request.QueryString("radio"))

'On error Resume Next
' Conectando com o banco de dados contato.mdb
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Connection")
%><!-- #include file=../cf/conect_banco.asp --><%
stringSQL = "SELECT * FROM gp WHERE autonum = "&grupo
Set objRS = objConn.Execute(stringSQL)
stringSQL1 = "SELECT * FROM pd WHERE autonum = "&id
Set objRS1 = objConn.Execute(stringSQL1,, aCmdText)
'Deletando registro da tabela contato onde esta a id
ipr = Request.ServerVariables("BROWSER")
If objRS1.eof then

else

strXML = "<Produtos>" & vbcrlf
strXML = strXML & "<Codigo>" & Id & "</Codigo>" & vbcrlf
strXML = strXML & "<nome>" & objRS1("nome") & "</nome>" & vbcrlf
strXML = strXML & "<telefone>" & objRS1("telefone") & "</telefone>" & vbcrlf
strXML = strXML & "<email>" & objRS1("email") & "</email>" & vbcrlf
strXML = strXML & "<comentario>" & objRS1("comentario") & "</comentario>" & vbcrlf
strXML = strXML & "<fantasia>" & objRS1("fantasia") & "</fantasia>" & vbcrlf
strXML = strXML & "<razao>" & objRS1("razao") & "</razao>" & vbcrlf
strXML = strXML & "<cidade>" & objRS1("cidade") & "</cidade>" & vbcrlf
strXML = strXML & "<est>" & objRS1("est") & "</est>" & vbcrlf
strXML = strXML & "<bairro>" & objRS1("bairro") & "</bairro>" & vbcrlf
strXML = strXML & "<cep>" & objRS1("cep") & "</cep>" & vbcrlf
strXML = strXML & "<fone>" & objRS1("fone") & "</fone>" & vbcrlf
strXML = strXML & "<celular>" & objRS1("celular") & "</celular>" & vbcrlf
strXML = strXML & "<fax>" & objRS1("fax") & "</fax>" & vbcrlf
strXML = strXML & "<cnpj>" & objRS1("cnpj") & "</cnpj>" & vbcrlf
strXML = strXML & "<insc>" & objRS1("insc") & "</insc>" & vbcrlf
strXML = strXML & "<site>" & objRS1("site") & "</site>" & vbcrlf
strXML = strXML & "<endereco>" & objRS1("endereco") & "</endereco>" & vbcrlf
strXML = strXML & "<codgrupo>" & objRS1("codgrupo") & "</codgrupo>" & vbcrlf
strXML = strXML & "<grupo>" & objRS1("grupo") & "</grupo>" & vbcrlf
strXML = strXML & "<data>" & objRS1("data") & "</data>" & vbcrlf
strXML = strXML & "<codfornecedor>" & objRS1("codfornecedor") & "</codfornecedor>" & vbcrlf
strXML = strXML & "<prod1>" & objRS1("prod1") & "</prod1>" & vbcrlf
strXML = strXML & "<prod2>" & objRS1("prod2") & "</prod2>" & vbcrlf
strXML = strXML & "<prod3>" & objRS1("prod3") & "</prod3>" & vbcrlf
strXML = strXML & "<prod4>" & objRS1("prod4") & "</prod4>" & vbcrlf
strXML = strXML & "<prod5>" & objRS1("prod5") & "</prod5>" & vbcrlf
strXML = strXML & "<prod6>" & objRS1("prod6") & "</prod6>" & vbcrlf
strXML = strXML & "<prod7>" & objRS1("prod7") & "</prod7>" & vbcrlf
strXML = strXML & "<descricao1>" & objRS1("descricao1") & "</descricao1>" & vbcrlf
strXML = strXML & "<descricao2>" & objRS1("descricao2") & "</descricao2>" & vbcrlf
strXML = strXML & "<descricao3>" & objRS1("descricao3") & "</descricao3>" & vbcrlf
strXML = strXML & "<descricao4>" & objRS1("descricao4") & "</descricao4>" & vbcrlf
strXML = strXML & "<descricao5>" & objRS1("descricao5") & "</descricao5>" & vbcrlf
strXML = strXML & "<descricao6>" & objRS1("descricao6") & "</descricao6>" & vbcrlf
strXML = strXML & "<descricao7>" & objRS1("descricao7") & "</descricao7>" & vbcrlf
strXML = strXML & "<unidade1>" & objRS1("unidade1") & "</unidade1>" & vbcrlf
strXML = strXML & "<unidade2>" & objRS1("unidade2") & "</unidade2>" & vbcrlf
strXML = strXML & "<unidade3>" & objRS1("unidade3") & "</unidade3>" & vbcrlf
strXML = strXML & "<unidade4>" & objRS1("unidade4") & "</unidade4>" & vbcrlf
strXML = strXML & "<unidade5>" & objRS1("unidade5") & "</unidade5>" & vbcrlf
strXML = strXML & "<unidade6>" & objRS1("unidade6") & "</unidade6>" & vbcrlf
strXML = strXML & "<unidade7>" & objRS1("unidade7") & "</unidade7>" & vbcrlf
strXML = strXML & "<quant1>" & objRS1("quant1") & "</quant1>" & vbcrlf
strXML = strXML & "<quant2>" & objRS1("quant2") & "</quant2>" & vbcrlf
strXML = strXML & "<quant3>" & objRS1("quant3") & "</quant3>" & vbcrlf
strXML = strXML & "<quant4>" & objRS1("quant4") & "</quant4>" & vbcrlf
strXML = strXML & "<quant5>" & objRS1("quant5") & "</quant5>" & vbcrlf
strXML = strXML & "<quant6>" & objRS1("quant6") & "</quant6>" & vbcrlf
strXML = strXML & "<quant7>" & objRS1("quant7") & "</quant7>" & vbcrlf
strXML = strXML & "<valor1>" & objRS1("valor1") & "</valor1>" & vbcrlf
strXML = strXML & "<valor2>" & objRS1("valor2") & "</valor2>" & vbcrlf
strXML = strXML & "<valor3>" & objRS1("valor3") & "</valor3>" & vbcrlf
strXML = strXML & "<valor4>" & objRS1("valor4") & "</valor4>" & vbcrlf
strXML = strXML & "<valor5>" & objRS1("valor5") & "</valor5>" & vbcrlf
strXML = strXML & "<valor6>" & objRS1("valor6") & "</valor6>" & vbcrlf
strXML = strXML & "<valor7>" & objRS1("valor7") & "</valor7>" & vbcrlf
strXML = strXML & "<total1>" & objRS1("total1") & "</total1>" & vbcrlf
strXML = strXML & "<total2>" & objRS1("total2") & "</total2>" & vbcrlf
strXML = strXML & "<total3>" & objRS1("total3") & "</total3>" & vbcrlf
strXML = strXML & "<total4>" & objRS1("total4") & "</total4>" & vbcrlf
strXML = strXML & "<total5>" & objRS1("total5") & "</total5>" & vbcrlf
strXML = strXML & "<total6>" & objRS1("total6") & "</total6>" & vbcrlf
strXML = strXML & "<total7>" & objRS1("total7") & "</total7>" & vbcrlf
strXML = strXML & "<valorn>" & objRS1("valorn") & "</valorn>" & vbcrlf
strXML = strXML & "<codcomprador>" & objRS1("codcomprador") & "</codcomprador>" & vbcrlf
strXML = strXML & "<comprador>" & objRS1("comprador") & "</comprador>" & vbcrlf
strXML = strXML & "<percentual>" & objRS1("percentual") & "</percentual>" & vbcrlf
strXML = strXML & "<totalcomissao>" & objRS1("totalcomissao") & "</totalcomissao>" & vbcrlf
strXML = strXML & "<data1>" & objRS1("data1") & "</data1>" & vbcrlf
strXML = strXML & "<data2>" & objRS1("data2") & "</data2>" & vbcrlf
strXML = strXML & "<data3>" & objRS1("data3") & "</data3>" & vbcrlf
strXML = strXML & "<data4>" & objRS1("data4") & "</data4>" & vbcrlf
strXML = strXML & "<data5>" & objRS1("data5") & "</data5>" & vbcrlf
strXML = strXML & "<valorp1>" & objRS1("valorp1") & "</valorp1>" & vbcrlf
strXML = strXML & "<valorp2>" & objRS1("valorp2") & "</valorp2>" & vbcrlf
strXML = strXML & "<valorp3>" & objRS1("valorp3") & "</valorp3>" & vbcrlf
strXML = strXML & "<valorp4>" & objRS1("valorp4") & "</valorp4>" & vbcrlf
strXML = strXML & "<valorp5>" & objRS1("valorp5") & "</valorp5>" & vbcrlf
strXML = strXML & "<diferenca>" & objRS1("diferenca") & "</diferenca>" & vbcrlf
strXML = strXML & "<receb>" & objRS1("receb") & "</receb>" & vbcrlf
strXML = strXML & "<impr>" & objRS1("impr") & "</impr>" & vbcrlf
strXML = strXML & "<baixa>" & objRS1("baixa") & "</baixa>" & vbcrlf
strXML = strXML & "<desconto>" & objRS1("desconto") & "</desconto>" & vbcrlf
strXML = strXML & "<tprg>" & objRS1("tprg") & "</tprg>" & vbcrlf
strXML = strXML & "<rg>" & objRS1("rg") & "</rg>" & vbcrlf
strXML = strXML & "<cid>" & objRS1("cid") & "</cid>" & vbcrlf
strXML = strXML & "</Produtos>"

end if

response.write (strXML)
%>

Sem mais

Obrigado desde já