asp怎么实现修改一个表，又更新一条数据

Question

<% if request.querystring("action")="dh" then
set rs=server.createobject("adodb.recordset")
sql="select * from ims_mc_members where uid="&request.form("uid")&" "
rs.open sql,conn,1,3
rs("credit1")=trim(request.form("credit1"))
rs.update
response.Write "<script language=javascript>alert('兑换成功！');window.location.href='"&request.serverVariables("HTTP_REFERER")&"';</script>"
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
上边是修改的字段
<% if request.querystring("action")="dh" then
set rs1=server.createobject("adodb.recordset")
sql="select * from mc_paidui "
rs1.open sql,conn,1,3
rs1.addnew
rs1("cart")=trim(request.form("cart"))
rs1("uid")=server.HTMLEncode(trim(request.form("uid")))
rs1("uniacid")=server.HTMLEncode(trim(request.form("uniacid")))
rs1("sh")=server.HTMLEncode(trim(request.form("sh")))
rs1("datetime")=trim(request.form("datetime"))
rs1.update
rs1.close
set rs1=nothing
conn.close
set conn=nothing
end if
%>
这里是更新的表
请问如何实现2个表一个增加，一个修改？

Answer 1

<% if request.querystring("action")="dh" then
conn.execute("Insert Into mc_paidui (cart,uid,uniacid,sh,datetime) values ('"&trim(request.form("cart"))&"',"&server.HTMLEncode(trim(request.form("uid")))&","&server.HTMLEncode(trim(request.form("uniacid")))&","&server.HTMLEncode(trim(request.form("sh")))&",'"&trim(request.form("datetime"))&"')") '注数字型用"&&",文本型用'"&&"',自己核实一下
set rs=server.createobject("adodb.recordset")
sql="select * from ims_mc_members where uid="&request.form("uid")&" "
rs.open sql,conn,1,3
rs("credit1")=trim(request.form("credit1"))
rs.update
response.Write "<script language=javascript>alert('兑换成功！');window.location.href='"&request.serverVariables("HTTP_REFERER")&"';</script>"
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>

Answer 2

把两段代码写到asp文件里面应该就可以了吧。