<%
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
%>
