vb.net下一个弹出新窗口有关问题

vb.net下一个弹出新窗口问题
<script   Language= "VB "   runat= "server ">
     
        Protected   Sub   Page_Load(ByVal   sender   As   Object,   ByVal   e   As   System.EventArgs)   'Handles   Me.Load
                Session( "role ")= "1 "

                Select   Case   Session( "role ")
                        Case   "1 "
                      response.Write( " <SCRIPT   LANGUAGE= 'javascript '>   window.open   ( 'page ') </SCRIPT> ")
End   Select  
</script>


编译器错误信息:   BC30095:   “Select   Case”必须以匹配的“End   Select”结束。


------解决方案--------------------------------------------------------
好象多了个case吧...我vb语法忘光光了.
------解决方案--------------------------------------------------------
知道了,你少了一个end sub.
------解决方案--------------------------------------------------------
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) <=需要一个结束语End Sub