Como transformar variáveis vindas no link da url em arquivo XML ?

[MarKteus 1]

Como posso transformar váriaveis enviadas ou resgatas via url por exemplo http://www.sample.com.br/teste.asp$nomeTitular=RobertDeNirodaSilva&EndTitular=KansasCity

guardar esses valores em variáveis

nomeTit = request("nomeTitular")

endeTit = request("EndTitular")

 

transformar isso aí acima em um arquivo XML e mandar de voltar um resultado qualquer. :mellow:

[xanburzum 169]

você pode usar uma página .asp com formatação XML e colocar os request.form("") no lugares adequados ou pode criar um pelo FSO, assim:

 

 

abaixo um exemplo com banco de dados

 

<%
'String de conexão com o banco de dados.
ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\LoginFTP\dados\banco.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\LoginFTP\Web\teste\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 "<?xml version=""1.0"" encoding=""ISO-8859-1"" ?>" & vbcrlf
 
escreve.write "<internet>" & vbcrlf
 
'Lopping até o último registro do banco
do while not rs.eof
 
escreve.write "<opcoes>" & vbcrlf
 
'Looping para contagem dos campos
for i=0 to rs.fields.count-1
 
escreve.write "<" & rs.fields(i).name & ">" & rs.fields(i).value & "</" & rs.fields(i).name & ">" & vbcrlf
 
next
rs.movenext
 
escreve.write "</opcoes>" & vbcrlf
 
loop
 
escreve.write "</internet>" & vbcrlf
 
Response.write "Arquivo salvo !"
 
'Fechando de destruíndo os objetos
set ObjFSO = nothing
rs.close
conexao.close
set rs = nothing
set conexao = nothing
%>

[MarKteus 1]

Legal Xambur

 

mas, como seria utilizando request.form ao invés de usar o objeto FileSystemObject para criar o arquivo.

[xanburzum 169]

<% Set objDom = server.CreateObject("Microsoft.XMLDOM")

objDom.preserveWhiteSpace = True

blnFileExists = objDom.Load(server.MapPath("and.xml"))

If blnFileExists = True Then

Set objRoot = objDom.documentElement

Else

Set objRoot = objDom.createElement("estados")

objDom.appendChild objRoot

End If

Set objestado = objDom.createElement("estado")

Set objsigla = objDom.createAttribute("sigla")

objestado.setAttributeNode objsigla

Set objnome = objDom.createAttribute("nome")

objnome.Text = Request.Form("nome")

objestado.setAttributeNode objnome

objroot.appendchild objestado

If blnFileExists = False then

Set objPI = objDom.createProcessing

Instruction("xml", "version='1.0'")

objDom.insertBefore objPI, objDom.childNodes(0)

End If

objDom.save(server.MapPath("and.xml"))%>

 

 

 

[MarKteus 1]

Certo

 

Eu também tenho visto o uso de ResponseXML("parametro") ou ResponseText("parametro") em alguns casos.

 

Onde estes comandos se encaixam no contexto que você me exemplificou ?

[MarKteus 1]

você pode usar uma página .asp com formatação XML e colocar os request.form("") no lugares adequados ou pode criar um pelo FSO, assim:

 

 

abaixo um exemplo com banco de dados

 

<%
'String de conexão com o banco de dados.
ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\LoginFTP\dados\banco.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\LoginFTP\Web\teste\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 "<?xml version=""1.0"" encoding=""ISO-8859-1"" ?>" & vbcrlf
 
escreve.write "<internet>" & vbcrlf
 
'Lopping até o último registro do banco
do while not rs.eof
 
escreve.write "<opcoes>" & vbcrlf
 
'Looping para contagem dos campos
for i=0 to rs.fields.count-1
 
escreve.write "<" & rs.fields(i).name & ">" & rs.fields(i).value & "</" & rs.fields(i).name & ">" & vbcrlf
 
next
rs.movenext
 
escreve.write "</opcoes>" & vbcrlf
 
loop
 
escreve.write "</internet>" & vbcrlf
 
Response.write "Arquivo salvo !"
 
'Fechando de destruíndo os objetos
set ObjFSO = nothing
rs.close
conexao.close
set rs = nothing
set conexao = nothing
%>

`

 

 

Neste exemplo você demonstra como seria uma criação de XML em disco, mas e no caso em que não necessidade disso, ou seja, preciso apenas montar o XML dentro do ASP mesmo e já mandar de voltar pra uma outra página (de um cliente por exemplo) ? Como ficaria ?