Ya está solucionado. Lo que he hecho ha sido hacer de otra forma el update:
Cita: Set rs = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM tabla WHERE id=" & id& ""
rs.open sSQL, Conn, 3, 3
rs.update
rs("nombre") = var_nombre
rs("fecha") = var_fecha
rs.update
rs.close
Set rs = nothing
Muchas gracias.