Hej!
Jag har en vebbsida som använder sig av detta.
Jag skulle vilja läsa in innehållet på en fil via en url sökväg.
Jag vill ha in den i scriptet för att presentera en viss information som finns i den.

Jag har använt mig av, se nedan. MEN nu har dom stängt av så att man inte kan inte använda detta längre, dom har ändrat proxy konfigureringen, så det kan ju vara så att inget annat sett går att använda heller.

Är det någon som har någon lösningen eller förklaring?

Function GetText(URI)
Dim Request
Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")
Request.Open "GET", URI, False
Request.Send
GetText = Request.ResponseText
End Function


/Jan

Kanske detta kan vara till hjälp.

<code>
Function BinaryGetURL(URL)
Dim Http
Set Http = CreateObject("Microsoft.XMLHTTP")

Http.Open "GET", URL, False
Http.Send
BinaryGetURL = Http.ResponseBody
End Function

Function BinaryToString(Binary)
Dim cl1, cl2, cl3, pl1, pl2, pl3
Dim L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)

Do While cl1<=L
pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
If cl3>300 Then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
If cl2>200 Then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End If
End If
Loop
BinaryToString = pl1 & pl2 & pl3
End Function

URL = "http://www.url.com" 'URL:en som ska hämtas läggs här.
myString = BinaryToString(BinaryGetURL(URL))

Response.Write(myString) 'Skriv ut innehållet!.
</code>

Lycka till!

M V H
Johannes

Hej och tack!
Detta löste problemet för mig.
Nu funkar allt som det skall igen.

/Jan

Gott. :)