<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="/statics/demosource/showrazor.css" />
</head>
<body>
<span class="marked">@Code
Dim weekday=DateTime.Now.DayOfWeek
Dim day=weekday.ToString()
Dim message=""
End Code
</span>
<html>
<body>
<span class="marked">@Select Case day
Case "Monday"
message="This is
the first weekday."
Case "Thursday"
message="Only one day before
weekend."
Case "Friday"
message="Tomorrow is weekend!"
Case Else
message="Today is " & day
End Select
</span><p><span class="marked">@message</span></p>
</body>
</html>
</body>