Para esto vamos a referenciar el WSDL (Web Services Description Language) del Web Services que vamos a consumir.
El codigo en ASP
<%@ Language=VBScript %>
<%
Function EjecutarWS()
Dim oSOAPClient, Resultado, ServicioWeb
ServicioWeb = "http://localhost/webservice.asmx?WSDL"
Set oSOAPClient = Server.CreateObject("MSSOAP.SoapClient30")
oSOAPClient.ClientProperty("ServerHTTPRequest") = False
oSOAPClient.mssoapinit ServicioWeb
On Error Resume Next
Resultado = oSOAPClient.consumirWebService("los parametos del web service")
If Err.number<>0 Then
EjecutarWS = "ERROR"
Else
EjecutarWS = Resultado
End If
Set oSOAPClient = Nothing
End Function
%>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
</head>
<body>
<% response.write EjecutarWS() %>
</body>
</html>
Para poder instanciar el objeto MSSOAP.SoapClient30 deberas de descargarte el SOAP Toolkit de Microsoft 3.0, lo puedes descargar de aqui
Ailas............
0 comentarios:
Publicar un comentario