Problema com saudação

[Kalmfs 0]

Seguinte galera,

 

Coloquei o seguinte código na página p/ dar uma saudação ao user. Mas sempre dá Boa Noite, não importa a hora q seja. Onde está o erro?

 

<%  Dim dtmHour  dtmHour = Hour(Now())  If dtmHour = 5+6+7+8+9+10+11+12 Then    Response.Write "Bom dia"    Elseif dtmHour = 13+14+15+16+17 Then    Response.Write "Boa tarde"	Else	Response.Write "Boa noite"	End If%>    <%= strGreeting %>

[Patricia 0]

não testei, mas acho que é assim<%If Hour(Now()) < 12 Then Response.Write "Bom dia" Elseif Hour(Now()) < 17 Then Response.Write "Boa tarde" Else Response.Write "Boa noite"End If%>testa aí

[Kalmfs 0]

:D Funcionou sim. Valeu Patrícia.

Eu tinha acabado de conseguir só que assim:

<%  Dim dtmHour    dtmHour = Hour(Now())    If dtmHour = 5 then  Response.Write "Bom dia."  End if  If dtmHour = 6 then  Response.Write "Bom dia."  End if  If dtmHour = 7 then  Response.Write "Bom dia."  End if  If dtmHour = 8 then  Response.Write "Bom dia."  End if  If dtmHour = 9 then  Response.Write "Bom dia."  End if  If dtmHour = 10 then  Response.Write "Bom dia."  End if  If dtmHour = 11 then  Response.Write "Bom dia."  End if  If dtmHour = 12 then  Response.Write "Bom dia."  End if  If dtmHour = 13 then  Response.Write "Boa Tarde."  End if  If dtmHour = 14 then  Response.Write "Boa Tarde."  End if  If dtmHour = 15 then  Response.Write "Boa Tarde."  End if  If dtmHour = 16 then  Response.Write "Boa Tarde."  End if  If dtmHour = 17 then  Response.Write "Boa Tarde."  End if  If dtmHour = 18 then  Response.Write "Boa Noite."  End if  If dtmHour = 19 then  Response.Write "Boa Noite."  End if  If dtmHour = 20 then  Response.Write "Boa Noite."  End if  If dtmHour = 21 then  Response.Write "Boa Noite."  End if  If dtmHour = 22 then  Response.Write "Boa Noite."  End if  If dtmHour = 23 then  Response.Write "Boa Noite."  End if  If dtmHour = 00 then  Response.Write "Boa Noite."  End if  If dtmHour = 1 then  Response.Write "Boa Noite."  End if  If dtmHour = 2 then  Response.Write "Boa Noite."  End if  If dtmHour = 3 then  Response.Write "Boa Noite."  End if  If dtmHour = 4 then  Response.Write "Boa Noite."  End if %>

Valeu pela força.