请教高手

<%@ page language="vb" %>
<script runat="server">class kidd
public birthday as datetime ="1999/9/9"sub myweek(strdry as datetime)
dim i as integer
i=birthday.dayofweek
select case i
case 0
response.write("Sunday")
case 1
response.write("Monday")
case 2
response.write("Tuesday")
case 3
response.write("Wednesday")
case 4
response.write("Thursday")
case 5
response.write("Friday")
case 6
response.write("Saturday")
end select
end subend classsub button_click(obj as object, e as eventargs)
dim objkidd as new kiddobjkidd.myweek("1981/2/3")
end sub</script><html>
<body>
<form runat="server">
<asp:button id="btsubmit" text="submit" runat=server onclick="button_click"/><p>
</form>
</body>
</html>
我想通过上面的程序来知道我生日的星期数,我把我的资料定义成一个类,生日是其中的一个属性.而子程序myweek是求生日是星期几的子程序.但我在运行出现了"Reference to a non-shared member requires an object reference"的错误.为什么?怎么改?谢谢大家.(我用函数做能通过了，但我想用子程序来做一个.)