为什么这个submit提交不了

Question

<script language="VBScript">
sub ask()
i=msgbox "本论坛所有的帖子也将被删除,真的要删除本论坛吗？",vbokcancel+vbcritical,"警告"
if i=1 then
frm.submit
else
msgbox "no"
                  exit sub
end if
end sub
</script>

Answer 1

<form name = form1 action = excel.asp method = post>
<input name = t1>
<input name = t2>
<input type = button onclick= "ask()"></form>
<script language="VBScript">
sub ask()
i=msgbox( "本论坛所有的帖子也将被删除,真的要删除本论坛吗？",vbokcancel+vbcritical,"警告")
if i=1 then
 form1.submit()
else
msgbox "no"
                  exit sub
end if
end sub
</script>