男主是人妖号网游小说:asp修改记录的代码帮我检查一下哪里错了

这个是update_form上的代码

<% dim db
Set db=Server.CreateObject("ADODB.Connection")
Db.Open "Dbq=" & Server.MapPath("data\xs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)} "
dim rec,sql
sql="select*from xsb where xh='" & request.QueryString("xh")&"'"
set rec=db.execute(sql)
session("xh")=rec("xh")
%>
updata.asp上的
<%
Dim db
Set db=Server.CreateObject("ADODB.Connection")
Db.Open "Dbq=" & Server.MapPath("data\xs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)} "

dim alert,over

alert="<Script language='javascript'>alert('修改提交过程中发生严重错误！请返回重新填写表单！');history.back(1);</Script>"
over="<script language='javascript'>alert('修改信息已经成功提交！\n请返回仓库管理查看！');self.location=('list.asp');</script>"
dim varname
dim xh
dim sex
dim cs
dim xb
dim bj
dim home
dim dh
dim email
xh=request.form("xh")
varname=request.form("name")
sex=request.form("sex")
cs=request.form("cs")
xb=request.form("xb")
bj=request.form("bj")
home=request.form("home")
dh=request.form("dh")
email=request.form("email")

strsql="update xsb set name='" & varname &"',sex='" & sex &"',cs='" & cs &"', xb='" &xb&"',bj='" &bj&"',home='" &home&"',dh='" &dh&"',email='" &email&"'where xh='" & request.form("xh")&"'"
db.execute(strsql)
response.redirect"list.asp"
%>
库名是xs 表格结构是xsb(xh,name,sex,cs,xb,bj,home,dh,email),xh是主键，数据类型都是文本(运行后没有显示出错，就是不能修改记录