电脑开发培训机构:asp用户注册处理,哪位大虾就小弟于水深火热!

这是一个处理注册的程序,它获取表单的信息,并且判断两次密码是否相同
,注册时在数据库中查询是否存在以注册用户名.
错误如下:
错误类型：
Microsoft JET Database Engine (0x80040E07)
标准表达式中数据类型不匹配。
/网上书店/do_register.asp, 第 18 行
原代码如下:
<%
Dim a1,a2,a3,a4,a5,a6,a7,a8,b,cn,query
a1=Trim(Request.Form("usernick"))
a2=Trim(Request.Form("userpasswd"))
a3=Trim(Request.Form("userpasswd2"))
a4=Trim(Request.Form("username"))
a5=Trim(Request.Form("usertele"))
a6=Trim(Request.Form("useremail"))
a7=Trim(Request.Form("useraddress"))
a8=Trim(Request.Form("usercomment"))
Set cn=Server.CreateObject("ADODB.Connection")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("BookStore.mdb")
Set rs=Server.CreateObject("ADODB.RecordSet")
If a2<>a3 Then
Response.Write("您输入的两次密码不一致，请<a href='register.asp'>返回重新输入</a>")
Else
b="select * from UserInfo1 Where UserNick='" & a1 & "'"
rs.open b,cn
If rs.eof then
'a4=" ' "&a1&" ',' "&a2&" ' "
query="insert into UserInfo1(UserNick,"
query=query+"UserPasswd,"
query=query+"UserName,"
query=query+"UserTele,"
query=query+"UserEmail,"
query=query+"UserAddress,"
query=query+"UserComment)values('"
query=query+a1+"','"
query=query+a2+"','"
query=query+a4+"','"
query=query+a5+"','"
query=query+a6+"','"
query=query+a7+"','"
query=query+a8+"')'"
cn.Execute query
Response.Write("恭喜，用户名注册成功，请<a href='login.asp'>进入首页登陆系统</a>")
Else
Response.Write("该用户名已经被人使用，请<a href='register.asp'>返回重新填写</a>")
End If
rs.close
Set rs=Nothing
cn.close
Set cn=Nothing
End if
%>