Update i mange tabel

Jeg har en søgeside, hvor indholdet af en kasse findes og indsættes i en formular i tekstfelter. Her vil jeg gerne kunne rette i felterne og opdatere alt indold i kassen på en gang.

Hvordan gør man det?

Det nærmeste jeg er kommet efter utallige forsøg er:

fejlmeddelelse:
Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: 'CommandText'

På dette forsøg:
sub RetIndholdet

  dim strSQL

  strSQL="update Indhold set Antal = '" & Request.Form("Antal") & "'" 
  strSQL=strSQL & "Materiale=        '" & Request.Form("Materiale") & "'"
  strSQL=strSQL & "Materialetype=    '" & Request.Form("Materialetype") & "'"
  strSQL=strSQL & "WHERE IndholdID=  '" & Request.Form("IndholdID") & ";"

  dim objCMD
  Set objCMD = server.createobject("ADODB.Command")
  with objCMD
  .ActiveConnection = strConnect
  .Commandtype = adCmdText
  .CommandText  strSQL
  .execute
  end with
  set objCMD = Nothing
end sub


og fejlmeddelse:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler et komma. i forespørgselsudtrykket "IndholdID=1099, 1100, 1101, 1102, 1103, 1104, 1105, 1106, 1107,".
/emnekasse/redigerindholdMform.asp, line 168

på dette forsøg:
sub RetIndhold

  dim strSQL, objRS, Connect

  Set Connect = Server.CreateObject("ADODB.Connection")
  Set objRS = Server.CreateObject("ADODB.Recordset")

  Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Emnekasser.mdb")
 
  strSQL = "SELECT Indhold.IndholdID, Indhold.KatalogRef, Indhold.Antal, Indhold.Materiale, Indhold.Materialetype, Indhold.Pris FROM Indhold WHERE IndholdID=" & Request("IndholdID") & ","
  objRS.Open strSQL, Connect, adOpenStatic, adLockBatchOptimistic

  objRS("Antal")=Request("Antal")
  objRS("Materiale")=Request("Materiale")
  objRS("Materialetype")=Request("Materialetype")
if Request("Pris")<>"" then
  objRS("Pris")=Request("Pris")
end if
  objRS.Update

  Connect.close
  Set connect = Nothing
  objRS.close
  Set ofjRS = Nothing
end sub