XMLHTTP

Hur hämtar man ut ex nyheter från en sida som innehåller massa htmlkod?

Vill hämta ex detta:

<img src="gfx/newsikon.gif" border="0"> 2003-02-28 - <a target="_blank" href="nyhet.asp">Rubrik</a><br><br>

Och ovanför detta ligger massa htmlkod och samma sak nedanför

Har denna kod nu:

          <%Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")

          objHTTP.Open "GET", "http://sidan.com", False
          objHTTP.Send
                    strHTML=objHTTP.responseBody
          Set objHTTP = Nothing

          strHTML = Unicode(strHTML)
          Response.Write strHTML

          Function Unicode(strResponseBody)
              Dim i, t
              t = String(LenB(strResponseBody), " ")
              t = ""
              For i = 1 To LenB(strResponseBody)
                  t = t & Chr(AscB(MidB(strResponseBody, i, 1)))
              Next
              Unicode = t
          End Function%>

VIll helst kunna plocka ut ex 5 stycken bara!

<%
Function getNews(n)
sFind = "<img src=""comment.gif"" border=""0"">"
eFind = "<br><br>"

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.porrnyheter.nu", False
objHTTP.Send
str = objHTTP.responseText
Set objHTTP = Nothing

str = Right(str,Len(str)-InStr(str,sFind)+1)
str = Left(str,InStr(str,"<hr color=""black"">")-1)

i = 0
Do Until i = n OR InStr(str,sFind) < 1
i = i --1

spos = InStr(str,sFind)
rstr = Right(str,Len(str)-spos+1)
epos = InStr(rstr,eFind)-1

substr = Mid(str,spos,epos)
substr = Replace(substr,"comment.gif","http://www.porrnyheter.nu/comment.gif")
substr = Replace(substr," - <a target=""_blank"""," | <a target=""_blank""")
myStr = myStr & "<br>" & substr

str = Right(str,Len(str)-spos-Len(substr)+1)

Loop

getNews = myStr
End Function

Response.Write(getNews(20))
%>