Salvar arquivo XML

[ODIR 0]

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á

[Ted k' 126]

Procure por forçar download na área de laboratório de script ASP, deixo a dica!

 

procure por força downloads no laboratorio de scripts ASP