ASP增加记录

<%
  set conn_reg=server.createobject("adodb.connection")
  conn_reg.Open "driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("data/data.mdb")
 sql="select * from ZD_Member"
  set rs_reg=server.createobject("adodb.recordset")
  rs_reg.open sql,conn_reg,3,2
  rs_reg.addnew

  rs_reg.addnew
  rs_reg("memberID")=Request.Form("memberID")
  rs_reg("memberpass")=md5(Request.Form("password"))
  rs_reg("question")=Request.Form("question")
  rs_reg("answer")=Request.Form("answer")
  rs_reg("sex")=Request.Form("sex")
  rs_reg("qq")=Request.Form("qq")
  rs_reg("tel")=Request.Form("tel")
  rs_reg("major")=Request.Form("major")
  rs_reg("school")=Request.Form("school")
  rs_reg("diploma")=Request.Form("diploma")
  rs_reg("favor")=Request.Form("favor")
  rs_reg("nationality")=Request.Form("nationality")  
  rs_reg("language")=Request.Form("language")
  rs_reg("license")=Request.Form("license")
  rs_reg("workplace")=Request.Form("workplace")
  rs_reg("address")=Request.Form("address")
  rs_reg("memberlevel")="1"
rs_reg.update
 
response.write "谢谢您注册高蓝德国际人会员，有关会员和我们服务详请拨打热线电话027-87446076,或发电子邮件info@goldlandgroup.com."
 rs_reg.close
  Set rs_reg = Nothing
  conn_reg.close
  set conn_reg=Nothing

%>