Hatayı incelersen eğer zaten sana sorunun kaynaklandığı yeri söylemiş.

Bu satırı;

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

böyle değiştirmelisin;

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

ayrıca sorgularında command parameters'larını kullanmanı öneririm. Bu şekilde kullanılan yapı sql injection'a açık davetiyedir.

kaynak.

edit: tarihe bakmadan cevapladım :o Kusura bakmayın.