RE: [Coffeehouse] XMLHTTP-Problem

[Ivo Looser]

Probier mal das.

Gruss Ivo

> ein Beispiel zum Nachmachen?
> 

MyReq
="http://webservices.amazon.de/onca/xml?Service=AWSECommerceService&Subscrip
tionId="& MySubId & "&Operation=ItemLookup&ItemId="&MyASIN
sFile = server.MapPath("/upload/test.txt")
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
 
objXMLHTTP.Open "get",MyReq,false

TransformXmlWithXsl(objXMLHTTP , server.mappath("EncodingChange.xsl"))

Function TransformXmlWithXsl(oXml, cXSLFile)

        'Declare local variables
        Dim oXSL
        Dim cConvertedXML


        set oXSL = Server.CreateObject("Msxml2.DOMDocument.4.0")


        oXSL.async = false

        oXSL.load(cXSLFile)


        Dim oTransformedXML, cOutputXML

                Set oTransformedXML =
Server.CreateObject("Msxml2.DOMDocument.4.0")
                oTransformedXML.async = false
                oTransformedXML.validateOnParse = true
                oXML.transformNodeToObject oXSL, oTransformedXML

        oTransformedXML.save("file.xml")

End Function


-- encode change --
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform";
version="1.0"> <xsl:output method="xml" omit-xml-declaration="yes"/>
<xsl:output encoding="iso-8859-1"/>
                <xsl:template match="node()|@*">
                        <xsl:copy>
                                <xsl:apply-templates select="node()|@*"/>
                        </xsl:copy>
                </xsl:template>
</xsl:stylesheet>


_______________________________________________
Coffeehouse Mailingliste, Postings senden an:
Coffeehouse@glengamoi.com
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/coffeehouse