codice solo una volta al giorno

[waitec40]

Come faccio ad eseguire questo codice una sola volta al giorno dal primo visitatore della giornata?

Dim data,strNato
data = date()
strNato = left(data, 5)


sql = "SELECT * FROM tblUtenti WHERE nato="&strNato&""
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

While NOT rs.EOF
Dim strname,strcognome,strusermail,strid
strname=objRso("strnome")
strcognome=objRso("strCognome")
strusermail=objRso("strEmail")

Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = "info@xxx.com"
MyMail.To = strusermail
MyMail.Subject = "BUON COMPLEANNO"
MyMail.Body = "Auguri di buon compleanno!!"
MyMail.Importance = 2
MyMail.Send
Set MyMail = nothing

rs.MoveNext
Wend
rs.Close
set rs = Nothing

[weppos]

Inserisci una variabile application nel server oppure appoggiati ad un database. (Meglo la 1)

[waitec40]

Ignoro completamente l 'uso della variabile application, ora cerco di trovare qualcosa.
grazie

[weppos]

Originariamente inviato da waitec40
Ignoro completamente l 'uso della variabile application, ora cerco di trovare qualcosa.
grazie

E' come le session, solo che persistono sul server e valgono per tutti gli utenti.

Application("nomevariabile") = "valore"

[waitec40]

la butto li magari...

Application("compleanno") = "primo"
if compleanno="primo" then
' CODICE da FARE
end if

[weppos]

Io lo fare con una data.

if Not Application("birthday") = Date() then

' fai quello che devi

' aggiorna 
Application("birthday") = Date()

end if

[waitec40]

io devo eseguire il codice solo una volta quindi lo deve fare solo un utente unico, il primo dopo la mezzanotte, come faccio ad impedire al secondo di eseguire il codice?

[weppos]

Originariamente inviato da waitec40
io devo eseguire il codice solo una volta quindi lo deve fare solo un utente unico, il primo dopo la mezzanotte, come faccio ad impedire al secondo di eseguire il codice?

guarda il codice sopra.
Se la data è quella di oggi non esegue.
Se la data non è quella di oggi il primo utente che accede esegue ed imposta la data ad oggi per evitare che altri eseguano.