<% dia_m = day(now) dia_s = weekday(now) mes = month(now) ano = year(now) hora = hour(now) If hora >= "18" And hora < "24" Then strSaudacao = "Boa noite !" End if If hora >= "0" And hora < "12" Then strSaudacao = "Bom dia !" End if If hora >= "12" And hora < "18" Then strSaudacao = "Boa tarde !" End if Select Case dia_s Case "1" dia_s = "Domingo" Case "2" dia_s = "Segunda-feira" Case "3" dia_s = "Terça-feira" Case "4" dia_s = "Quarta-feira" Case "5" dia_s = "Quinta-feira" Case "6" dia_s = "Sexta-feira" Case "7" dia_s = "Sábado" End Select 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 Response.Write dia_s & ", " & dia_m & " de " & mes & " de " & ano & ", " & strSaudacao & " " & strNome %>