%
if request("AddInfo")<>"" and request("name")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from yp where id is null"
rs.open sql,conn,1,3
rs.addnew
rs("name")=htm_fn(request("name"))
rs("ypzw")=htm_fn(request("ypzw"))
rs("sex")=htm_fn(request("sex"))
rs("hyzk")=htm_fn(request("hyzk"))
rs("age")=htm_fn(request("age"))
rs("sg")=htm_fn(request("sg"))
rs("sfzhm")=htm_fn(request("sfzhm"))
rs("lxdz")=htm_fn(request("lxdz"))
rs("lxdh")=htm_fn(request("lxdh"))
rs("yxdz")=htm_fn(request("yxdz"))
rs("byyx")=htm_fn(request("byyx"))
rs("xl")=htm_fn(request("xl"))
rs("zc")=htm_fn(request("zc"))
rs("zw")=htm_fn(request("zw"))
rs("jg")=htm_fn(request("jg"))
rs("hkszd")=htm_fn(request("hkszd"))
rs("gzdw")=htm_fn(request("gzdw"))
rs("yhtc")=htm_fn(request("yhtc"))
rs("zfhs")=htm_fn(request("zfhs"))
rs("brjl")=htm_fn(request("brjl"))
rs("tbsm")=htm_fn(request("tbsm"))
rs("jtcy")=htm_fn(request("jtcy"))
rs.update
rs.close
set rs = nothing
response.write""
end if
%>
<%
if request("AddInfo")<>"" and request("name")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from yp where id is null"
rs.open sql,conn,1,3
rs.addnew
rs("name")=htm_fn(request("name"))
rs("ypzw")=htm_fn(request("ypzw"))
rs("sex")=htm_fn(request("sex"))
rs("hyzk")=htm_fn(request("hyzk"))
rs("age")=htm_fn(request("age"))
rs("sg")=htm_fn(request("sg"))
rs("sfzhm")=htm_fn(request("sfzhm"))
rs("lxdz")=htm_fn(request("lxdz"))
rs("lxdh")=htm_fn(request("lxdh"))
rs("yxdz")=htm_fn(request("yxdz"))
rs("byyx")=htm_fn(request("byyx"))
rs("xl")=htm_fn(request("xl"))
rs("zc")=htm_fn(request("zc"))
rs("zw")=htm_fn(request("zw"))
rs("jg")=htm_fn(request("jg"))
rs("hkszd")=htm_fn(request("hkszd"))
rs("gzdw")=htm_fn(request("gzdw"))
rs("yhtc")=htm_fn(request("yhtc"))
rs("zfhs")=htm_fn(request("zfhs"))
rs("brjl")=htm_fn(request("brjl"))
rs("tbsm")=htm_fn(request("tbsm"))
rs("jtcy")=htm_fn(request("jtcy"))
rs.update
rs.close
set rs = nothing
response.write""
end if
%>