Eventi settimanali che si ripetono

[semolino]

Nel mio database ho degli eventi che ogni settimana si ripetono. Ora io di giorno in giorno vado a modificare il campo data in modo che oggi, lunedì 13 lo faccio diventarè lunedi 20; cosi per tutti gli altri giorni. Se però gli eventi sono tanti diventa un lavoro complicato.
Vorrei fare in modo che questo venga fatto automaticamente!
Pensavo di fare cosi:
Invece di avere un campo data, dove metto la data, pensavo di mettere il giorno della settimana.
Ottengo una serie di record che avranno come valori del campo Lunedì, Martedì, ... Domenica.

Ora come posso creare una funzione che va a leggere il giorno e poi controlla che se il giorno:
- della settimana è oggi >> mette la data di oggi;
- della settimana è già passato mette quella della settimana seguente?
:master:

[weppos]

Invece del giorno metti il numero corrispondente al giorno (1 = Sunday, 2 = Monday...).

Dopo di che con la funzione WeekDay ti gestisci un sistema che ti aggiorni automaticamente il tutto, eventualmente tenendo da parte una data che rappresenti l'ultimo aggiornamento di ciascun record.

[semolino]

eventualmente tenendo da parte una data che rappresenti l'ultimo aggiornamento di ciascun record

Intendi la data del giorno corrente?

Provo a buttare giù un po di codice...

[semolino]

Allora io ho:

dtmToDay = (Now)

Dopodichè ho i vari record che mi estraggono il numero del giorno:
1 = Domenica, 2 = Lunedì...

Mettiamo che oggi (mercoledì) escono a video i 3 diversi record con 4,6,2 (nel campo giorno).

Dato che oggi è = dtmToDay (ovvero 15/06/2005)
Il sistema dovrebbe restituire in automatico:

AAA , giorno Mercoledì 15 Giugno
BBB , giorno Venerdì 17 Giugno
CCC , giorno Lunedì 20 Giugno

Può essere giusto un ragionamento del genere?

If Weekday(dtmToDay) = rs("giorno") Then
 Response.Write WeekdayName(weekDay(dtmToDay), False) & "" & Weekday(dtmToDay)
 Else
 Weekday(dtmToDay) < rs("giorno") Then
 ...vai alla data più vicina al quel giorno che corrsiponde al numero del giorno (rs("giorno") )...
End If

E' corretto? La seconda parte della funzione, ammesia sia giusto, come la eseguo?

[semolino]

Riguardando il codice mi sono accorto che il ragionamento non funziona molto!

una cosa che non avevo detto è che ci possono essere divevrsi record che hanno come valore lo stesso giorno (inteso come numero del giorno da 1 a 7).

Gi eventi legati a questi record si ripetono ogni settiimana in modo identico, quindi io mostro tutti i record della settimana. Ad esempio non voglio che il record che ha come giorno 3 (martedì) venga ripetuto all'infinito a video ogni martedi, ma che compaia di settimana in settimana.

Tornando al codice come posso dire al sistema ch se il record ha come risposta 5 mi prenda:
se oggi è 5 -> venerdì
se oggi è 2 -> venerdì
se oggi è 6 -> venerdì della settimana che deve ancora iniziare?

[Shagrat]

Sarò io ma non ho capito cosa devi fare...
devi fare una specie di settimanario e in ogni giorno ci sono dentro i record di quel giorno?

[semolino]

Allora io ho degli eventi inseriti nel database.
Ogni singolo evento ha come riferimento il giorno della settimana.
Ammettiamo di avere tre record inseriti:
A, giovedì
B, venerdì
C, martedì

Ogni settimana sono sempre gli stessi, ok?

Quindi devo fare in modo che ai tre eventi venga associata la data della settimana in corso.

Se li controllo oggi (Sabato 18 Giugno) a video otterrò:
A, giovedì 23 Giugno
B, venerdì 24 Giuigno
C, martedi 22 Giugno

E' più chiaro ora?

[semolino]

Ho provato a realizzare un altro codice di questo tipo:

Dim dtmToDay
dtmToDay = Date()

sql="SELECT * FROM giorni Order by numeri Desc"
                                             call apridb(sql, rs, conn) 
                                                             if rs.recordcount>0 then 
                                                               while not rs.eof 
                                                         %>
                                                       <%
                                                   
        If WeekDay(dtmToDay) = rs("numeri")  Then
       Response.Write(WeekdayName(weekDay(dtmToDay), False) & "" & Day(dtmToDay) & "" & MonthName(Month(dtmToDay))) 
       Else                                                                    
        Response.Write("NO")
    End IF
 
   %>
                                  <% 
                                                                  rs.movenext 
                                                          wend 
                                                           end if 
                                                               call chiudidb(rs, conn) 
                                                       %>

Dim dtmToDay
dtmToDay = Date()


sql="SELECT * FROM giorni Order by numeri Desc"
call apridb(sql, rs, conn)
if rs.recordcount>0 then
while not rs.eof
%>
<%

If WeekDay(dtmToDay) = rs("numeri") Then
Response.Write(WeekdayName(weekDay(dtmToDay), False) & "" & Day(dtmToDay) & "" & MonthName(Month(dtmToDay)))
Else
Response.Write("NO")
End IF

%>
<%
rs.movenext
wend
end if
call chiudidb(rs, conn)
%>
Dim dtmToDay
dtmToDay = Date()


sql="SELECT * FROM giorni Order by numeri Desc"
call apridb(sql, rs, conn)
if rs.recordcount>0 then
while not rs.eof
%>
<%

If WeekDay(dtmToDay) = rs("numeri") Then
Response.Write(WeekdayName(weekDay(dtmToDay), False) & "" & Day(dtmToDay) & "" & MonthName(Month(dtmToDay)))
Else
Response.Write("NO")
End IF

%>
<%
rs.movenext
wend
end if
call chiudidb(rs, conn)
%>
Dove stampo NO, devo eseguire il calcolo sulle date in modo da far stampare il valore della data più vicina.
Questo codice funziona.
Mi mostra la data di oggi solo nei due record che hanno 2 nel database (la data è rifrerita al giorno in cui ho fatto la prova).