En une seule instruction

<%
dim oConn, sSQL, rsMAJ
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Mode = 2 ' Écriture
oConn.Open Chaine_de_Connexion
  Set rsMAJ = Server.CreateObject("ADODB.Recordset")
  sSQL = "UPDATE table SET table.champ = 'Valeur'" 
  sSQL = sSQL & "WHERE index = id;"
  Set rsMAJ = oConn.Execute(sSQL) 
  set rsMAJ = nothing
oConn.close
set oConn = nothing
%>

En plusieurs instructions

Définir le type de curseur pour « adOpenDynamic » (2). Pour modifier les enregistrements, il faut définir le LockType du jeu d’enregistrements à « adLockOptimistic » (3) de sorte que le jeu d’enregistrements est verrouillé lors de la mise à jour.

Set rsMAJ = Server.CreateObject("ADODB.Recordset")
rsMAJ.CursorType = 2
rsMAJ.LockType = 3
...

Ou directement avec la connexion :

<%
dim oConn, sSQL, rsMAJ
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open Chaine_de_Connexion
  Set rsMAJ = Server.CreateObject("ADODB.Recordset")
  sSQL = "select * from tsble where index = id;"
  rsMAJ.open sSQL,oConn,adopenstatic,adlockoptimistic
    rsMAJ("champ") = valeur
    rsMAJ.Update
    rsMAJ.Close
  set rsMAJ = nothing
  rsMAJ.Close
oConn.Close
Set oConn = Nothing
%>