--bu bölümü --

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
Response.Write "<b><center><font face=""Arial"" size=""2"" color=""#11B4EB"">Level Atladı"
ekle.close

-- bununla değiştirip denermisin --

set ekle=server.CreateObject("ADODB.recordset" )
sorgum = "Select * from kayit where id = "&id
ekle.open sorgum,bag,1,3
if not ekle.eof then
if ekle("level")<> "" and ekle("sayi")<> "" then
ekle("level")= ekle("level")+1
ekle("sayi") = ekle("sayi")+1
ekle.update
else
ekle("level")=1
ekle("sayi") = 1
ekle.update
end if

Response.Write "<b><center><font face=""Arial"" size=""2"" color=""#11B4EB"">Level Atladı</font></center></b>"

end if
ekle.close
set ekle = nothing