谁来帮帮我？

帮我看看下面得代码哪有毛病？
为什么strName,strAge,strtel,stradr,strmail不能添加到数据中？
dim strName,strAge,strtel,stradr,strmail,stra1.stra2,stra3,stra4,stra5,objrs
'下面两句是服务器获取提交的数据
strName=request.form("txtName")
strAge=request.form("txtAge")
strtel=request.form("txttel")
stradr=request.form("txtadr")
strmail=request.form("txtmail")
stra1=request.Form("a1")
stra2=request.Form("a2")
stra3=request.Form("a3")
stra4=request.Form("a4")
stra5=request.Form("a5")
'下面是连接数据库，并向数据库中添加数据
Set objrs=Server.CreateObject("ADODB.RecordSet")
objrs.Open "表1","dsn=sj;",Adopenstatic,Adlockpessimistic,Adcmdtable
'还要先设置一个系统数据源，数据源名为sj
'设置数据源是在控制面板的管理工具里
objrs.Addnew
objrs("姓名")=strName
objrs("年龄")=strAge
objrs("电话")=strtel
objrs("地址")=stradr
objrs("E-MAIL")=strmail
objrs("第一题")=stra1
objrs("第二题")=stra2
objrs("第三题")=stra3
objrs("第四题")=stra4
objrs("第五题")=stra5
objrs.UpDate
objrs.Close
Set objrs=Nothing
%>
提交成功~谢谢您的参与，请等待我们的回音。<@_@>