进口车购置税怎么算:请叫高手,帮我连下数据库,想把save.asp与message.adb库的m.adb表连接?

【只能把输入的数据读出来，但是不知道为什么总是写不进数据库.....???】

<%
dim nc,un,pwd,pwdok,em,add
nc=request.form("txtuname") '有6变量
pwd=request.form("txtpwd")
pwdok=request.form("txtpwdok")
un=request.form("txttel")
em=request.form("txtemail")
add=request.form("txtadd")

response.write nc
response.write pwd
response.write pwdok
response.write un
response.write em
response.write add

if trim(len(nc))<4 then
response.redirect "error.asp?ErrorDescription=您的用户名不够长,请输入四个字节以上！&ErrorCode=1001"
end if

if len(pwd)<6 then
response.redirect "error.asp?ErrorDescription=请输入六位数密码！&ErrorCode=1003"
end if
if pwd<>pwdok then
response.redirect "error.asp?ErrorDescription=你两次输入的密码不一致,请重新输入！&Errorcode=1003"
end if
if trim(len(un))<6 then
response.redirect "error.asp?ErrorDescription=您的电话号码不正确,请重新输入！&ErrorCode=1002"
end if
if trim(len(em))<9 then
response.redirect "error.asp?ErrorDescription=你输入的电子邮箱有问题,请检查！&Errorcode=1004"
end if
if trim(len(add))<2 then
response.redirect "error.asp?ErrorDescription=您的地址不正确,请重新输入！&ErrorCode=1002"
end if

dim cnn,rst,ssql
set cnn=Server.CreateObject("ADODB.connection")
set rst=server.createobject("ADODB.recordset")
cnn.open "Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.mappath("message.mdb") & ";Persist security info=false"
ssql="insert into m(name,pwd,pwdok,tel,email,add) values('"&nc &"','"& pwd &"','"& pwdok &"','"& un &"','"& email &"','"& add &"')"
response.write rst.fields.count
%>