🚀 go-pugleaf

This is a multi-part message in MIME format.

------=_NextPart_000_0056_01C3D9EA.81BAE630
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hoi,

ik heb een asp scriptje geschreven waarmee ik een bepaalde webpagina op =
een externe server wil gaan inlezen. De bedoeling is later nog test =
clausules toe te voegen om slechts een bepaald deel van die pagina weer =
te geven, maar dat is dus voor later... Voorlopig kamp ik echter met een =
error. Weet iemand misschien wat er fout is aan dit script ?

<%

Set FileObject =3D Server.CreateObject("Scripting.FileSystemObject")
Set File =3D =
FileObject.OpenTextFile("http://www.gva.be/nieuws/politiek/default.asp", =
1, False, 0)

Do While not File.AtEndOfStream
  Response.write(file.ReadLine)
Loop

file.Close( )

Set FileObject =3D nothing
Set File =3D nothing

%>

Alvast bedankt !!!


Mvg,

Tom V.
------=_NextPart_000_0056_01C3D9EA.81BAE630
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1276" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hoi,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>ik heb een asp scriptje geschreven =
waarmee ik een=20
bepaalde webpagina op een externe server wil gaan inlezen. De bedoeling =
is later=20
nog test clausules toe te voegen om slechts een bepaald deel van die =
pagina weer=20
te geven, maar dat is dus voor later... Voorlopig kamp ik echter met een =
error.=20
Weet iemand misschien wat er fout is aan dit script ?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>&lt;%</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>Set FileObject =3D=20
Server.CreateObject("Scripting.FileSystemObject")<BR>Set File =3D=20
FileObject.OpenTextFile("</FONT><A=20
href=3D"http://www.gva.be/nieuws/politiek/default.asp"><FONT =
face=3DArial=20
color=3D#ff0000=20
size=3D2>http://www.gva.be/nieuws/politiek/default.asp</FONT></A><FONT =
face=3DArial=20
color=3D#ff0000 size=3D2>", 1, False, 0)</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>Do While not=20
File.AtEndOfStream<BR>&nbsp; =
Response.write(file.ReadLine)<BR>Loop</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>file.Close( =
)</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>Set FileObject =3D =
nothing<BR>Set File=20
=3D nothing</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>%&gt;</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Alvast bedankt !!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Mvg,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Tom V.</FONT></DIV></BODY></HTML>

------=_NextPart_000_0056_01C3D9EA.81BAE630--