Luitjes,
Voor eigen gebruik haalde ik altijd de nieuwspagina van teletekst (101) op middels onderstaand sciptje. Echter, sinds kort lukt (mag) dat niet meer: You don't have permission to access /tekst/101-01.html on this server.
Volgens mij doet dit scriptje hetzelfde als een browser. Wat zullen ze veranderd hebben aan hun config?
Voor eigen gebruik haalde ik altijd de nieuwspagina van teletekst (101) op middels onderstaand sciptje. Echter, sinds kort lukt (mag) dat niet meer: You don't have permission to access /tekst/101-01.html on this server.
Volgens mij doet dit scriptje hetzelfde als een browser. Wat zullen ze veranderd hebben aan hun config?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| <%
Function getPage (method, url, data)
Set objXmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
With objXmlHttp
.Open method, url, False
.SetRequestHeader "REFERER", url
If method = "post" Then
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
End If
.Send data
End With
stream = objXmlHttp.responseBody
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Type = 2
.WriteText (stream)
.Position = 0
.Charset = "latin1"
End With
getPage = objStream.ReadText(-1)
objStream.close
Set objStream = Nothing
Set objXmlHttp = Nothing
End Function
getPage ("get","http://teletekst.nos.nl/tekst/101-01.html",null)
%> |