Aparecendo Mensagens usando Select Case com hora e minutos

[lordstarlight 0]

Olá pessoal,

 

Estou tentando faze um código que apareça mensagens diferentes de acordo com hora do pc.

Muito bem, tem um código que faz +- o q quero, o problema agora é adaptá-lo.

<%   horadodia = hour(now) Select Case horadodia Case 0,1,2,3,4,5,6,7,8,9,10,11,12 response.write "Bom-Dia!!" Case 13,14,15,16,17,18 response.write "Boa-Tarde!!" Case 19,20,21,22,23 response.write "Boa-Noite!!" End Select%>

Eu quero que seja levado em consideração os minutos:

Exemplo:

 

de 00:00 h até as 02:30 h aparecer a mensagem "x"

de 02:30 h até as 06:00 h aparecer a mensagem "y" e assim por diante

 

tem como?

 

Valeu pela a ajuda http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[<%Rafael%> 0]

If Time() > #2:30:00# AND Time() < #6:30:00$ ThenResponse.Write(mensagem)ElseIf Time() > #6:30:00# AND Time() < #10:30:00# ThenResponse.Write(mensagem)ElseResponse.Write(mensagem)End If

[lordstarlight 0]

Valeu mesmo, ajudou muito.