7 svar · 565 visningar · startad av henkepenke
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
%>
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.
Tack, det gjorde susen....
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
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 ...