小代码求助啊

<%dim user
   user = 1
 %>
<!-- function index(x)
    select case x
    case 1    index=0
    case 二院 index=1
    case 三院 index=2
    case 四院 index=3
    case 五院 index=4
    case "六院" index=5
    case "七院" index=6
    case else msgbox()
    end select
    end function
  -->
<select    name=sel size=10 onbeforeactivate="sel.remove(index(user))">
 <option value="一院">一院
 <option value="二院">二院
 <option value="二院">三院
 <option value="二院">四院
 <option value="二院">五院
 <option value="二院">六院
 <option value="二院">七院
执行后提示end select处 变量user 未定义  哪位大大给看看哈