Thierry Capezzone

<% Dim fso, f, filespec Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("/gallerie/thcapezzonefr.txt") Set f = fso.OpenTextFile(filespec,1) Do While not f.AtEndOfStream Response.write f.ReadLine & "
" Loop f.Close %>

Jan Rybka

<% Dim bfso, bf, bfilespec Set bfso = CreateObject("Scripting.FileSystemObject") bfilespec = Server.Mappath("/gallerie/Jan-Rybkafr.txt") Set bf = bfso.OpenTextFile(bfilespec,1) Do While not bf.AtEndOfStream Response.write bf.ReadLine & "
" Loop bf.Close %>