无组件上传图片，如何将图片路径写入数据库？

我将图片上传到指定文件夹后，想把文件名写入数据库（sql server 2000。在网上搜索N遍后，还是没能解决。
部分代码如下：
ranNum=int(90000*rnd)+10000
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
if file.FileSize>0 then '如果 FileSize > 0 说明有文件数据
result=file.SaveToFile(Server.mappath("&filename&")) '保存文件 （这里是成功的。）

然后我想将该文件名写入数据库表1的字段pic
set rs=server.createobject("adodb.recordset")
sql="select pic from table1 where id="&clng(session("id"))
rs.open sql,conn,1,1

set rs1=server.createobject("adodb.recordset")
sql1="update table1 set pic='"&filename&"'  where id="&clng(session("id"))
rs1.open sql1,conn,1,1

set rs=nothing
set rs1=nothing
set conn=nothing

但运行后出错：
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。



请高手指教。