Ik heb geprobeerd een script te maken in ASP, waarmee de informatie van een RSS newsfeed in mijn website zou moeten komen te staan.. Echter als ik de code uit test, dan krijg ik geen foutmelding maar ook helemaal niks.... Weten jullie misschien waardoor dat komt?
Dit is de code:
Dit is de code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| <%
extURL = "I:\web\mkb\newsfeed\RSS.xml"
Set xmlDoc = Server.CreateObject("Msxml.DOMDocument")
With xmlDoc
.async = False
.setProperty "ServerHTTPRequest", True
.Load(extURL)
End With
If (xmlDoc.parseError.errorCode <> 0) Then
Response.Write("XML error: " & xmlDoc.parseError.reason)
Else
Set channelNodes = xmlDoc.selectNodes("channel")
For each entry in channelNodes
If entry.tagName = "item" Then
For each tag in entry.tagName
Select case tag.tagName
Case "title"
strNewsTitle = tag.text
Case "link"
strNewsLink = tag.text
Case "desciption"
strNewDescription = tag.text
End Select
Next
Response.Write("<a href=""" & strNewsLink & """>" & strNewsTitle & "</a><br>")
Response.Write(strNewDescription)
End If
Next
set channelNodes = nothing
set itemNodes = nothing
End If
%> |