<!--#include virtual="adovbs.inc" -->
<%
dim DB, RS
set DB = Server.CreateObject("adoDB.connection")
DB.mode = adModeReadWrite
DB.open("provider=microsoft.jet.oleDB.4.0;data source=" & Server.Mappath("data.mDB"))
set RS = Server.CreateObject("adoDB.recordset")
RS.Open "SELECT * FROM table1", DB, AdOpenStatic, AdLockPessimistic
set RS2 = Server.CreateObject("adoDB.recordset")
RS2.Open "table2", DB, AdOpenStatic, AdLockPessimistic, adCmdTable
Do While Not RS.EOF
RS2.AddNew
RS2("name") = RS("name")
RS2.Update
RS.MoveNext
Loop
%>