Zamana göre selamlama

<% select case Hour(now)
case 1,2,3,4,5,24,23
Response.write("<h1>İyi geceler</h1>")
case 6,7,8,9,10,11,12
Response.write("<h1>İyi Sabahlar</h1>")
case 13,14,15,16
Response.write("<h1>İyi Öğlenler</h1>")
case else
Response.write("<h1>İyi Akşamlar</h1>")
end select %>