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