<% session.LCID = 1046 dim dia(7) dia(1)="Domingo" dia(2)="Segunda-feira" dia(3)="Terça-feira" dia(4)="Quarta-feira" dia(5)="Quinta-feira" dia(6)="Sexta-feira" dia(7)="Sábado" dim mes(12) mes(1)="Janeiro" mes(2)="Fevereiro" mes(3)="Março" mes(4)="Abril" mes(5)="Maio" mes(6)="Junho" mes(7)="Julho" mes(8)="Agosto" mes(9)="Setembro" mes(10)="Outubro" mes(11)="Novembro" mes(12)="Dezembro" Select Case Hour(now()) Case 0,1,2,3,4,5,6,7,8,9,10,11,12 Response.Write "Bom dia! Mogi das Cruzes, " Case 13,14,15,16,17 Response.Write "Boa Tarde! Mogi das Cruzes, " Case else Response.Write "Boa Noite! Mogi das Cruzes, " End Select Response.write dia(weekday(now()))&", "&day(now())&" de "& mes(month(now()))&" de "& year(now()) %>