<%
ql="Dbq=" & Server.Mappath("db1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
set conn=Server.CreateObject("ADODB.Connection")
conn.mode=3
conn.Open ql
set rs=server.CreateObject("adodb.recordset")
sql="Select * from kaosheng where zhunkz='"&Request.form("zhunkz")&"'"
rs.Open sql,conn
if rs.EOF and rs.BOF then
zhuanye1=Request.form("zhuanye1")
zhuanye2=Request.form("zhuanye2")
xingming=Request.form("xingming")
xingbie=Request.form("xingbie")
minzu=Request.form("minzu")
chusheng0=Request.form("chusheng0")
chusheng1=Request.form("chusheng1")
hukou=Request.form("hukou")
shenfz=Request.form("shenfz")
zhunkz=Request.form("zhunkz")
byxx=Request.form("byxx")
gaokao=Request.form("gaokao")
lianxiren=Request.form("lianxiren")
dizhi=Request.form("dizhi")
youbian=Request.form("youbian")
dianhua=Request.form("dianhua")
Email=Request.form("Email")
QQ=Request.form("QQ")
shuju="'"& zhuanye1 &"','"& zhuanye2 &"','"& xingming &"','"& xingbie &"','"& minzu &"','"& chusheng0 &"','"& chusheng1 &"','"& hukou &"','"& shenfz &"','"& zhunkz &"','"& byxx &"','"& gaokao &"','"& lianxiren &"','"& dizhi &"','"& youbian &"','"& dianhua &"','"& Email &"','"& QQ &"'"
shujubiao="Insert Into kaosheng(zhuanye1,zhuanye2,xingming,xingbie,minzu,chusheng0,chusheng1,kukou,shenfz,zhunkz,byxx,gaokao,lianxiren,dizhi,youbian,dianhua,Email,QQ,) Values("& shuju &")"
conn.Execute(shujubiao)
conn.close
Response.Redirect "baomincg.asp"
else
%>
<Script language="javascript">
alert("asdpjasopd");
history.back();
</script>
<%
end if
%>

我要做个网上报名,,,现在做到了把表的信息输入到数据库里面
请大家给我看看这个代码哪里有错啊
跪谢了啊