set ekle=server.CreateObject("ADODB.recordset" )
sorgum = "Select * from kayit where id = "&id&""
ekle.open sorgum,bag,1,3
ekle("level" )=ekle("level" )+1
ekle("sayi" )=ekle("sayi" )+1
ekle.update

Yazan yeri

sorgum.execute("Update kayit set level = level + 1, sayi = sayi + 1 where id = "&id&"")

olarak değiştirirmisin ve onun altındaki

ekle.close yazan yeri silebilirsin.