Creare un calendario settimanale impostando una data di partenza.

Questo script vi restituisce i 7 giorni successivi alla data passatagli in input, dicendovi il numero del giorno e il nome del giorno.

<% 

Sub Settimana(data) 
   arrgiorni = Split("vuoto, Dom, Lun, Mar, Merc, Gio, Ven, Sab", ", ") 

   oggi = WeekDay(data) 
   inizio_settimana =DateAdd("d", 2-oggi, data) 

   For i = 0 to 6 
     giorno = DateAdd("d", i, inizio_settimana) 
     response.write arrgiorni(Weekday(giorno)) & " " & giorno & "<br>" 
   Next 
End Sub 

Session.LCID = 1040 


'passare come parametro il giorno da cui partire aaaa/mm/gg
call Settimana (DateSerial(2003, 04, 13)) 

%>

javascript, del piero, natura, comici, foto, meteo, video, macchine sportive, programmare, shumacher, free, sorpassi, programmazione, asp, sport, filmati, maradona, automobili, script, auto