Salve ho bisogno di un aiuto per risolvere due problemi:
1)sto usando in seguente codice in vbscript per la generazione di un calendario:
<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>
c'è qualcuno di voi in grado di aiutarmi a modificarlo in modo da poter cambiare il mese e l'anno??(Sempre in Vbscript)
2)avrei bisogno di uno script sempre in Vbscript che mi calcoli quando cade il giorno di pasqua.
Se vi state chiededo perchè ho bisogno che sia in vbscript è perchè il progetto che devo realizzare deve essere realizzato con questo linguaggio.
Speriamo possiate aiutarmi.
