Mensaje por dia con asp, pero el codigo tiene problemas

[Learing]

Este codigo fue arreglado por Ysdragil

<%
Dim tu_mensaje
Select Case Weekday(Date())
case"1"
tu_mensaje="Escribe tu mensaje aqui para domingo"
case"2"
tu_mensaje="Escribe tu mensaje aqui para lunes"
case"3"
tu_mensaje="Escribe tu mensaje aqui para martes"
case"4"
tu_mensaje="Escribe tu mensaje aqui para miércoles"
case"5"
tu_mensaje="Escribe tu mensaje aqui para jueves"
case"6"
tu_mensaje="Escribe tu mensaje aqui para viernes"
case"7"
tu_mensaje="Escribe tu mensaje aqui para sabado"
case""
tu_mensaje="Hubo un error"
End Select %>
<%= tu_mensaje %>

Gracias Ysdragil por tu gran ayuda.