jonass

Asssim eu estaria criando uma matriz (ou vetor bidirecional como alguns preferem :) ) , eu precisava mesmo é criar um vetor de registros, acabei utilizando uma classe. 'Classe responsável em criar objetos do tipo cliente 'e seus respectivos métodos get e set Class Particip 'Declara as propriedades da classe Cliente private nome private cpf 'NOME Public sub setNome(vNome) nome = vNome End sub Public Property get getNome() getNome = nome End property 'CPF Public sub setCpf(vCpf) cpf = vCpf End sub Public Property get getCpf() getCpf = cpf End property End Class 'Cria um array com três índices Dim arrayObjParticip(1) 'Cria uma instância para cada índice desse array Set arrayObjParticip(0) = new Particip arrayObjParticip(0).setNome("TESTE DE SISTEMA") arrayObjParticip(0).setCpf("12312312387") Mas valeu a dica.

CONSEGUI !!!!!!! O erro que estava dando era porque estava retornando um XML vazio. Isto porque eu estava enviando o xml errado. Eu estava enviando o xml em string, mas deveria estar enviando como xml mesmo. Alterei o trecho abaixo: Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0") Set xmlEnvio = Server.CreateObject("MSXML2.DomDocument.3.0") Set xmlResult = Server.CreateObject("MSXML2.DomDocument.3.0") xmlResult.async = False xmlEnvio.async = False xmlEnvio.loadXML(strXml) if xmlEnvio.parseError.errorCode <> 0 then response.write "Cod ERRO1: " & xmlEnvio.parseError.errorCode response.write "<br>" response.write "Desc. ERRO1: " & xmlEnvio.parseError.reason else Response.write "carregou xml envio com sucesso<br>" End if xmlhttp.Open "POST", sUrl, False 'xmlhttp.Send strXml 'Envia o XML xmlhttp.Send xmlEnvio 'Envia o XML valeu bareta, não resolveu diretamente o meu problema mas clareou o meu caminho....

Oi galera, Sou iniciante no ASP e de cara já tenho que trabalhar com webservide :wacko: Mas vale o desafio... Bem, o webservice está funcionando. O problema é fazer a consumir ele no ASP. Até agora, cheguei no código abaixo: <% Response.ContentType = "text/xml" 'requisita_dados.asp 'Página que faz a requisição passando um XML strXml = "" strXml = strXml & "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:wss='http://www.meusite.com.br/WSCliente/'>" strXml = strXml & " <soapenv:Header>" strXml = strXml & "<wss:AutenticacaoWebService>" strXml = strXml & " <wss:Usuario>user</wss:Usuario>" strXml = strXml & " <wss:Senha>1234</wss:Senha>" strXml = strXml & " </wss:AutenticacaoWebService>" strXml = strXml & " </soapenv:Header>" strXml = strXml & " <soapenv:Body>" strXml = strXml & " <wss:ConsultarPessoa>" strXml = strXml & " <wss:cpf>12312312387</wss:cpf>" strXml = strXml & " </wss:ConsultarPessoa>" strXml = strXml & " </soapenv:Body>" strXml = strXml & " </soapenv:Envelope>" sUrl = "http://homologacao.meusite.com.br:8044/WSCliente/cadastro.asmx" Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0") Set xmlResult = Server.CreateObject("MSXML2.DomDocument.3.0") xmlResult.async = False xmlhttp.Open "POST", sUrl, False xmlhttp.Send strXml 'Envia o XML xmlhttp.waitForResponse 200 xmlResult.loadXML(xmlhttp.ResponseText) xmlResult.save(Server.MapPath("Teste.xml")) response.write "Retorno XML inicio <BR><hr>" if xmlResult.parseError.errorCode <> 0 then response.write "Cod ERRO: " & xmlResult.parseError.errorCode response.write "<br>" response.write "Desc. ERRO: " & xmlResult.parseError.reason else Response.write xmlhttp.ResponseText End if response.write "<BR><hr>Retorno XML FIM<br>" %> XML recebido com sucesso. Isto está me retornando um XML vazio e o seguinte erro: Cod ERRO: -1072896680 Desc. ERRO: O documento XML deve ter um elemento de nível superior. valeu !!!

Oi pessoal, Sou iniciante no ASP e precisava saber como transformar o codigo abaixo para ASP: P_PESSOAL(1).NOME := 'NOME DA PESSOAL1'; P_PESSOAL(1).CPF := 00000000000; P_PESSOAL(2).NOME := 'NOME DA PESSOAL 2'; P_PESSOAL(2).CPF := 99999999999; valeu!!!