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