<% Dim daHour daHour = Hour(Now) If (daHour < 12 and daHour >= 6) Then Saludo = "Buenos días, " ElseIf daHour =< 18 and daHour >= 12 Then Saludo = "Buenas tardes, " Else Saludo = "Buenas noches, " End If %>