The code to renumber does not work correctly

  DIM indexNum
DIM strSQL
DIM newStrSQL
DIM rs1
dim i 
 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open MM_RU_STRING

strSql = "SELECT id FROM students"

Set rs = Conn.Execute(strSql)
i = 1
Do until rs.eof
   Conn.Execute("UPDATE Students Set id = " & i & " WHERE id = " & rs("id"))
   rs.movenext
   i = i + 1 
   
   
loop
%> 

i = 1
 Do Until rs.eof
 	rs.Edit
 	rs("id") = i
 	rs.Update
 	rs.MoveNext
 	i = i + 1
 Loop
 

 DIM indexNum
DIM strSQL
DIM newStrSQL
DIM rs1
dim i
Dim arrStudentID
 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open MM_RU_STRING

strSql = "SELECT id FROM students"

Set rs = Conn.Execute(strSql)

arrStudentID = rs.GetRows()

rs.Close

'Renumber to 10001, 10002, etc...
for i = 0 to UBound(arrStudentID)
   Conn.Execute "UPDATE Students Set id = " & i + 10001 & " WHERE id = " & arrStudentID(i)
next

'Renumber back to 1, 2, etc...
Set arrStudentID = nothing
Dim arrStudentID

Set rs = Conn.Execute(strSql)

arrStudentID = rs.GetRows()

for i = 0 to UBound(arrStudentID)
    Conn.Execute "UPDATE Students Set id = " & arrStudentID(i) - 10000 & " WHERE id = " & arrStudentID(i)
next

%>