求助入库问题！
<% fcfangWDO.MoveNext
col = col + 1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dim conn,db,rs,sql,connstr
set conn = server.CreateObject("adodb.connection")
'connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
db = "data.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from house where name="&trim(fcfangWDO.Rs(0))
rs.open sql,conn,1,1
if not rs.eof then
rs.close
sql="select * from house"
rs.open sql,conn,1,3
Rs.AddNew
Rs("name")=trim(fcfangWDO.Rs(0))
Rs("types")=trim(fcfangWDO.Rs(3))
Rs("price")=trim(fcfangWDO.Rs(2))
Rs("nname")=trim(fcfangWDO.Rs(1))
Rs("phone")=trim(fcfangWDO.Rs(4))
Rs("remark")=trim(fcfangWDO.Rs(5))
Rs.Update
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
rs.close
set rs=nothing
else
response.write "有相同数据"
end if
'next
Wend
Set fcfangWDO = Nothing
rs.close
'rs = nothing
set conn = nothing
%>
错误提示：
错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/wdo/flea.asp, 第 127 行
127 行是：rs.open sql,conn,1,1
