help asp plz (code source bug)

lorsque je lance cette page sur mon pc (windows xp pro + iis5.1 en marche) y me dit erreur a while not
quel est le problem?
en fait je veux afficher le code source du fichier present dands un autre dossier de /wwwroot
<%
set FSO = Server.CreateObject("scripting.FileSystemObject")
Fnm = Server.MapPath("/Tutorial/tutorial.Asp")
set inF = FSO.OpenTextFile(Fnm,1,false)
While not
response.write(inF.readLine &"<br>")
Wend
%>



<--webmaster du site www.boostpc.com -->

Ben while not quoi???
Il manque la condition



-------------------------------
Réponse au message :
-------------------------------

> lorsque je lance cette page sur mon pc (windows xp pro + iis5.1 en marche) y me dit erreur a while not
> quel est le problem?
> en fait je veux afficher le code source du fichier present dands un autre dossier de /wwwroot
> <%
> set FSO = Server.CreateObject("scripting.FileSystemObject")
> Fnm = Server.MapPath("/Tutorial/tutorial.Asp")
> set inF = FSO.OpenTextFile(Fnm,1,false)
> While not
> response.write(inF.readLine &"<br>")
> Wend
> %>
>
>
>
> <--webmaster du site www.boostpc.com -->

il faut préciser la condition de fin de la boucle, cad "Tant que xxxx n'est pas vrai, faire"

Dans ton cas, tu dois arreter la boucle en fin de fichier donc tu testes la fin de celui-ci.

Regarde ici :
http://www.asp-php.net/tutorial/asp-php/lecture.php

F___


-------------------------------
Réponse au message :
-------------------------------

> lorsque je lance cette page sur mon pc (windows xp pro + iis5.1 en marche) y me dit erreur a while not
> quel est le problem?
> en fait je veux afficher le code source du fichier present dands un autre dossier de /wwwroot
> <%
> set FSO = Server.CreateObject("scripting.FileSystemObject")
> Fnm = Server.MapPath("/Tutorial/tutorial.Asp")
> set inF = FSO.OpenTextFile(Fnm,1,false)
> While not
> response.write(inF.readLine &"<br>")
> Wend
> %>
>
>
>
> <--webmaster du site www.boostpc.com -->

moi ca marche pas ca:
<%
set FSO = Server.CreateObject("scripting.FileSystemObject")
Fnm = Server.MapPath("/TutorialASP/tutorial.Asp")
set inF = FSO.OpenTextFile(Fnm,1,false)
While not inF.atEndOfStream
response.write(inF.readLine &"<br>")
Wend
inF.close
%>
il fait une boucle infini et lme chargement de la page ne s'arrete jamais
je voudrais aussi pouvoir via cette commande afficher le code source asp de la page tutorial.asp

-------------------------------
Réponse au message :
-------------------------------

> Ben while not quoi???
> Il manque la condition
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > lorsque je lance cette page sur mon pc (windows xp pro + iis5.1 en marche) y me dit erreur a while not
> > quel est le problem?
> > en fait je veux afficher le code source du fichier present dands un autre dossier de /wwwroot
> > <%
> > set FSO = Server.CreateObject("scripting.FileSystemObject")
> > Fnm = Server.MapPath("/Tutorial/tutorial.Asp")
> > set inF = FSO.OpenTextFile(Fnm,1,false)
> > While not
> > response.write(inF.readLine &"<br>")
> > Wend
> > %>
> >
> >
> >
> > <--webmaster du site www.boostpc.com -->
>