call web service from classic asp or vb6 (SOAP Toolkit 3.0)

1.download and install SOAP Toolkit 3.0 from microsoft website
2.here is sample of calling asp.net web service from classic asp:
on this sample XML returning from one of services methods will transformed by xslt and writed on page.

<%
     Dim SoapClient
     Application.Lock

        Set SoapClient = Server.CreateObject("MSSOAP.SoapClient30")
        SoapClient.ClientProperty("ServerHTTPRequest") = True
       'production url
        SoapClient.MSSoapInit "https://services.server.com/clientalerts/alert.asmx?WSDL"
        'add 
        Set Application("CalcRpcAspVbsClient") = SoapClient
        Application("CalcRpcAspVbsClientInitialized") = True


    Application.UnLock

    'call as usual
    Response.Write SoapClient.Transformdata("c:\xslt\setup.xslt", SoapClient.getSubscriptions(Session("DealerId")))%>

more...