file .txt

[supergeniux]

<% 
Dim illine 
Dim file 
Dim ilfile 
ilfile=server.MapPath("file.txt") 
Set file = CreateObject("Scripting.FileSystemObject") 
Set ilfile = file.OpenTextFile(ilfile, 1, False) 

counter=0 
do while not ilfile.AtEndOfStream 
counter=counter+1 
illine=ilfile.ReadLine 
loop 

ilfile.Close 
set ilfile=nothing 
set file=nothing 
%>