<%
Sub CalcolaGiorno (Giorno)
select case Giorno
case 1
strGiorno="domenica"
case 2
strGiorno="lunedi"
case 3
strGiorno="martedi"
case 4
strGiorno="mercoledi"
case 5
strGiorno="giovedi"
case 6
strGiorno="venerdi"
case 7
strGiorno="sabato"
End select
End sub
%>