ASP/VBScript Select Case

<%
Select Case value
    Case expression1
        [statements 1] . . .
    Case expression2
        [statements 2] . . .
    Case expression3
        [statements 4] . . .
    Case Else
        [elsestatements]
End Select
%>

<%
Dim A
A = 3
Select Case A
	Case "1"
		Response.write("A = 1 <br>")
	Case "2"
		Response.write("A = 2 <br>")
	Case "3"
		Response.write("A = 3 <br>")
	Case Else
		Response.write("A = "&A)
End Select
%>