Seus documentos nas pontas dos dedos, em qualquer lugar do mundo...
<%
dim shora
dim mensagem
dim data
dim dataext
dim mes
dim dia
shora = hour(now)
mes = month(date)
ano = year(date)
dia = day(date)
select case mes
case 1
mes="Janeiro"
case 2
mes="Fevereiro"
case 3
mes="Março"
case 4
mes="Abril"
case 5
mes="Maio"
case 6
mes="Junho"
case 7
mes="Julho"
case 8
mes="Agosto"
case 9
mes="Setembro"
case 10
mes="Outubro"
case 11
mes="Novembro"
case 12
mes="Dezembro"
end select
dataext = "São José dos Campos, " & dia & " de " & mes & " de " & ano
select case shora
case 0,1,2,3,4,5,6,7,8,9,10,11
mensagem = "Bom dia!"
case 12,13,14,15,16,17
mensagem = "Boa tarde!"
case 18,19,20,22,23
mensagem = "Boa noite!"
end select
%>
