<%@ Page Language="VB" %>
<script runat="server">
sub Page_Load(Sender as object, e as eventargs)
dim strClockStatus As String
strClockStatus = "AAA"
select Case strClockStatus
case "AAA", "BBB", "CCC"
Response.Write("A")
case "DDD"
Response.Write("B")
case else
Response.Write("C")
end select
end sub
</script>
<html><body>
</body></html>