동구밖과수원 2010. 11. 4. 14:20

<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>