ekle.open sorgum,bag,1,3 Hatası

Yedeği vardı.Demonun yazdıklarını sildim.Baştan yaptım.Sizin dediğiniz kodları koydum.ekle.close sildim.

Script error detected at line 52.
Source line: sorgum.execute("Update kayit set level = level + 1, sayi = sayi + 1 where id = "&id&"")
Description: Nesne gerekli: 'sorgum'

şu hatayı aldım.Son durum şu ;

<!-- TemplateEndEditable --></td>
    <td width="630" valign="top" class="right_column"><!-- TemplateBeginEditable name="right_column" -->
      <p>
<%
yasaricli=request.Cookies("yasaricli" )("ip" )
yasar=request.servervariables("REMOTE_ADDR" )

if yasaricli=yasar then

Response.Write "Daha önceden bu Pokemon'a yardım ettiniz!"
%>
<%else%>
<!-- #include file="db.asp" -->
<%

sorgum.execute("Update kayit set level = level + 1, sayi = sayi + 1 where id = "&id&"")
Response.Write "<b><center><font face=""Arial"" size=""2"" color=""#11B4EB"">Level Atladı"

%> 
<%end if%>
</p>
    <!-- TemplateEndEditable --></td>

Pardon hocam gözümden kaçmış

sorgum.execute yerine bag.execute yazın

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

Script error detected at line 52.
Source line: bag.execute("Update kayit set level = level + 1, sayi = sayi + 1 where id = "&id&"")
Description: Nesne gerekli: 'bag'

Verdi şimdide hocam..

Hocam db.asp nin içeriğini yazarmısın?

<%
db = Server.MapPath("db/pokemon.mdb" )
Set baglanti = Server.CreateObject("ADODB.Connection" )
baglanti.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" &db& ";"
%>

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

şeklinde yazın o halde. siz kendi kodlarınızda bag yazmışsınız onun için bag yaptım bende.

Script error detected at line 52.
Source line: baglanti.execute("Update kayit set level = level + 1, sayi = sayi + 1 where id = "&id&"")
Description: UPDATE deyiminde sözdizimi hatası.

Diyor hocam.onurhaymana@hotmail.com ekleyin siz.Msnden yardımcı olabilirmisiniz lütfen