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


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.