Typer stemmer ikke overens: '[string: "20:59"]'

Hejsa

Har et lille problem med mit asp .
jeg vil lave et script som viser tidspunktet på dagen og om det er morgen eftermiddag, etcetc udfra det tidspunkt
men browseren kommer hele tiden ud med ovennævnte fejlbesked :-(

koden er i bunden :)
heeelp please :)

Venlig Hilsen
Tommy

<% @language=VBscript %>
<% Option explicit %>

<%
          dim Tidspunkt
          dim Morgen
          dim Formiddag
          dim Eftermiddag
          dim Aften
          dim Nat
         
          Tidspunkt = FormatDateTime(Time,4)
         
          select case Tidspunkt
         
              case 4,5,6,7,8
              Tidspunkt = "Morgen"
                           
              case 9,10,11,12
              Tidspunkt = "Formiddag"
             
              case 13,14,15,16,17
              Tidspunkt = "Eftermiddag"
             
              case 18,19,20,21,22,23
              Tidspunkt = "Aften"
             
              case 24,1,2,3
              Tidspunkt = "Nat"
         
          end select
         
    response.write Tidspunkt
   
    %>