2020年庚子大难:asp怎样写入Access数据库这段代码对吗?

<%
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("asp.mdb")
conn.open connstr
%> 着段是连接数据库
-----------------------------------------------------
<%
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("asp.mdb")
set rs=server.CreateObject("adodb.recordset")
strsql="select yh,dh,qq from sj"
rs.open strsql,conn,1,3
rs.addnew
rs("yh")=Request.Form("yh")
rs("dh")=Request.Form("dh")
rs("qq")=Request.Form("qq")
rs.update
rs.close
conn.close
%> 这段是写入数据库
ASP是数据库名字 SJ 是表名
-----------------------------------------
<form name="form1" method="post" action="02.asp">

<p>用户:<input name="yh" type="text" id="yh" size="10"></p>
<p>电话:<input name="dh" type="text" id="dh" size="10"></p>
<p>Q Q:<input name="QQ" type="text" id="QQ" size="11"></p>

<p><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit" value="重置">
</p>
</form> 这段是表单
现在是写不进去数据怎么办高手帮帮我啊