<%
dim objConn, objRS1, objRS2, objRS3

sub OpenDatabase()
  'open database object here instead of in page
  Set objConn = Server.CreateObject("ADODB.Connection")
  'Connect object to database through global.asa application variable
  objConn.Open = Application("test_ConnectionString")
  'Create recordset object to use
  Set objRS1 = Server.CreateObject("ADODB.Recordset")
  Set objRS2 = Server.CreateObject("ADODB.Recordset")
end sub

sub CloseDatabase
  Set objRS1 = Nothing
  Set objRS2 = Nothing
  objConn.Close
  Set objConn = Nothing
end sub

function UnNull(numval)
  if isnull(numval) then
     UnNull="NULL"
  else
     UnNull=cstr(numval)
  end if
end function


OpenDatabase

strSQLQuery = "select * from test where test_id in (1,2) order by test_id"
objRS1.Open strSQLQuery, objConn, 1, 3

do while not objRS1.eof
   objRS2.Open "test", objConn, 1, 3
   objRS2.AddNew
   old_test_id = objRS1("test_id")

   objRS2("test_desc") = objRS1("test_desc")
   objRS2.Update
   objRS2.Close
   
   ' *1 objRS1.Close

   strSQLQuery = "select @@IDENTITY as new_id"
   objRS2.Open strSQLQuery, objConn
   new_test_id=objRS2("new_id")
   objRS2.close

   response.write("Old ID = " & UnNull(old_test_id) & ", New ID = " & UnNull(new_test_id))
   response.write("<p>")

   ' *2 response.end

   objRS1.movenext
loop

objRS1.close

CloseDatabase

%>