---
title: "XMLHTTP Problem, vill bara lista 5 st"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/112017-xmlhttp-problem-vill-bara-lista-5-st"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "airwolf"
published: "2004-09-20T23:26:22.000Z"
updated: "2004-09-22T06:15:27.000Z"
replies: 8
views: 351
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/asp/112017-xmlhttp-problem-vill-bara-lista-5-st"
---

# XMLHTTP Problem, vill bara lista 5 st

## #1 — airwolf, 2004-09-20T23:26Z

Jag har vill med koden nedan lista ut nyheterna från honda.
Allt fungerar förutom länkarna, sen skulle jag vilja kunna
sätta att bara det 5 senaste nyheterna ska listas.

Nån som har koll på detta?
Jag har letat som en tok här på forumet och hoppas inte
frågan ställts förut för jag hittar den inte.

Länk till sidan: <http://www.hondaklubben.com/news.asp>

/Daniel

```
<%
   function BinToText(varBinData, intDataSizeInBytes)
  const adFldLong = 128
  const adVarChar = 200
  set objRS = Server.CreateObject("ADODB.Recordset")
  
  objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
  objRS.Open
  
  objRS.AddNew
  objRS.Fields("txt").AppendChunk(varBinData)
  tmp = objRS("txt").Value
  objRS.Close
  BinToText = tmp
end function
url = "http://www2.publicistbyran.se/honda/se/news/"
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www2.publicistbyran.se/honda/se/news/default.asp", False

objHTTP.Send
strHTML = BinToText(objHTTP.responseBody,35000)
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = True
objRegExp.IgnoreCase = true

objRegExp.Pattern = "<span class=hondabrod>(.*?)</span>"

Set nyhet = objRegExp.Execute(strHTML)

For each item in nyhet
nyhet = objRegExp.Replace(item.value, "$1")

response.write nyhet & "<br>"
Next
%>
```

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

## #2 — Jesper T, 2004-09-20T23:53Z

Går säkert att göra på fler sätt, men här är ett:

```
function BinToText(varBinData, intDataSizeInBytes)
  const adFldLong = 128
  const adVarChar = 200
  set objRS = Server.CreateObject("ADODB.Recordset")
  
  objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
  objRS.Open
  
  objRS.AddNew
  objRS.Fields("txt").AppendChunk(varBinData)
  tmp = objRS("txt").Value
  objRS.Close
  BinToText = tmp
end function

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www2.publicistbyran.se/honda/se/news/default.asp", False

objHTTP.Send
strHTML = BinToText(objHTTP.responseBody,35000)
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = True
objRegExp.IgnoreCase = true

objRegExp.Pattern = "<span class=hondabrod>(.*?)</span>"

Set nyhet = objRegExp.Execute(strHTML)

sub myHondaLoop(myUrl, MyTarget)
	For each item in nyhet
		if i > 9 then exit sub
			nyhet = objRegExp.Replace(item.value, "$1")
			Response.write replace(nyhet,"href=""","target="""& MyTarget &""" href="""& MyUrl) & "<br>"
		i=i+1
	Next
end sub

call myHondaLoop("http://www2.publicistbyran.se/honda/se/news/","_blank")
```

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

## #3 — airwolf, 2004-09-21T11:22Z

Tackar!
Funger kanon, nu ska jag bara lista ut vad du gör i koden :)

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

## #4 — airwolf, 2004-09-21T11:25Z

En liten grej, just nu är det 2 radbryt mellan varje nyhet, kan man reducera det till endast 1?

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

## #5 — Jesper T, 2004-09-21T12:28Z

```
sub myHondaLoop(myUrl, MyTarget)
	For each item in nyhet
		if i > 9 then exit sub
			nyhet = objRegExp.Replace(item.value, "$1")
			Response.write replace(nyhet,"href=""","target="""& MyTarget &""" href="""& MyUrl)
		i=i+1
	Next
end sub
```

borde funka

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

## #6 — Jesper T, 2004-09-21T12:53Z

Såg lite fjunigt ut. Detta då?

```
sub myHondaLoop(myUrl, MyTarget)
	For each item in nyhet
		if i > 9 then exit sub
			nyhet = objRegExp.Replace(item.value, "$1")
			nyhet = replace(nyhet,"<br>",vbcr)
			Response.write replace(nyhet,"href=""","target="""& MyTarget &""" href="""& MyUrl) & "<br>" & vbcr
		i=i+1
	Next
end sub
```

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

## #7 — airwolf, 2004-09-21T22:58Z

Den senare funkade!
Tackar

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

## #8 — Sasch, 2004-09-22T00:14Z

Sätt gärna tråd som löst om du är nöjd med din hjälp :)

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

## #9 — airwolf, 2004-09-22T06:15Z

Trodde jag hade gjort det :\\

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/112017-xmlhttp-problem-vill-bara-lista-5-st