<% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %>


Bulletin d'informations

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