FARMACIA​

....

<% response.write ("") response.write ("") response.write ("") giornodelmese="01/" & month(date()) & "/" & year(date()) giorno=1 'questo controllo risolve il probelma del mese di dicembre if (month(date())+1)>12 then anno=Year(date())+1 mese=1 else anno=Year(date()) mese=(month(date())+1) end if primodelmesesuccessivo="01" & "/" & mese & "/" & anno ultimodelmese=DateAdd("d",-1,primodelmesesuccessivo) While (giorno") giornodellaset=WeekDay(giornodelmese) for i=1 to giornodellaset-1 response.write ("") next for i=giornodellaset to 7 response.write ("") giorno=giorno+1 if giorno>day(ultimodelmese) then exit for next for i=i+1 to 7 response.write ("") next response.write ("") giornodelmese=(giorno) & "/" & month(date()) & "/" & year(date()) Wend response.write ("

" & Ucase(monthname(month(date()))) & " " & year(date()) & "
D	L	M	M	G	V	S
-	" & giorno & " ('evento.asp?gg=" & giorno & "&mm=" & mese-1 & "&aa=" & anno & "')	-

") %>