---
title: "XMLHTTP"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/71226-xmlhttp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2003-03-16T13:25:47.000Z"
updated: "2003-03-16T15:41:45.000Z"
replies: 1
views: 244
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/71226-xmlhttp"
---

# XMLHTTP

## #1 — Asa, 2003-03-16T13:25Z

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!

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

## #2 — Denkan, 2003-03-16T15:41Z

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

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/71226-xmlhttp