Hmmmm - ein kleines Problem macht er mir dabei: --- cut --- Laufzeitfehler in Microsoft VBScript Fehler "800a01b6' Das Objekt unterst�tzt diese Eigenschaft oder Methode nicht.: 'oXml.transformNodeToObject' --- cut ---
-----Urspr�ngliche Nachricht----- Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Im Auftrag von Ivo Looser Gesendet: Donnerstag, 24. Februar 2005 12:39 An: [email protected] Betreff: RE: [Coffeehouse] XMLHTTP-Problem 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: [email protected] An-/Abmeldung und Suchfunktion unter: http://www.glengamoi.com/mailman/listinfo/coffeehouse _______________________________________________ Coffeehouse Mailingliste, Postings senden an: [email protected] An-/Abmeldung und Suchfunktion unter: http://www.glengamoi.com/mailman/listinfo/coffeehouse
