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]