Posted By

sulfurito on 09/25/08

Tagged

web
service

Versions (?)

Last Edited at 09/25/08 08:08am

Statistics

Viewed 662 times

Favorited by 0 user(s)

Related snippets

Llamar a servicio web WSDL

/ Published in: ASP

Llamada a un servicio web desde ASP clÃ¡sico. <u>xmlSOAP</u> es el SOAP Envelope construido

Highlighted TextExpand

Function llamadaServicioWEB(xmlSOAP)
        Dim oSOAPprov
        Dim strURL, SoapServer, SoapPath

strURL = "https://www.proveedor.com/carpetaServ/axis/ElServicio?wsdl"
        SoapServer = "www.proveedor.com"
        SoapPath = "/carpetaServ/axis/ElServicio?wsdl"

Set oSOAPprov = Server.CreateObject("MSXML2.ServerXMLHTTP")

oSOAPprov.Open "POST", strURL, False

oSOAPprov.setRequestHeader "Man", "POST " & SoapPath & " HTTP/1.1"
        oSOAPprov.setRequestHeader "Host", SoapServer
        oSOAPprov.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
        oSOAPprov.setRequestHeader "SOAPAction", "https://www.proveedor.com/carpetaServ/axis/ElServicio"

oSOAPprov.Send(xmlSOAP)
        Set xmlSOAP = nothing

Dim xmlRespuesta, strRespuesta
        If oSOAPprov.status = 200 Then '200 = STATUS OK
            Set xmlRespuesta = Server.CreateObject("Microsoft.XMLDOM")
            xmlRespuesta.loadXML(oSOAPprov.ResponseText)

' ==== ANALIZAR RESPUESTA SEGUN CADA CASO ====

Set xmlRespuesta = nothing
        Else
            'Si status <> 200 no puede analizar la respuesta
            strRespuesta = "Error " & oSOAPprov.status & ": " & errServerXMLHTTP(oSOAPprov.status)
        End If
        Set oSOAPprov = nothing
        
        llamadaServicioWEB = strRespuesta
    End Function

Report this snippet Tweet