codice:
<%
session.LCID = 1040
oggi = date()
if oggi > cDate("30/07/2007") and oggi < cDate("06/08/2007") then
fileMessaggio = "1.txt"
elseIf oggi > cDate("05/08/2007") and oggi < cDate("13/08/2007") then
fileMessaggio = "2.txt"
elseIf oggi > cDate("12/08/2007") and oggi < cDate("20/08/2007") then
fileMessaggio = "3.txt"
elseIf oggi > cDate("19/08/2007") and oggi < cDate("27/07/2007") then
fileMessaggio = "4.txt"
elseIf oggi > cDate("26/07/2007") and oggi < cDate("03/09/2007") then
fileMessaggio = "5.txt"
else
fileMessaggio = "0.txt"
end if

percorsoFile = "\cartella\" & fileMessaggio

set fso = server.createObject("Scripting.FileSystemObject")
  if fso.fileExists(server.mapPath(percorsoFile)) then
    set file = fso.openTextFile(server.mapPath(percorsoFile))
      response.write file.readAll
    set file = nothing
  end if
set fso = nothing
%>