一个网业提交数据给两个数据库如何实现

问题描述：

dim g_name,g_date,g_level,g_workpoints,g_final,g_jobnum,g_sports,g_weeks,g_week,am,pm

g_name=trim(request("g_name"))
g_date=trim(request("g_date"))
g_level=trim(request("g_level"))
g_workpoints=trim(request("g_workpoints"))
g_final=trim(request("g_final"))
g_jobnum=trim(request("g_jobnum"))
g_sports=(request("g_sports"))
g_week=trim(request("g_week"))
g_weeks="第"+trim(request("g_weeks"))+"周"
am=trim(request("glkh2.am"))
pm=trim(request("glkh2.pm"))
if g_name="" then
response.write "姓名不能为空"
response.end
end if
if g_level="" then
response.write "人员职级不能为空"
response.end
end if
if g_workpoints="" then
response.write "工作要点不能为空"
response.end
end if
if g_final="" then
response.write "完成情况不能为空"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from glkh1 glkh2 where glkh1.g_name=glkh2.name and glkh1.g_date=glkh2.date"
rs.open sql,conn,1,3
rs.addnew
rs("g_name")=g_name
rs("g_workpoints")=g_workpoints
rs("g_final")=g_final
rs("g_level")=g_level
rs("g_date")=g_date
rs("g_jobnum")=g_jobnum
rs("g_sports")=g_sports
rs("g_weeks")=g_weeks
rs("g_week")=g_week
rs("am")=glkh2.am
rs("pm")=glkh2.pm
rs.update
rs.close
set rs=nothing

问题解答：

用两次连接和关闭