Hier die Adaptierte Version.
>
>
> -----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=AWSECommerceSe
> rvice&Subscrip
> tionId="& MySubId & "&Operation=ItemLookup&ItemId="&MyASIN
> sFile = server.MapPath("/upload/test.txt")
> Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
>
> objXMLHTTP.Open "get",MyReq,false
>
Set oLoadedDoc = LoadXmlStringIntoNewObject(objHTTP.responseXML.xml)
Function LoadXmlStringIntoNewObject(strXml)
Set LoadXmlStringIntoNewObject = Nothing
Dim xml
Set xml = Server.CreateObject("Msxml2.DOMDocument.4.0")
If Err.Number <> 0 Then
Response.write err.description
response.end
Exit Function
end if
If Len(strXml) > 0 Then
xml.LoadXML strXml
If Err.Number <> 0 Then
Response.write "Load Error:" & err.description
response.end
Exit Function
end if
If xml.ParseError.ErrorCode <> 0 Then
response.write "Parser Error:" &
xml.ParseError.Reason
response.end
Exit Function
end if
End If
Set LoadXmlStringIntoNewObject = xml
End Function
TransformXmlWithXsl(oLoadedDoc , 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
>
_______________________________________________
Coffeehouse Mailingliste, Postings senden an:
[email protected]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/coffeehouse
