<%@ Page Language="VB" %>
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