数据库记录为啥无法删除？

[nicepp]

从网上找了一段各位大牛提供的删除文件和记录代码，我的代码如下：
strP="select * from up_Images where i_ID="&cstr(id)

Set rsP=server.createobject("adodb.recordset")
rsP.open strP,conn,3
upfile=rsP("i_Url")
set fso=server.CreateObject("scripting.filesystemobject")
fso.deletefile(server.MapPath(upfile))
set fso=nothing

rsP.delete
rsP.update
rsP.close
set rsP=nothing
现在显示删除文件可以，但是无法删除数据库中记录：
出错信息提示如下：
ADODB.Recordset error '800a0cb3'

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

/manage/Editpicture.asp, line 59

请各位帮我看看，以上我的代码错在那里，谢谢！

[孟子E章]

rsP.open strP,conn,3,3

[若白师妹]

strP="select * from up_Images where i_ID="&cstr(id)

Set rsP=server.createobject("adodb.recordset")
rsP.open strP,conn,1,3
upfile=rsP("i_Url")
set fso=server.CreateObject("scripting.filesystemobject")
fso.deletefile(server.MapPath(upfile))
set fso=nothing

rsP.delete

rsP.close
set rsP=nothing

[whao]

'rs.update多余，去掉

strP="select * from up_Images where i_ID="&cstr(id)

Set rsP=server.createobject("adodb.recordset")
rsP.open strP,conn,3
upfile=rsP("i_Url")
set fso=server.CreateObject("scripting.filesystemobject")
fso.deletefile(server.MapPath(upfile))
set fso=nothing

rsP.delete

rsP.close
set rsP=nothing

[jzywh]

'rs.update多余，去掉


同意

[nicepp]

谢谢各位，我老眼昏花了，是应该rsP.open strP,conn,3,3
或者rsP.open strP,conn,1,3，怎么会少写一个呢？


rs.update去不去掉都没关系。

马上结贴补：）