codice:
<script LANGUAGE="vbscript"> 
<!-- 
document.write ("<p align='center'><table border=5>") 
document.write ("<tr><td align=center colspan=7>" & Ucase(monthname(month(date()))) & " " & year(date()) & "</td></tr>") 
document.write ("<tr><td><font color='#FF0000'>Domenica</font></td><td>Lunedì</td><td>Martedì</td><td>Mercoledì</td><td>Giovedì</td><td>Venerdì</td><td>Sabato</td></tr>") 
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<day(ultimodelmese)) 
document.write ("<tr>") 
giornodellaset=WeekDay(giornodelmese) 
for i=1 to giornodellaset-1 
document.write ("<td> </td>") 
next 
for i=giornodellaset to 7 
if i<>1 then 
document.write ("<td><p align='center'>" & giorno & "</p></td>") 
else 
document.write ("<td><p align='center'><font color='#FF0000'>" & giorno & "</font></p></td>") 
end if 
giorno=giorno+1 
if giorno>day(ultimodelmese) then exit for 
next 
for i=i+1 to 7 
document.write ("<td> </td>") 
next 
document.write ("</tr>") 
giornodelmese=(giorno) & "/" & month(date()) & "/" & year(date()) 
Wend 
document.write ("</table></p>") 
//--> 
</script>
Chi mi da una mano a modificare il codice per ottenere un calendario dinamico(nel quale si può cambiare mese e anno) sempre in vbscript???