"Record Locked By Another User"

[Trope]

There are no other users, just me. And it's successfully writing two records before it crashes.

This is the exact error message I am getting:
"Could not read the record; currently locked by another user."


Here is my code, I am trying to take data from an old table, and insert into some new tables.

<%
Dim oldData
Dim oldData_numRows

Set oldData = Server.CreateObject(&quot;ADODB.Recordset&quot
oldData.ActiveConnection = MM_ZDatabase_STRING
oldData.Source = &quot;SELECT * FROM oldData1&quot;
oldData.CursorType = 0
oldData.CursorLocation = 2
oldData.LockType = 1
oldData.Open()

oldData_numRows = 0
%>
<%

If Request.Form(&quot;frmSubmitted&quot <> &quot;&quot; THEN

'----------------------------------------
' Populate New Database From Old Database
'----------------------------------------

' Recordsets To Close At End Of Page
'--------------------------------------
' Create Updateable Database Connection
'--------------------------------------
Set populateNewPeople = Server.CreateObject(&quot;ADODB.Recordset&quot
populateNewPeople.ActiveConnection = MM_ZDatabase_STRING
populateNewPeople.Source = &quot;SELECT * FROM tbl_people&quot;
populateNewPeople.CursorType = 2
populateNewPeople.CursorLocation = 2
populateNewPeople.LockType = 3
populateNewPeople.Open()

Set populateNewResume = Server.CreateObject(&quot;ADODB.Recordset&quot
populateNewResume.ActiveConnection = MM_ZDatabase_STRING
populateNewResume.Source = &quot;SELECT * FROM tbl_resumes&quot;
populateNewResume.CursorType = 2
populateNewResume.CursorLocation = 2
populateNewResume.LockType = 3
populateNewResume.Open()

DO WHILE NOT oldData.EOF

'--------------------------------------
' Create New Records
'--------------------------------------
populateNewPeople.AddNew
populateNewResume.AddNew

'--------------------------------------
' Populate People Table
'--------------------------------------

'......................................
' Set Initial UserName and Password
'......................................
populateNewPeople(&quot;People_UserID&quot = oldData.Fields.Item(&quot;FirstName&quot.Value
populateNewPeople(&quot;People_PassWord&quot = oldData.Fields.Item(&quot;SocialSecurityNo&quot.Value

populateNewPeople(&quot;People_EmpStatus&quot = &quot;Employee&quot;
populateNewPeople(&quot;People_FirstName&quot = oldData.Fields.Item(&quot;FirstName&quot.Value
populateNewPeople(&quot;People_LastName&quot = oldData.Fields.Item(&quot;LastName&quot.Value
populateNewPeople(&quot;People_MiddleInitial&quot = oldData.Fields.Item(&quot;MiddleInitial&quot.Value
populateNewPeople(&quot;SocialSecurityNo&quot = oldData.Fields.Item(&quot;SocialSecurityNo&quot.Value
populateNewPeople(&quot;People_OtherNamesUsed&quot = oldData.Fields.Item(&quot;OtherNamesUsed&quot.Value
populateNewPeople(&quot;People_ApplicationDate&quot = oldData.Fields.Item(&quot;ApplicationDate&quot.Value
populateNewPeople(&quot;People_InterviewDate&quot = oldData.Fields.Item(&quot;InterviewDate&quot.Value
populateNewPeople(&quot;People_Faxedto&quot = oldData.Fields.Item(&quot;Faxedto&quot.Value
populateNewPeople(&quot;People_AccountActive&quot = oldData.Fields.Item(&quot;Category&quot.Value
populateNewPeople(&quot;People_PositionDesired&quot = oldData.Fields.Item(&quot;PositionDesired&quot.Value
populateNewPeople(&quot;People_Birthdate&quot = oldData.Fields.Item(&quot;Birthdate&quot.Value
populateNewPeople(&quot;People_EEOC&quot = oldData.Fields.Item(&quot;EEOC&quot.Value
populateNewPeople(&quot;People_HourlyRate&quot = oldData.Fields.Item(&quot;HourlyRate&quot.Value
populateNewPeople(&quot;People_HoursWeek&quot = oldData.Fields.Item(&quot;HoursWeek&quot.Value
populateNewPeople(&quot;People_Address&quot = oldData.Fields.Item(&quot;HomeAddress&quot.Value
populateNewPeople(&quot;People_City&quot = oldData.Fields.Item(&quot;City&quot.Value
populateNewPeople(&quot;People_State&quot = oldData.Fields.Item(&quot;StateRegion&quot.Value
populateNewPeople(&quot;People_ZipCode&quot = oldData.Fields.Item(&quot;ZIP&quot.Value
populateNewPeople(&quot;People_Phone_Home&quot = oldData.Fields.Item(&quot;HomePhone&quot.Value
populateNewPeople(&quot;People_MessagePhone&quot = oldData.Fields.Item(&quot;MessagePhone&quot.Value
populateNewPeople(&quot;People_Comments&quot = oldData.Fields.Item(&quot;Comments&quot.Value
populateNewPeople(&quot;People_MaritialStatus&quot = oldData.Fields.Item(&quot;MaritialStatus&quot.Value
populateNewPeople(&quot;People_EmergencyContact&quot = oldData.Fields.Item(&quot;EmergencyContact&quot.Value
populateNewPeople(&quot;People_EmergencyPhone&quot = oldData.Fields.Item(&quot;EmergencyPhone&quot.Value
populateNewPeople(&quot;People_TourDate&quot = oldData.Fields.Item(&quot;TourDate&quot.Value
populateNewPeople(&quot;People_DrugScreen&quot = oldData.Fields.Item(&quot;DrugScreen&quot.Value
populateNewPeople(&quot;People_EmployeeID&quot = oldData.Fields.Item(&quot;EmployeeID&quot.Value
populateNewPeople(&quot;People_Country&quot = &quot;USA&quot;

'--------------------------------------
' Retrieve New People ID
'--------------------------------------
populateNewPeople.Update
populateNewPeople.MoveLast
newPeopleID = populateNewPeople.Fields.Item(&quot;People_ID&quot.Value

'--------------------------------------
' Insert Information Into Resume TBL
'--------------------------------------
populateNewResume(&quot;People_ID&quot = newPeopleID
populateNewResume(&quot;Resume_Exp_Company1&quot = oldData.Fields.Item(&quot;MostRecentWorkHistory&quot.Value
populateNewResume(&quot;Resume_Exp_Resp1&quot = oldData.Fields.Item(&quot;JobDuties1&quot.Value
populateNewResume(&quot;Resume_Exp_Dates1&quot = oldData.Fields.Item(&quot;From1&quot.Value & &quot; to &quot; & oldData.Fields.Item(&quot;To1&quot.Value

populateNewResume(&quot;Resume_Exp_Company2&quot = oldData.Fields.Item(&quot;WorkHistory2&quot.Value
populateNewResume(&quot;Resume_Exp_Resp2&quot = oldData.Fields.Item(&quot;JobDuties1&quot.Value
populateNewResume(&quot;Resume_Exp_Dates2&quot = oldData.Fields.Item(&quot;From1&quot.Value & &quot; to &quot; & oldData.Fields.Item(&quot;To2&quot.Value

populateNewResume(&quot;Resume_Exp_Company3&quot = oldData.Fields.Item(&quot;WorkHistory3&quot.Value
populateNewResume(&quot;Resume_Exp_Resp3&quot = oldData.Fields.Item(&quot;JobDuties3&quot.Value
populateNewResume(&quot;Resume_Exp_Dates3&quot = oldData.Fields.Item(&quot;From3&quot.Value & &quot; to &quot; & oldData.Fields.Item(&quot;To3&quot.Value

populateNewResume(&quot;Resume_Date_Created&quot = Date()
populateNewResume(&quot;Resume_Is_Public&quot = &quot;Yes&quot;
populateNewResume(&quot;Resume_Job_Wanted&quot = oldData.Fields.Item(&quot;PositionDesired&quot.Value
populateNewResume(&quot;Resume_Title&quot = &quot;Main&quot;
populateNewResume(&quot;targetpay&quot = oldData.Fields.Item(&quot;HourlyRate&quot.Value
populateNewResume(&quot;PayPerSeeking&quot = &quot;Hourly&quot;
populateNewResume(&quot;emptypes&quot = oldData.Fields.Item(&quot;HoursWeek&quot.Value
populateNewResume(&quot;travelpreference&quot = oldData.Fields.Item(&quot;Travel&quot.Value


'--------------------------------------
' Move to Next Old Record
'--------------------------------------
oldData.MoveNext
LOOP
END IF

 

[Trope]

Could not update; currently locked.

That is the error I am getting now. UGH! Any help would be soooooo appreciated.