Como utilizar un Servicio Web de .NET en ASP tradicional o Visual Basic 6.0
Hace un tiempo me encontré con este problema, necesitaba ejecutar o usar un servicio web desde una aplicación ASP tradicional... pensé en un momento enviar los datos vía POST o GET a una página ASPX (ASP.NET) y desde ahi gatillar el servicio correspondiente, pero quería evitar este salto.
Pude hacerlo mediante Microsoft SOAP 3.0, por lo tanto antes de ejecutar la aplicación les recomiendo bajar dicho componente del siguiente link:
Ejemplo:
'Función ASP tradicional que utiliza el Servicio Web.
Function EjecutarSW(ByVal A, ByVal B)
Dim oSOAPClient, Resultado, ServicioWeb
ServicioWeb = "http://localhost/Prueba/ServicioPrueba.asmx?wsdl"
Set oSOAPClient = Server.CreateObject("MSSOAP.SoapClient30")
oSOAPClient.ClientProperty("ServerHTTPRequest") = True
oSOAPClient.mssoapinit ServicioWeb
On Error Resume Next
Resultado = oSOAPClient.Sumar(CInt(A), CInt(B))
If Err.number<>0 Then
EjecutarSW = "ERROR"
Else
EjecutarSW = Resultado
End If
Set oSOAPClient = Nothing
End Function