Ciao e grazie, mi è abbastanza chiara la logica ma non riesco a tradurre in codice quello che mi hai indicato, puoi aiutarmi? questo è quello che le mie limitate conoscenze hanno prodotto fino ad ora:
<%
Set Ricette = Server.CreateObject("ADODB.Recordset")
Dim SQLRicette
' estrai il julian day (jd) dalla data corrente ovvero il giorno dell'anno
jd= DatePart("y",date()) ' attenzione la y deve essere minuscola altrimenti assume un altro significato.
Ricette = 200 ' numero ricette nel db
A = 1 '(1° Giorno dell'anno -> 01/01/2010)
X = (Oggi -> 05/08/2010)'Generi la data giuliana del giorno corrente
F = X-A = (2455414-2455198) = 216 'Calcoli quanti giorni sono trascorsi da inizio anno (F)
'Fai un ciclo while finchè il numero non è più basso del numero di ricette a disposizione
Do While (F>Ricette)
F = F-Ricette
Next
'Hai F (normalizzato)in questo esempio
F = (216-200) = 16
SQLRicette = "SELECT * FROM Ricette WHERE id =" & jd
Ricette.Open SQLRicette, Cn,1
%>