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
%>