请帮我看看这段代码为什么不执行，很急
这是我的原代码
<%@LANGUAGE="vbSCRIPT" CODEPAGE="936"%>
<!--#include file = "openbase.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="VBScript">
sub CP_NAME_FIND()
document.form1.action="lookfuture_query.asp"
document.form1.submit()
end sub
</script>
<%
set rs = server.CreateObject("ADODB.recordset")
response.write request.Form("cp_name")
dim sql,rs,CP_id,area_id,customer_id
CP_id = "请选择"
area_id = "请选择"
customer_id = "请选择"
%>
</head>
<body>
<form name="form1" method="post">
<table width="399" border="1" align="center">
<tr>
<td colspan=2>产品名称</td>
<td colspan=7>
<select name="CP_NAME" id="CP_NAME" onChange="CP_NAME_FIND()">
<%
if request.form("cp_name") <> "请选择" then
response.write "<option value = 请选择>请选择</option>"
CP_id = request.Form("cp_name")
else
response.write "<option value = 请选择 selected>请选择</option>" end if
sql = "select * from 产品查询"
rs.open sql,conn,1
if rs.recordcount >0 then
while not rs.eof
if rs("产品id") = CP_id then
response.write "<option value = " & rs("产品id") & " selected>"& rs("产品名称") &"</option>"
else
response.write "<option value = " & rs("产品id") & ">"& rs("产品名 称") &"</option>"
end if
rs.movenext
wend
end if
rs.close
%>
</select>
</td>
</tr>
<tr>
<td width="35">型号</td>
<td colspan="3">
<select name="xinghao" id="xinghao">
<%
if CP_id <> "请选择" then
sql = "select 型号id from 眼镜资料1 where 品牌id = '" & CP_id & "'"
rs.open sql,conn,1
if rs.recordcount > 0 then
while not rs.eof
response.write "<option value = " & rs("型号id") & ">" & rs("型号id") & "</option>"
rs.movenext
wend
end if
rs.close
end if
%>
</select></td>
...
并且现在有一个现象是，当单击提交按钮后，页面执行查询工作
它说
错误：对象不支持此属性或方法：‘document.form1.submit'
怎么办呀
请各位多帮忙
问题点数：10、回复次数：1Top
1 楼lsaturn（土星-站了一晚）回复于 2004-02-01 00:13:01 得分 10
<form id="form1" name="form1" method="post">
document.all.form1.submit()Top
