<%
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 = "TENHA UMA BOA NOITE !"
End if
If hora >= "0" And hora < "12" Then
strSaudacao = "TENHA UM BOM DIA !"
End if
If hora >= "12" And hora < "18" Then
strSaudacao = "TENHA UMA 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
teste ="Rio" & ", " & dia_m & " de " & mes & " de " & ano & ". " & " " & strNome
%>
