Hvad er der galt her?

Jeg vil gerne opdatere to rækker på en gang, hvad gør jeg galt her?

Set Recordset = Server.CreateObject("ADODB.Recordset")
Svar = "Select * From indlaeg Where id = "& Request("indlaeg") &""
Recordset.Open Svar, Connection, 1, 3

Recordset("accepteret") = "1"
Recordset("accepteretid") = Request("accepteretid")
Recordset.Update

Recordset.Close
Set Svar = Nothing
Set Recordset = Nothing

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Indlaeg = "Select * From indlaeg Where id = "& Request("id") &""
Recordset2.Open Indlaeg, Connection, 1, 3

Recordset2("accepteret") = "1"
Recordset2.Update

Recordset2.Close
Set Indlaeg = Nothing
Set Recordset2 = Nothing