Dit werkte in een ander projectje, ik kopieer de hele zaak en het werkt niet meer, waarschijnenlijk zie ik een heeeel klein dingetje over het hoofd, maar ik zit er nu al 2 uur op te sleutelen.
Ik haal met een asp file data uit de database en pleur dat in XML formaat, de output van die file is:
Ik heb ff een simple XSL filetje gemaakt:
En ik plak dit geheel aan elkaar met deze asp file.
Ziet iemand hier iets in wat niet correct is?
Ik haal met een asp file data uit de database en pleur dat in XML formaat, de output van die file is:
code:
1
2
3
4
5
6
7
8
9
| <?xml version="1.0" ?> <ADSLMC> <ForumTopic> <ForumMessageID>1</ForumMessageID> <Subject>test</Subject> <Message>test</Message> <Date>9/26/2001</Date> </ForumTopic> </ADSLMC> |
Ik heb ff een simple XSL filetje gemaakt:
code:
1
2
3
4
5
6
7
8
9
10
11
12
| <?xml version="1.0" ?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl">
<xsl:template match="/">
<html>
<body>
<xsl:for-each select="ADSLMC/ForumTopic">
<xsl:value-of select="Subject"/>
</xsl:for-each>
</body>
</html>
</xsl:template>
</xsl:stylesheet> |
En ik plak dit geheel aan elkaar met deze asp file.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| <%
Dim objHTTP
Dim objXML
Dim objXSL
Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://127.0.0.1/forums/get_topics.asp?id=1, False
objHTTP.Send
Set objXML = objHTTP.ResponseXML
Set objXSL = CreateObject("Microsoft.XMLDOM")
objXSL.Async = False
objXSL.Load(Server.MapPath("test.xsl"))
Response.Write(objXML.TransformNode(objXSL))
Set objHTTP = Nothing
Set objXML = Nothing
Set objXSL = Nothing
%> |
Ziet iemand hier iets in wat niet correct is?
weinig tot niks..