Calendario

[capitanonemo78]

<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???

[br1]

<script LANGUAGE="vbscript">
<!--
miaData = DateSerial(2004, 12, 25) ' anno,mese,giorno
document.write ("<p align='center'><table border=5>")
...

poi cambia tutti i date() in miaData

ciao

[capitanonemo78]

Originariamente inviato da br1
<script LANGUAGE="vbscript">
<!--
miaData = DateSerial(2004, 12, 25) ' anno,mese,giorno
document.write ("<p align='center'><table border=5>")
...

poi cambia tutti i date() in miaData

ciao

Grazie provvedo subito e ti faccio sapere.

[capitanonemo78]

Originariamente inviato da br1
<script LANGUAGE="vbscript">
<!--
miaData = DateSerial(2004, 12, 25) ' anno,mese,giorno
document.write ("<p align='center'><table border=5>")
...

poi cambia tutti i date() in miaData

ciao

Ok!!! Però io vorrei poter cambiare mese e anno mediante un form in modo dinamico, cioè selezionando un mese o un anno dovrebbero apparire immediatamento. Io ci ho provato ma non riesco, se qualcuno ci riesce gliene sarei grato.(Ovviamente sempre in vbscript)

[capitanonemo78]

UP!!!

[br1]

Lo script usa document.write() per disegnare il calendario nel momento in cui si carica la pagina.

E' possibile adattarlo per agire su una popup o in un altro frame... meno facile (ma non impossibile) sulla stessa pagina... scegli

ciao

[capitanonemo78]

Originariamente inviato da br1
Lo script usa document.write() per disegnare il calendario nel momento in cui si carica la pagina.

E' possibile adattarlo per agire su una popup o in un altro frame... meno facile (ma non impossibile) sulla stessa pagina... scegli

ciao

Quello che volevo realizzare era un calendario che potesse visualizzare il mese e l'anno scelto nella stessa pagina mediante un form (form presente nella stessa pagina di visualizzazione del calendario).
Io ci ho provato senza riuscirci, forse anche perchè sono alle prime armi. Quindi un tuo aiuto mi farebbe molto piacere.

[capitanonemo78]

UP!!!

[capitanonemo78]

Le vacanze sono passate, si torna al lavoro, ma io ho sempre lo stesso problema che non riesco a risolvere. AIUTOOOOO!!!!!!