麻烦各位帮我看看错误

[wenzi1987]

'更新websen_ad表
ad = Replace_Text(Request("ADID"))
dim flag,src,link
set rs3 = server.CreateObject("adodb.recordset")
sql3 = "select adname,adsrc,adlink,isok from Websen_advertisement2 where isok = 1 and adname = "&ad
rs3.open sql3,conn,1,1
src = rs3("adsrc")
link = rs3("adlink")
flag = rs3("isok")
rs3.close
set rs3 = nothing


set rs4 = server.CreateObject("adodb.recordset")
sql4 = "select adid,isok,adsrc,adlink from websen_ad where adid ="&ad
rs4.open sql4,conn,1,3
rs4("isok") = flag
rs4("adsrc") = src
rs4("adlink") = link
rs4.update
response.Write("更新成功")
rs4.close
set rs4 = nothing

conn.Close
set conn=nothing

[mengxj85]

错误原因哈。以后要问还是把错误的提示代码贴出来哈

[wenzi1987]

错误是这段代码更新不了数据，我已经看出原因了，值没有传过来，所以没有更新掉

[wangchao813]

code 没看出来有问题。。。