file .txt

[Sypher]

correzione con SkipLine nemmeno la legge!

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

ilfile.SkipLine 

do while not ilfile.AtEndOfStream
illine=ilfile.ReadLine
response.write illine
loop

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