asp 操作sql server2005数据库

Sub UpArticle
 Dim uid : uid = request.form("UID")
 Dim TxtPatentName: TxtPatentName=Request.form("TxtPatentName")'专利项目名称
 Dim TxtPatentNum:  TxtPatentNum=Request.form ("TxtPatentNum")'专利（申请）号
 Dim LstPatentType:  LstPatentType=request.Form("LstPatentType")'专利类型
 Dim TxtIpcName: TxtIpcName=request.Form("TxtIpcName")'技术领域
 Dim lstAuthorizeDate: lstAuthorizeDate=request.Form("lstAuthorizeDate")'法律状态
 Dim LstCooperate :  LstCooperate=request.Form("LstCooperate")'合作方式
 Dim TxtMoney: TxtMoney=request.Form("TxtMoney")'意向金额
 Dim negotiable: negotiable=request.Form("negotiable")'面议
 Dim TxtRightsP: TxtRightsP=request.Form("TxtRightsP")'权利人
 Dim TXtTel:     TXtTel=request.Form("TXtTel")'联系方式
 Dim TxtEamil:   TxtEamil=request.Form("TxtEamil")'电子信箱
 Dim Txtlinkman: Txtlinkman=request.Form("Txtlinkman")'联系人
 Dim Txtcontent: Txtcontent=request.Form("Txtcontent")'简介
 dim rs :set rs = server.CreateObject("adodb.recordset")
 'dim sqlstr :sqlstr="select * from PatentInfo "
 'dim sqlstr : sqlstr = "select * from article where articleid="&ArticleId
 dim sqlstr:sqlstr="select * from PatentInfo where uid="&uid
 rs.open sqlstr,conn,1,3
rs.update    ‘这上面
 rs.close
 set rs=nothing
 response.Write(Txtcontent)
 'call tohtml(ArticleId)
 response.Redirect("Admin_prolist.asp")
End Sub

 

以上这段代码是可以的

但是在rs.update 上面加上

rs("TxtPatentName") = TxtPatentName

 这句就会出错。这是更新代码。

哪位高手知道是怎么回事的，请告知！！

提示什么错误?会不会是没有找到uid="&uid这条记录，因此没有当前的操作记录而出错。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息