algo asi te pudiera servir... creo...
Cita: sub Bienvenida
Dim hora
hora = Hour(Time())
'Empezamos la comprobaciones de tiempo.
If hora > 6 and hora <= 12 then
Response.Write "<strong>Buenas Días "& hora &"</strong><br />"
ElseIf hora > 12 and hora <= 19 then
Response.Write "<strong>Buenas Tardes "& hora &"</strong><br />"
ElseIf hora > 19 and hora <= 24 then
Response.Write "<strong>Buenas Noches "& hora &"</strong><br />"
ElseIf hora >= 0 and hora < 7 then
Response.Write "<strong>Buenas Noches "& hora &"</strong><br />"
End If
end sub
