Codice:
<%
Function ParteDelGiorno()
Dim cheora
Dim messaggio
cheora = Hour(Now)
messaggio = ""
Select case cheora
case 8,9,10,11,12
messaggio = "Buongiorno"
case 13,14,15,16,17
messaggio = "Buon pomeriggio"
case 18,19,20,21,22,23,24
messaggio = "Buonanotte"
case else
messaggio = "Salve nottambulo"
End Select
ParteDelGiorno = messaggio
End Function
%>
<% Response.Write ParteDelGiorno() %>vorrei che il testo sia formattato con il carattere verdana, la dimensione 1, e il colore white.
jan mi aiuti???
