Es soll automatisiert gehen - ohne Enterprise Manager ohne Acces ohne irgendwas...
derzeit mach ichs so - und ich denke, daß es da wohl elegantere Möglichektien gibt:
StrSQL = "Select * From TH_Country"
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS1 = Server.CreateObject("ADODB.Recordset")
RS1.open StrSQL, strConnSrc,1,1
RS.Open StrSQL, StRConnDest,1,3
while not RS1.eof
RS.AddNew
for i=1 to 53
RS.Fields(i).Value = RS1.Fields(i).Value
next
RS.Update
RS1.movenext
wend