一个表单如何向两个数据库插入信息？？？？

再加一个添加就行了，比如要向另外一个名叫email2的表插入数据：
sql="select * from seegogo_User where username='"&username&"' or email='"&email&"' "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
DataNum=DataNum+1
if not(rs.BOF and rs.EOF) then
Response.Write "<table align=center><tr><td>出现如下错误:</td></tr><tr><td>此用户已经被注册或你输入的电子邮件已经在系统中存在</td></tr></table>"
else
rs.AddNew'写入用户至数据库
rs("admin")=0
If Application(BBSInfo&"sysinfo")(11,0)=true then
rs("lock")=2
checkpass=rndNum(8)
rs("UserPage")=checkpass
else
rs("lock")=0
end if
rs("username")=username
rs("sex")=sex
rs("password")=md5(password1)
rs("passfaq")=""
rs("passdh")=""