BUNKER Corporation
| Guest BOOK
Cerca nel Sito |
 |
Bunker Home Page |
<%
response.write "Sono le "
response.write Time()
response.write " del giorno "
response.write day(date()) & "/" & month(date()) & "/" & Year(Date())
if datepart("h", time())>= 12 then
'è pomeriggio
response.write "
"
response.write " Buon pomeriggio"
else
' è mattina
response.write " Buongiorno"
end if
%>
<%
'calcolo il giorno
Dim Arrdow
arrdow = Array("Domenica", "Lunedì", "Martedì", "Mercoledì", "Giovedì", "Venerdì", "Sabato")
response.write " E' "
response.write arrdow(datepart("w", Date())- 1)
'calcolo il mese
Dim arrmese
arrmese = Array("Gennaio", "Febbraio", "Marzo", "Aprile", "Maggio", "Giugno",_
"Luglio", "Agosto", "Settembre", "Ottobre", "Novembre", "Dicembre")
Response.write ", siamo in "
response.write arrmese(datepart("m", date())-1)
%>
