nu.nl headlines in ASP - Softwareontwikkeling

dinsdag 10 september 2002 17:57

Acties:

Verwijderd

Topicstarter

Haja!

K zag dat het vorige topic hierover gesloten was... Voor een ieder die op zoek is naar de methode om nu.nl headlines met ASP op je sitje te settuh, bij deze de code:

#################### HET XML BESTAND:

http://www.nu.nl/deeplink.xml

######################HET XSL BESTAND
(heb ik "nu.xsl" genoemd, ik wilde alleen de hoofd headlines):

<?xml version="1.0"?>
<HTML xmlns:xsl="http://www.w3.org/TR/WD-xsl">
<BODY STYLE="font-family:Tahoma; font-size:12pt;background-color:#ffffff">
<xsl:for-each select="section[@name='nieuws.hoofd']">
<DIV STYLE="background-color:#0099ff; color:#FFFFFF; padding:2px">
</DIV>
<xsl:for-each select="document">
<tr><td><A target="_blank">
<xsl:attribute name="href"><xsl:value-of select="@href"/></xsl:attribute>
<xsl:value-of document=""/>
</A></td></tr>
</xsl:for-each>
</xsl:for-each>
</BODY>
</HTML>

###################### HET .ASP BESTAND

<table cellspacing="2" cellpadding="2" border="0">
<tr>
<td class="header">Nu.nl headlines:</td>
</tr>
<%
Dim XMLDoc1
Set XMLDoc1 = Server.CreateObject("Microsoft.XMLDOM")
XMLDoc1.async = False
If XMLDoc1.load("http://nu.nl/deeplink_xml") Then
XMLDoc1.save(Server.MapPath("nu.xml"))
else
response.write("<b>Error loading new headlines.</b><br>")
End if
Set XMLDoc1 = Nothing

Dim XMLDoc, XSLDoc
Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM")
Set XSLDoc = Server.CreateObject("Microsoft.XMLDOM")
XMLDoc.async = False
XMLDoc.load(Server.MapPath("nu.xml"))
XSLDoc.async = False
XSLDoc.load(Server.MapPath("nu.xsl"))
Response.Write(XMLDoc.documentElement.transformNode(XSLDoc.documentElement))
Set XMLDoc = Nothing
Set XSLDoc = Nothing
%>
</table>

Tot zover!

woensdag 11 september 2002 09:04

Acties:

Scorpion

not to lame to read BitchX.doc

daar heb je codebase.nl voor.

woensdag 11 september 2002 09:11

Acties:

whoami

Dat dacht ik ook zo Scorpion...

Het is vriendelijk dat je zo behulpzaam bent Santheman, maar dit is eigenlijk niet echt de bedoeling van P&W.

https://fgheysels.github.io/