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

Clicca sul prodotto per ulteriori dettagli