关于VB求助

<html>
<head>
<meta http-equiv="Content-Type" c>
<title>新建网页 1</title>
</head>
<body>
<script language="vbscript">
sub button1_onclick
dim game,text1v
set game = Document.formnamne2
    texr1v=game.text1.value
    game.text1.value="haha"
    msgbox(text1v)
   end sub
   </script>
   <form name=formname2>
   请输入一个数
   <input type="text" size="3"name="text1">
                <input type="button" name="button1" value="提交">
     </form>
</body>
</html>



在此代码运行时会提示"不支持对象或方法'DOCUMENT.FORMNAME2'

请高手指教!!!!