<!--#include file="conn.asp" -->

<%
dim filepath,id
sql = "Select * from book"
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,3,2
id=rs("id")
folder = "page/"
filepath="htmfiles/"&id&".html"
Set rs = Server.CreateObject ("ADODB.Recordset")
sql0="update book set c_filepath='"&filepath&"' where id="&id
rs.Open sql0,conn,3,2
Set rs = Nothing
rs.close
%>

运行后提示：
Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'rs'

该怎么改？？

谢谢版主
我是想设一个字段保存文件名（以ID值为文件名）
我用上面的不行，版主你帮帮我吧

你要实现的效果是这样的,表book里有字段id,body,c_filepath
id body c_filepath
1 a htmfiles/1.html
2 b htmfiles/2.html
3 c htmfiles/3.html
4 d htmfiles/4.html

但现在只有id和body的值，c_filepath里还没有记录
id body c_filepath
1 a
2 b
3 c
4 d

就是想把c_filepath都插进如上面的记录

谢谢!!

[此贴子已经被作者于2006-8-29 10:15:32编辑过]

好,太好了,
谢谢hangxj版主