XMLHTTP Problem, vill bara lista 5 st

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
%>

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")

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

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

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

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

Den senare funkade!
Tackar

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

Trodde jag hade gjort det :\