---
title: "Lista nyheter från Expressen?!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/xml/84976-lista-nyheter-från-expressen"
topic: "XML"
topic_url: "https://www.webforum.nu/amne/xml"
author: "henkepenke"
published: "2003-09-01T11:44:07.000Z"
updated: "2003-09-01T20:56:56.000Z"
replies: 7
views: 576
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/xml/84976-lista-nyheter-från-expressen"
---

# Lista nyheter från Expressen?!

## #1 — henkepenke, 2003-09-01T11:44Z

Hejsan! 
Tänkte att jag skulle lista nyheter från Expressen. Har fått en sida av dem där jag kan hämta nyheterna.

<http://expressen.se/expressen/jsp/xml.jsp?page=112>
Nu är det såhär att jag har lyckats att lista dem. Problemet är att jag har gjort en länk där det står "Läs mer här" och då ska man komma till den artikeln på Expressens hemsida. När jag väljer den första nyheten är det inga problem, men när jag väljer nyhet nummer 2 och klicka på länken kommer jag till samma artikel hos expressen. Det idnummret byts inte ut.

Jag skickar med min kod och den sida där nyheterna ligger:

 <http://web.alltomjonkoping.se/nyheter.asp>

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

	Set nodeLst =  XMLDoc.getElementsByTagName("headline")
	Set nodeLst2 =  XMLDoc.getElementsByTagName("ingress")
	Dim myVarnoje
	Set root = xmlDoc.documentElement
	myVarnoje = root.firstChild.Attributes.Item(0).Value
	
 response.write  "\<font size=2\>\<b\>" & nodeLst.Item(Request.QueryString("artikelId")).text & " \</b\>\<br\>\</font\>\<font size=2\> " & nodeLst2.Item(Request.QueryString("artikelId")).text & "\<br\>\</font\>\<a href=http://www.expressen.se/expressen/jsp/polopoly.jsp?d=112&a=" & myVarnoje & " class=""kalfet"" target=""\_blank""\>Läs mer här\</a\>"
End If
%\>

Permalänk: https://www.webforum.nu/p/84976

## #2 — niko, 2003-09-01T12:56Z

> Det idnummret byts inte ut.

Nej, det är väl inte så konstigt. Du länkar ju alltid till *första* nyheten.

```
myVarnoje = root.[b]firstChild[/b].Attributes.Item(0).Value
```

Istället borde det vara nåt i stil med:

```
myVarnoje = root.ChildNodes(i).Attributes.Item(0).Value
```

där du får "i" via den query-parameter du kallar *artikelId*.

Permalänk: https://www.webforum.nu/p/1146193

## #3 — henkepenke, 2003-09-01T13:29Z

Tack, det gjorde susen....

Permalänk: https://www.webforum.nu/p/1146228

## #4 — henkepenke, 2003-09-01T17:47Z

Det är ju från denna sida jag hämtar allt. Där det står \<newline /\> vill jag ha ett \<br\>.

<http://expressen.se/expressen/jsp/xml.jsp?page=112> 

Hur fixar jag de? Här följer koden...

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

	Set nodeLst =  XMLDoc.getElementsByTagName("headline")
	Set nodeLst2 = XMLDoc.getElementsByTagName("ingress")
	Set nodeLst3 = XMLDoc.getElementsByTagName("newline")
	Dim myVarnoje
	Set root = xmlDoc.documentElement
	Set i = Request.QueryString("artikelId")
	myVarnoje = root.ChildNodes(i).Attributes.Item(0).Value 
	
	
	
 response.write  "\<font size=2\>\<b\>" & nodeLst.Item(Request.QueryString("artikelId")).text & " \</b\>\<br\>\</font\>\<font size=2\> " & nodeLst2.Item(Request.QueryString("artikelId")).text & "\<br\>\</font\>\<a href=http://www.expressen.se/expressen/jsp/polopoly.jsp?d=112&a=" & myVarnoje & " class=""kalfet"" target=""\_blank""\>Läs mer här\</a\>"
End If

Permalänk: https://www.webforum.nu/p/1146408

## #5 — Peeer, 2003-09-01T17:57Z

Re: Lista nyheter från Expressen?!

OT: Vad är URLen till expressens huvudnyheter i samma format. [Länken](http://expressen.se/expressen/jsp/xml.jsp?page=112) ovan går ju bara till nöjesnyheterna, jag vill alltså ha tag i huvudnyheterna.

Permalänk: https://www.webforum.nu/p/1146412

## #6 — henkepenke, 2003-09-01T17:59Z

<http://expressen.se/expressen/jsp/xml.jsp?page=10>

Permalänk: https://www.webforum.nu/p/1146414

## #7 — henkepenke, 2003-09-01T17:59Z

Sport:
<http://expressen.se/expressen/jsp/xml.jsp?page=110>

Permalänk: https://www.webforum.nu/p/1146415

## #8 — niko, 2003-09-01T20:56Z

> Där det står \<newline /\> vill jag ha ett \<br\>.

Finns säkert nåt smart, men jag kommer inte på det så det får bli brute-force:

```
	' ...
	' ...
	myVarnoje = root.ChildNodes(i).Attributes.Item(0).Value 

	sIngress = nodeLst2.Item(i).xml
    	sIngress = Replace(sIngress, "<ingress>", "")
    	sIngress = Replace(sIngress, "</ingress>", "")
    	sIngress = Replace(sIngress, "<newline/>", "<br>")

	response.write "<font size=2><b>" & nodeLst.Item(i).text & " </b><br></font><font size=2> " & sIngress ' osv ...
```

Permalänk: https://www.webforum.nu/p/1146506

---

Tråden på webben: https://www.webforum.nu/amne/xml/84976-lista-nyheter-från-expressen