Få med texten XMLDoc?

1 svar · 216 visningar · startad av Bosse168 7 okt. 2004

Bosse168Medlem sedan nov. 20031 018 inlägg

Frågan7 okt. 2004 12:33#1

Jag skulle vilja ha med texten som tillhör rubriken, någon som vet hur detta ska gå till? ;)

Const TOP = 20

Set XMLDoc = CreateObject("MSXML2.DOMDocument.4.0")
XMLDoc.setProperty "ServerHTTPRequest", true
XMLDoc.async=false
XMLDoc.Load "http://expressen.se/expressen/jsp/xml.jsp?page=10"
If XMLDoc.parseError.errorCode = 0 Then

	Set articles =	XMLDoc.selectNodes("page/article[position() <= " & TOP & "]")
	For Each articleNode in articles

		response.write "[" & FormatDateTime(articleNode.getAttribute("updated"), 4) & "] <a href=nyheter_klick.asp?id=4&url=http://www.expressen.se/index.jsp?a=" & articleNode.getAttribute("id") & " target=""_blank"">" & articleNode.selectSingleNode("headline").text & "</a><br>" & vbCrLf

	Next

Else
	Response.Write "Error: " & XMLDoc.parseError.reason
End If

jawbreakerMedlem sedan jan. 2003296 inlägg

7 okt. 2004 12:54#2

articleNode.selectSingleNode("ingress").text

eller

articleNode.selectSingleNode("prelead").text

kanske kan vara något att klämma in på lämpligt ställe?

Typ

Const TOP = 20

Set XMLDoc = CreateObject("MSXML2.DOMDocument.4.0")
XMLDoc.setProperty "ServerHTTPRequest", true
XMLDoc.async=false
XMLDoc.Load "http://expressen.se/expressen/jsp/xml.jsp?page=10"
If XMLDoc.parseError.errorCode = 0 Then

	Set articles =	XMLDoc.selectNodes("page/article[position() <= " & TOP & "]")
	For Each articleNode in articles

		response.write "[" & FormatDateTime(articleNode.getAttribute("updated"), 4) & "] <a href=nyheter_klick.asp?id=4&url=http://www.expressen.se/index.jsp?a=" & articleNode.getAttribute("id") & " target=""_blank"">" & articleNode.selectSingleNode("headline").text & "</a><br>" & articleNode.selectSingleNode("ingress").text & "<br><br>" & vbCrLf

	Next

Else
	Response.Write "Error: " & XMLDoc.parseError.reason
End If