Jump to content


preston1

Member Since 02/02/2009
Offline Last Active 19/03/2009, 14:24
-----

Topics I've Started

Trabalhando Com Asp + Xml

19/03/2009, 14:20

aweeee galera esse é meu primeiro topico aqui e em foruns na verdade!!

eu estou tendo que montar um codigo em asp para uma pagina que fara uma comunicação atravez de strings xml que se comunica atravez de atributos.

Bom melhor explicar melhor isso não, então vamos la, assim eu tenho que montar umas paginas que teram que fazer com que o servidor de outra empresa que presta serviço para nós e alterar no banco de dados deles, e essas auterações terão que ser feitas atravez das menssagens xml que havia citado.

ai assim existem varios codigos a serem seguidos que foi definido por essa empresa e que eu tenho que seguir para que o servidor deles entenda que solicitação que eu estou fazendo ao servidor deles, para que fique mais claro chamos de cabeçãlho cujo qual cada mensagem tem o seu.

E dependendo do cabeçalho tambem depende os dados que vão ser enviados e quais prescisão ou não serem enviados depende desse cabeçalho!!^^

E estou com 1 grandes duvidas com relação a isso e não sei mais o que poderia ser feito pois sou um pouco novo na area mais ou menos uns 2 meses apenas. hauahauahauahauahauaha

1° Como fasso para poder pegar os atributos que eu quero apenas como especificado por volta da linha 47 pois assim
no primeiro item que eu pego a resposta de um dos atributos otimo funciona mas no segundo não, ja tentei deixar um e já tentai com todos os atributos mas não funciona

vou postar o codigo em asp abaixo pra irmos direto ao ponto

Gostaria Muito de Agradecer a todos pela ajuda!! e pela atenção

[codebox]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
response.Flush()
strVAR = "<ROOT> <CTR MSG=""8000"" CPR=""100000"" _TI=""123456"" HT6=""133550"" DT4=""0303"" TCD=""001"" VMG=""001"" EMP=""FARMAIS"" HST=""021900004"" /><LGO VAP=""20080909140115"" VTB=""1"" /></ROOT>"
if len(strVAR) > 1 then
Set otrnmsg = Server.CreateObject("TRNXML.SENDXML")
otrnmsg.SendXML("<?xml version=""1.0"" encoding=""ISO-8859-1""?>" & strVAR)
end if
%>
<%
Dim strVAR
Dim cpf
Dim data
Dim nome
Dim ERRO
Dim cnpj
Dim msg
Dim msg2
Dim data2
Dim dia, mes, ano,mes2

cpf = request.Form("cpf")
cnpj = request.Form("cnpj")
data = request.Form("data")
nome = request.Form("nome")

data2 = Datepart("yyyy",data) & Right("0" & Datepart("m",data), 2) & Right("0" & Datepart("d",data), 2)

response.Flush()

msg = "<ROOT> <CTR MSG=""8000"" CPR=""100103"" _TI=""123456"" HT6=""133550"" DT4=""0303"""

msg2 = " TCD=""018"" VMG=""001"" EMP=""FARMAIS"" HST=""021900004""/>"

set strVAR = request.Form("teste")

if strVAR = "" then
strVAR = msg & msg2 & "<CON CNC=""" & cnpj & """ CPF=""" & cpf & """ DNT=""" & data2 & """ TDC=""C""/></ROOT>"
end if

if len(strVAR) > 1 then


Dim strArquivoXML_UP


Set otrnmsg = Server.CreateObject("TRNXML.SENDXML")
otrnmsg.SendXML("<?xml version=""1.0"" encoding=""ISO-8859-1""?>" & strVAR)

Response.write "<B>STM: " & otrnmsg.STM & "</B>"
response.Write "<B>RCD: " & otrnmsg.CON & "</B>"
strresposta = otrnmsg.ReturnXML

if otrnmsg.STM = "00" THEN
ERRO = "CONECTADO AO SERVIDOR"
else
ERRO = "FALHA AO EXECUTAR A OPERAÇÃO"
end if

set oTrnMSG = Nothing
end if
%>
[/codebox]

IPB Skin By Virteq