leggere e linkare da file di testo

[aboldrini]

Heila ragazzi, qualcuno di voi sa spiegarmi perchè non funziona?

Posto il codice...
<%
Dim filepath, logfile
Set fs = Server.CreateObject("Scripting.FileSystemObject")
'trova il path del file
filePath = Server.mapPath ("lista.txt")
'apri per leggere (1)
Set logfile = fs.OpenTextFile(filepath, 1)
'leggi finché End of File è diverso da true
do while logfile.AtEndOfStream <> true
%>
<%response.write logfile.ReadLine%>

<%
loop
'esci e chiudi la porta
logfile.Close
%>

Se nella riga dell'a href al posto del secondo response.write pre esempio scrivo clicca così:

<%
Dim filepath, logfile
Set fs = Server.CreateObject("Scripting.FileSystemObject")
'trova il path del file
filePath = Server.mapPath ("lista.txt")
'apri per leggere (1)
Set logfile = fs.OpenTextFile(filepath, 1)
'leggi finché End of File è diverso da true
do while logfile.AtEndOfStream <> true
%>
clicca

<%

funziona benissimo... però volevo uno script che mi elencasse e linkasse un documento di testo che altro contiene un dir > lista.txt di una directory.

grazie a tutti. Ciao ciao
loop
'esci e chiudi la porta
logfile.Close
%>

[Santino83_02]

do while logfile.AtEndOfStream <> true

leggo=logfile.ReadLine;

%>
<%=leggo%> 

<% 
loop

se funziona come in tutti i lettori di stream, ogni volta che chiami ReadLine tu sposti il cursore in avanti di una linea, quindi prob ti dava un errore in lettura perchè raggiunto l'eos del file.

[aboldrini]

Grande mago!
funziona tutto alla perfezione!
Ciao, grazie mille!

p.s. infatti mi dava un errore tipo "input dopo fine del file"