Microsoft JET Database Engine error '80040e14' yardımm !!!

arkadaşlar site sorunsuz bir şekilde kuruldu fakat ürün eklerken şu hata oluşuyor hatanın satırının bulundu yer anakat kısmı bi bakarmısınız lütfen


Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'id='.

/admin/shop_admin.asp, line 1324


Bunu nasıl düzeltebilirz shop_admin.asp deki kodlar ekte

'************************************************
If gorev="kaydet" Then 
'************************************************
sessionID
demo_kontrol

If request.form("altgrp")="0" then 
hataver1("Kategori Seçmediniz")
ElseIf request.form("marka")="" then 
hataver1("Üretici Seçmediniz")
Elseif request.form("adi")="" Or request.form("konu")=""  then
hataver1("Ürün adı ve detayları boş bırakılmış.")
ElseIf temizle(Request.Form("gkod1")) <> trim(session("gkodu2")) Then
hataver1("Güvenlik Kodu eksik veya yanlış.")
Else 

id        = kontrol(Request.QueryString("id"))
altgrp  = kontrol(request.Form("altgrp"))

'////////////  ANAKATBUL /////////////////////////////
sor = "select * from shop_kat WHERE id="&altgrp&"  "
vf.Open sor,sur,1,3
anakatim = vf("altgrp")
altkatim   = altgrp
vf.close

session("gkodu2")=""

If id="" Then  
yeni_kayit  = 1
upload        ="evet"
sor  = "select * from shop_veri "
vf.Open sor,sur,1,3 
vf.AddNew
'vf("uye")              = session("uyeid")
'vf("son_email")      = Now()
vf("tarih")               = Now()
vf("guncelleme")     = Now()
vf("guvenlik")          = kodver2(gkod)
vf("bugun")             = Now()
vf("ip")                   = Request.ServerVariables("REMOTE_ADDR")
Else 
sor  = "select * from shop_veri where id="&id&" "
vf.Open sor,sur,1,3 
vf("guncelleme")      = Now()
vf("satis")              = kontrol(Request.Form("satis"))
vf("sikayet")           = kontrol(Request.Form("sikayet"))
vf("not")                 = temizle(Request.Form("not"))
vf("ip")                   = Request.ServerVariables("REMOTE_ADDR")
End If

vf("vitrin")              = kontrol(Request.Form("vitrin"))
vf("onay")              = kontrol(Request.Form("onay"))

id=' "&id&" ' "


değişirmisin.

neresi anlayamadımm

hayır hocam sorun çözülmedi

koskoca r10da yardım edecek yok mu

tagları kontrol etmeni tavsiye ediyorum.

'************************************************
If gorev="kaydet" Then
'************************************************
sessionID
demo_kontrol

If request.form("altgrp")="0" then
hataver1("Kategori Seçmediniz")
ElseIf request.form("marka")="" then
hataver1("Üretici Seçmediniz")
Elseif request.form("adi")="" Or request.form("konu")="" then
hataver1("Ürün adı ve detayları boş bırakılmış.")
ElseIf temizle(Request.Form("gkod1")) <> trim(session("gkodu2")) Then
hataver1("Güvenlik Kodu eksik veya yanlış.")
Else

id = kontrol(Request.QueryString("id"))
altgrp = kontrol(request.Form("altgrp"))

'//////////// ANAKATBUL /////////////////////////////
sor = "select * from shop_kat WHERE id="&altgrp&" "
vf.Open sor,sur,1,3
anakatim = vf("altgrp")
altkatim = altgrp
vf.close

session("gkodu2")=""

If id="" Then
yeni_kayit = 1
upload ="evet"
sor = "select * from shop_veri "
vf.Open sor,sur,1,3
vf.AddNew
'vf("uye") = session("uyeid")
'vf("son_email") = Now()
vf("tarih") = Now()
vf("guncelleme") = Now()
vf("guvenlik") = kodver2(gkod)
vf("bugun") = Now()
vf("ip") = Request.ServerVariables("REMOTE_ADDR")
Else
sor = "select * from shop_veri where id="&id&" "
vf.Open sor,sur,1,3
vf("guncelleme") = Now()
vf("satis") = kontrol(Request.Form("satis"))
vf("sikayet") = kontrol(Request.Form("sikayet"))
vf("not") = temizle(Request.Form("not"))
vf("ip") = Request.ServerVariables("REMOTE_ADDR")
End If

vf("vitrin") = kontrol(Request.Form("vitrin"))
vf("onay") = kontrol(Request.Form("onay"))