帮忙看看这段程序那出问题啊 ！！！急

Question

<!--#include file="conn.asp"-->
<!--#include file="./admin/admin/inc/md5.asp"-->
<%
select1=request("select1")
select2=request("select2")
select3=request("select3")kid=request("kid")
names=request("names")
password1=request("password1")
password2=request("password2")
radiobutton=request("radiobutton")
dates=select1&"年"&select2&"月"&select3&"日"
email=request("email")
address=request("address")expr=request("expr")reason=request("reason")
tro=request("tro")
dh=request("dh")
sjzp=request("sjzp")
set rs=server.CreateObject("adodb.recordset")
sql="select * from sjsjm where xm='"&kid &"'"
rs.open sql,conn,1,3
if not rs.eof then
 response.Write("<script>alert('用户名已存在!');javascript:history.back(-1);</script>")
 rs.close
 set rs=nothing
 response.End()
 end if
 rs.close
sql="select * from users where xm='"&kid &"'"
rs.open sql,conn,1,3
 if not rs.eof then
 response.Write("<script>alert('用户名已存在!');javascript:history.back(-1);</script>")
 rs.close
 set rs=nothing
 response.End()
 end if
rs.close
set conn2=server.createobject("adodb.connection")
conn2.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("bbs1/data/Dvbbs7.mdb")
sql2="select * from Dv_user where username='"&kid&"'"
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,conn2,1,1
 if not rs2.eof then
 response.Write("<script>alert('用户名已存在!');javascript:history.back(-1);</script>")
 rs2.close
 set rs2=nothing
 response.End()
 end if
rs2.close
set rs2=nothing
sql="select * from sjsjm " 
rs.open sql,conn,1,3
rs.addnew
if radiobutton="1" then
rs("xb")="1"
else
rs("xb")="0"
end if
rs("kid")=kid
rs("xm")=names
rs("password")=password1
rs("date")=now()
rs("email")=email
rs("address")=address
rs("dates")=datesrs("expr")=exprrs("reason")=reason
rs("xxjl")=tro
rs("sjzp")=sjzp
rs("pict")=request("pict")
rs("dh")=dh
rs("shenhe")=0rs.update
rs.close
sql="select id from sjsjm where xm='"& names&"'" 
rs.open sql,conn,1,1
sjsid=rs("id")
rs.close
set rs=nothingset rs=server.CreateObject("adodb.recordset")
sql="select * from sjsjm2"
rs.open sql,conn,1,3
num=request("no")for i=1 to num
rs.addnew
rs("sjzp")=request("addname"&i)
rs("sjsm")=request("folder"&i)
rs("sjsid")=sjsid
rs.update
nextrs.close
set rs=nothing
conn.close
set conn=nothing
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("./bbs1/Data/Dvbbs7.mdb")
exec="select * from Dv_User"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3 
rs.addnew
rs("Username")=request("kid")
rs("Userpassword")=MD5(request("password1"))
rs("Useremail")=request("email")
rs("UserSex")=xb
rs("UserQuesion")=request("question")
rs("UserAnswer")=MD5(request("answer"))
rs("UserEmail")=request("email")
rs("UserFace")="Images/userface/image1.gif"
rs("UserWidth")=32
rs("UserHeight")=32
rs("UserIM")="||||||||||||||||||"
rs("UserLogins")=2
rs("UserClass")="新手上路"
rs("UserWealth")=1000
rs("UserEP")=200
rs("UserCP")=30
rs("UserLastIP")="127.0.0.1"
rs("UserFav")="陌生人,我的好友,黑名单"
rs("UserInfo")="||||||||||||||||||||||||||||||||||||||||||"
rs("UserSetting")="1|||0|||0"
rs("UserGroupID")=4
rs("TitlePic")="level10.gif"
rs("UserMsg")="1||1||福建室内设计网论坛"
rs("TruePassWord")="w1sev3h775VrZ845"
rs("JoinDate")=now()
rs.update
response.Write("<script>alert('加盟成功，点击确定返回!');location.href=""index.asp"";</script>")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>