ได้แล้วค่ทำแบบนี้ก็ง่ายๆและได้ผลดี <%
Dim Ab
Ab = 11
Select Case Ab
Case "1","2","3","4"
Response.write("A =Level 1 br>")
Case "5","6","7","8"
Response.write("A =Level 2 <br>")
Case "9","10","11"
Response.write("A =Level 3 <br>")
Case Else
Response.write("A = "&Ab)
End Select
%>