vb6 or asp xsl transform (transformNode)

Private Function Transform(xml_string, xsl_file) As String
    Dim xsl, XML
    Set xsl = CreateObject("Microsoft.XMLDOM")
    Set XML = CreateObject("Microsoft.XMLDOM")
    xsl.Load (xsl_file)
    XML.LoadXml (xml_string)
    Transform = XML.transformNode(xsl)
End Function

more...

display html on vb6 form

1.add Microsoft Internet controls to link reference.
2.Place control on form, I used 'Browser' as control name.
use this function to display :

Private Sub ShowHtml(s As String)
    Browser.Navigate ("about:blank")
   ' Dim doc  As IHTMLDocument2
    Set boxDoc = Browser.Document
    boxDoc.Write (s)
    boxDoc.Close
End Sub

more...

to fix wcf soap client error :

WSDLService :Processing service xxx found no port definitions HRESULT=0x80070057: The parameter is incorrect.
update web.config:
...

<services>
            <service name="Business.WebService.Service1" behaviorConfiguration="Business.WebService.Service1Behavior">
                <!-- Service Endpoints -->
find this line: <endpoint address="" binding="wsHttpBinding" contract="Business.WebService.IService1"> 
and replace with this one : <endpoint address="" binding="basicHttpBinding" contract="Business.WebService.IService1">

basicHttpBinding is compatible with old soap clients.
more...

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...