<%
ilfile=server.mappath("test.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
' response.write illine & " "
loop
ilfile.Close
set ilfile=nothing
set file=nothing
'--------------------------------------secondo file
ilfile=server.mappath("test1.txt")
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)
counter=0
do while not ilfile.AtEndOfStream
counter=counter+1
illine1=ilfile.readline
' response.write illine & " "
loop
ilfile.Close
set ilfile=nothing
set file=nothing
'--------------------------------------terzo file
ilfile=server.mappath("test2.txt")
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)
counter=0
do while not ilfile.AtEndOfStream
counter=counter+1
illine2=ilfile.readline
' response.write illine & " "
loop
ilfile.Close
set ilfile=nothing
set file=nothing
'--------------------------------------quarto file
ilfile=server.mappath("test3.txt")
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)
counter=0
do while not ilfile.AtEndOfStream
counter=counter+1
illine3=ilfile.readline
' response.write illine & " "
loop
ilfile.Close
set ilfile=nothing
set file=nothing
'--------------------------------------quinto file
ilfile=server.mappath("test4.txt")
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)
counter=0
do while not ilfile.AtEndOfStream
counter=counter+1
illine4=ilfile.readline
' response.write illine & " "
loop
ilfile.Close
set ilfile=nothing
set file=nothing
'--------------------------------------sesto file
ilfile=server.mappath("test5.txt")
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)
counter=0
do while not ilfile.AtEndOfStream
counter=counter+1
illine5=ilfile.readline
' response.write illine & " "
loop
ilfile.Close
set ilfile=nothing
set file=nothing
%>
D'ANCORA & FOX - www.dancoraefox.it
