源代码错误????

怎么可能

哪位高手能帮我看一下这段代码,错在哪里,我检查了一早上都没有发现错误.....


在list.asp中


<%
ListPageSize=request("pagesize")
if ListPageSize="" then
ListPageSize=6
end if
ListPageSize=Cint(ListPageSize)

SelectPage=request("SelPage")
if SelectPage="" then
SelectPage=1
end if
SelectPage=Cint(SelectPage)
..
%>
<form action="list.asp" method="post" name="ReNew">
...
<select name="pagesize">
<%for i=1 to 6 %>
<option value="<%=i*6%>" <%if ListPageSize=i*6 then%>selected<%end if%>>每页显示<%=i*6%>条</option>
<%next%>
</select>
<input type=hidden name="SelPage" value="<%=SelectPage%>">
...
</form>
<SCRIPT FOR="pagesize" EVENT="onChange" LANGUAGE="VBScript">
dim Theform
set Theform=Document.forms("ReNew")
Theform.SelPage.value=1
Theform.submit()
</SCRIPT>

调用结果:对象不支持此属性或方法: 'Theform.submit'