<%
giorno = day(now)
mese = month(now)
anno = year(now)
gset = weekday(now)

select case gset
   case 1: gsetd="Domenica"
   case 2: gsetd="Lunedì"
   case 3: gsetd="Martedì"
   case 4: gsetd="Mercoledì"
   case 5: gsetd="Giovedì"
   case 6: gsetd="Venerdì"
   case 7: gsetd="Sabato"
   case else
end select

select case mese
   case 1 : mesed="Gennaio"
   case 2 : mesed="Febbraio"
   case 3 : mesed="Marzo"
   case 4 : mesed="Aprile"
   case 5 : mesed="Maggio"
   case 6 : mesed="Giugno"
   case 7 : mesed="Luglio"
   case 8 : mesed="Agosto"
   case 9 : mesed="Settembre"
   case 10: mesed="Ottobre"
   case 11: mesed="Novembre"
   case 12: mesed="Dicembre"
   case else
end select

%>
<table border="1" cellpadding="1" cellspacing="0" bgcolor="#FFFFFF">
    <tr>
        <td align="center"><p align="center"><font color="#FF0000" size="7">
      <strong><%=giorno%><br></strong></font>

      <font size="2"><%=mesed%><br>
      <%=anno%> <br><%=gsetd%></font></p>
        </td>
    </tr>
</table>