hent indhold fra en asp side

dim objXMLHTTP, resultat, html, url
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

url = "http://www.test.dk/test.htm"

objXMLHTTP.Open "GET", url, false 
On Error Resume Next
objXMLHTTP.Send

html = objXMLHTTP.responseText
Set objXMLHTTP = Nothing

Indholdet er nu i variablen "html".
Du skal så finde ud af hvor knappen indsættes, i html koden. Derefter bruger du left:

html = left(html, slut_position)

slut_position er positionen af html tag'et:
<input type="button"....>

Rettelse:
dim objXMLHTTP, html, url

"resultat" var en del af mit tidligere projekt :)

Husk:
Hvis der er flere <input type="button"...">, så tager den den først.
Dvs, du skal kigge i html koden på test.htm, og finde et specifikt område, du kan bruge.

den tekst jeg skal bruge starter efter denne streng:
<table cellspacing="0" cellpadding="0" width="732" border="0"><tr><td>

og slutter efter denne streng:
<br><br><a href="java script:history.back()"><img src="tilbage.gif" border="0" width="72" height="20"></a>

Jeg skriver følgende for at pille teksten ud:

html = right(html, "<table cellspacing="0" cellpadding="0" width="732" border="0"><tr><td>")

html = left(html, "<br><br><a href="java script:history.back()"><img src="tilbage.gif" border="0" width="72" height="20"></a>")

Probelmet er at i strengen er der jo "er og så ved den ikke hvor strengen starter og hvor den sutter, hvad gør jeg ?

Så skal du bruge mid i stedet..
dim start, slut

start = "<table cellspacing=""0"" cellpadding=""0"" width=""732"" border=""0""><tr><td>"

slut = "<br><br><a href=""java script:history.back()""><img src=""tilbage.gif"" border=""0"" width=""72"" height=""20""></a>"

html = mid(html, inStr(html, start), inStr(html, slut) - inStr(html, start) )

den har også nogle problemer med at læse æ, ø, å kan man gøre noget ved det?

Mht "æ, ø, å" har jeg selv et problem med det.. jeg kan ikke fikse det..
Jeg har endda oprettet et spm om det, men der er ikke kommet svar endnu:
http://www.eksperten.dk/spm/443964

det må jeg så hellere følge lidt med i.

den måde du skrev før jeg kunne pille teksten ud, kan jeg ikke få til at virke, den piller ikke noget fra. Er du sikker på det virker når du skriver ""?

Ja, enten er det "" (2 stk) eller """ (3 stk)..
Har du et link til siden, så jeg bedre kan lave koden?

jeg kan desværre ikke oplyse dig linket :-(

Jeg har prøvet med 3 ", men der fejler den :-(

Nå, men så tager bare noget kode, fra et andet sted.. :)
Kigger lige på det..

Prøv med "" (2 stk) og:
html = mid(html, inStr(html, start), inStr(html, start) - inStr(html, slut))

hmm.. det skal være: inStr(html, slut) - inStr(html, start))

det virker heller ikke, det virker underligt, at den hver gang smider alt html koden ud, men hvis ikke den kan tage æ,ø,å, så kan jeg ikke bruge den metode, så må jeg lave det med en iframe i stedet, og så bare acceptere den knap der er i bunden.

Du må gerne lave et svar så du kan få nogle point.

Nah.. problemet blev ikke rigtigt løst.. du smider bare selv et svar, og accepterer det.
Det er helt OK med mig :)

okat, svar