Arkadaşlar update yapmaya çalıştığımda böyle bir hata alıyorum

Microsoft VBScript derleme hatas? hata '800a03ee'

')' gerekli

satır 240

set kayitedit=Baglanti.Execute ("UPDATE haberler SET haberadi='"&haberadi&"' WHERE id='"&id&"' ;")