messaggio a scadenza

[djjunior]

Cari AMICI,
ho urgente bisogno di abilitare ad un sito di un mio cliente dei messaggi con scadenza.
In pratica non potendo accedere nel periodo di agosto, il mio cliente settimanalmente vorrebbe cambiare un piccolo messaggio di testo con l'offerta della settimana, sull'home in asp naturalmente e senza db.
Attualmente per comodità avveniva manualmente.
Come posso fare?
Ne vale delle mie ferie, aiutatemi.
Grazie
G.

[Mems]

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

[djjunior]

Grazie, grazie, grazie 100000
Lo script funziona alla GRANDE.
Ciao
G.