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"))