使用变量出现问题？急救！

[nostop]

...
dim title,text
title=rs1(xxx)
'response.write title

set rs2=server.createobject("adodb.recordset")
sql2="select * from guestbook"
rs2.open sql2,conn,3,3
rs2.addnew
??? rs2("title")=text
rs2.update

///
如上代码中title的字段信息我是通过变量获得的，为什么一直报错“在应用程序所要求的名称或序数的相应集合中，ADO 找不到对象”，我改成rs2("&title&")=text也没用，但是通过response.write title得到的title值发现确实在表中存在，????如何是好，明早就要交差了，帮忙看看吧！！！

[ehom]

rs2(title)=text

[nostop]

谢谢各位关注，原码如下，请指教

<%
dim ls_pre,ls_value
set rs=server.createobject("adodb.recordset")
sql="select * from Crystal_detail"
rs.open sql,conn,3,3
rs.addnew

set rs2=server.createobject("adodb.recordset")
sql2="select distinct pre from product_base_info"
rs2.open sql2,conn,1,1
if not rs2.eof then
num=rs2.RecordCount

for i=1 to num
ls_pre=rs2("pre")
response.write ls_pre
ls_value=request.form("&ls_pre&") ///此处是获得前面的页面（底下有代码）传来的值，但好象变量连接处也有问题
response.write ls_value
rs(ls_pre)=ls_value ///？？此处有问题

rs2.movenext
next
end if
rs.update
%>
===========
前面的页面
<form action="m_add_product_ok.asp" method="post" name="add">
<TABLE>

<%
dim i,sql_1,sql_2,ls_pre

set rs=server.createobject("adodb.recordset")
sql_1="select distinct pre from product_base_info"
rs.open sql_1,conn,1,1
if not rs.eof then
num=rs.RecordCount
'response.write num

for i=1 to num

ls_pre=trim(rs("pre"))
sql_2="select value from product_base_info where pre='"&ls_pre&"'"
'response.write sql_2
set rs2=conn.execute(sql_2)

if rs2("value")<>"" then
response.write "<tr>"
response.write "<td>"
response.write ls_pre
response.write "  "
response.write "<select name='"&ls_pre&"'>"
response.write "<OPTION selected>空</OPTION>"
while not rs2.eof
value=trim(rs2("value"))
response.write "<option value="&value&">"
response.write value
response.write "</option>"
rs2.movenext
wend
response.write "</select>"
response.write "<br>"
end if
response.write "</td>"
response.write "</tr>"

rs.movenext
next
end if
%>
<%
rs2.close
rs.close
conn.close
%>

</TABLE>
<input type=submit value="提 交" name="submit">
</form>

[xikuang]

把下面的页面的[ response.write "<select name='"&ls_pre&"'>"]这句改成：{response.write "<select name="&ls_pre&">"}
然后把上面的{ls_value=request.form("&ls_pre&")}这句改成：[ls_value=request.form("ls_pre")]
试试看。

[karma]

oh, boy, you sure are good at making things complicated, try

<%
dim ls_pre,ls_value
set rs=server.createobject("adodb.recordset")
sql="Crystal_detail"
rs.open sql,conn,3,3,2

set rs2=server.createobject("adodb.recordset")
sql2="select distinct pre from product_base_info"
rs2.open sql2,conn,1,1
if not rs2.eof then
do while not rs2.eof
ls_pre=rs2("pre")
response.write ls_pre
ls_value=request.form(ls_pre)
response.write ls_value
if ls_value <> "" then
rs.addnew
rs(ls_pre)=ls_value
rs.update
end if
rs2.movenext
loop
end if
rs2.close
rs.close
set rs2=nothing
set rs=nothing
%>

[nostop]

40求救！大虾们别嫌少啦~

[neweb]

这倒没试过，如果是我就这样：

title1 = rs1("xxx")
rs2(title1) = text

[karma]

1. what is xxx in title=rs1(xxx)?
2. are you sure you have a "title" column in the guestbook table?