如果有，请帮我看看这段代码
function chgstr(data)
chgstr="'"&replace(data, "'", "'")&"'"
end function

sql="insert into lx (tid,title,content) values("
sql=sql & (getmaxid()+1) &","
sql=sql & chgstr(title) &","
sql=sql & chgstr(content)&")"
conn.execute sql
出错是sql=sql & (getmaxid()+1) &"," 这一行

错误

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
/lx/3.asp, 第 18 行

那我想问一下，怎么实现自动编号，不用access库里的自动编号字段。

是这样的。如果用自动编号 id 的话，我连接就出问题了
"><%=rs("title")%>

转到2.asp的时候，我想显示记录
id=request("id")
dim rs
sql="update lx set click=click+1 where id='"&id&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1 ‘这句出错了

sql1="select * from lx where id='"&id&"'"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,0,1

这样的话就出错了，是什么原因？
错误代码：
错误类型：
Microsoft JET Database Engine (0x80040E07)
/lx/2.asp, 第 9 行

我把自动编号该为其他的字段就不出错了。
我想问的是，通过
www.5d.cn/bbs/NewsDetail.asp?id=735906
这样显示数据，如何做到的，id 是自动的哦