<HTML>
<HEAD>
<TITLE>Select Case문</TITLE>
</HEAD>
<BODY>
<%
Dim strScore
strScore = "Gold"
Select Case strScore
Case "Gold"
Response.Write"회원님의 등급은 골드입니다."
Case "Silver"
Response.Write"회원님의 등급은 실버입니다"
Case Else
Response.Write"회원님의 등급은 일반입니다"
End Select
%>
</BODY>
</HTML>