ho pensato di adattare lo script
evidenziando il fondo del giorno
ma mi evidenzia in questo caso solo l'ultimo giorno cič il 15
il ciclo for non dovrebbe restituire in questo caso 10,11,12,13,14 e 15 compreso ??

dove sbaglio :master: qualche mi da qualche delucidazione?


if not (rsAllUsers.EOF) then
dal = rsAllUsers.Fields.Item("dal").Value
al = rsAllUsers.Fields.Item("al").Value
'Estrapolo il giorno
inizio = Day(dal)
fine = Day(al)


Dim cont
for cont = (inizio) to (fine)
if cont = i then
bgcolor="green"
else
bgcolor="white"
end if
next



if giornoSettimana = 1 Then
color = "red"
else
color = "gray"
end if


response.write "<td width=""80"" class=""" & classe & """><span style='color:"&color&"; background:"&bgcolor&"' ;>" & i & " " & gSettimana & "</span></td>"









end if
end if
next

response.write "</tr></table>" & vbCrLf
%>
<%
rsAllUsers.Close()
%>