Advanced Search

Llamar a servicio web WSDL

/ Published in: ASP
Save to your folder(s)
Llamada a un servicio web desde ASP clásico. <u>xmlSOAP</u> es el SOAP Envelope construido

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. Function llamadaServicioWEB(xmlSOAP)
  2.         Dim oSOAPprov
  3.         Dim strURL, SoapServer, SoapPath
  4.  
  5.         strURL = "https://www.proveedor.com/carpetaServ/axis/ElServicio?wsdl"
  6.         SoapServer = "www.proveedor.com"
  7.         SoapPath = "/carpetaServ/axis/ElServicio?wsdl"
  8.  
  9.         Set oSOAPprov = Server.CreateObject("MSXML2.ServerXMLHTTP")
  10.  
  11.         oSOAPprov.Open "POST", strURL, False
  12.  
  13.         oSOAPprov.setRequestHeader "Man", "POST " & SoapPath & " HTTP/1.1"
  14.         oSOAPprov.setRequestHeader "Host", SoapServer
  15.         oSOAPprov.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
  16.         oSOAPprov.setRequestHeader "SOAPAction", "https://www.proveedor.com/carpetaServ/axis/ElServicio"
  17.  
  18.         oSOAPprov.Send(xmlSOAP)
  19.         Set xmlSOAP = nothing
  20.  
  21.         Dim xmlRespuesta, strRespuesta
  22.         If oSOAPprov.status = 200 Then '200 = STATUS OK
  23.             Set xmlRespuesta = Server.CreateObject("Microsoft.XMLDOM")
  24.             xmlRespuesta.loadXML(oSOAPprov.ResponseText)
  25.  
  26.             ' ==== ANALIZAR RESPUESTA SEGUN CADA CASO ====
  27.  
  28.             Set xmlRespuesta = nothing
  29.         Else
  30.             'Si status <> 200 no puede analizar la respuesta
  31.             strRespuesta = "Error " & oSOAPprov.status & ": " & errServerXMLHTTP(oSOAPprov.status)
  32.         End If
  33.         Set oSOAPprov = nothing
  34.  
  35.         llamadaServicioWEB = strRespuesta
  36.     End Function

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.