帮我看看为什么红色代码部分不能实现功能
<%Response.write(Time())
Response.Write(Hour(Time()))
mydate=Hour(Time())
Response.Write(mydate)
Select Case mydate
Case 12,13,14,15,16,17,18
Response.write("下午好!")
Case 19,20,21,22,23,24
Response.write("晚上好!")
Case 0,1,2,3,4,5,6
Response.write("夜间好!")
Case 7,8,9,10,11
Response.write("早上好!")
End Select
if ((mydate>=12) and (mydate <=18)) Then Response.write("下午好!")
Else If ((mydate>18)and(mydate<=24)) Then Response.write("晚上好!")
Else If ((mydate>0)and(mydate<=6)) Then Response.write("夜间好!")
Else ((mydate>6)and(mydate<12)) Then Response.write("早上好!")
End If