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