son bir sorun kaldı oda ürün ekleme sayfasında sorun şu eğer farklı sitelerden yanıt arar ve bulursan sorunsuz bir yazılım elimize geçmiş olacak.

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/apanel/urungir.asp, line 20


------kod------------

<!--#include file="view.asp"-->
<%
id=Request.form("id")
marka=sqlkont(request.form("marka"))
model=sqlkont(request.form("model"))
fiyat_1_3=sqlkont(request.form("fiyat_1_3"))
fiyat_3_15=sqlkont(request.form("fiyat_3_15"))
fiyat_15=sqlkont(request.form("fiyat_15"))
yakit=sqlkont(request.form("yakit"))
birim=sqlkont(request.form("birim"))
ozellik=sqlkont(request.form("ozellik"))
video=sqlkont(request.form("video"))




if id="" then
bag.execute("insert into urun(marka,model,fiyat_1_3,fiyat_3_15,fiyat_15,yak it,birim,ozellik,video) values("& marka &","& model &",'"& fiyat_1_3 &"','"& fiyat_3_15 &"','"& fiyat_15 &"','"& yakit &"','"& birim &"','"& ozellik &"','"& video &"')")
set urn=bag.execute("select*from urun where arac='"& arac & "' order by id desc")
id=urn("id")
else
bag.execute("update urun set marka="& marka &", model="& model &", fiyat_1_3='"& fiyat_1_3 &"', fiyat_3_15='"& fiyat_3_15 &"', fiyat_15='"& fiyat_15 &"', yakit='"& yakit &"', birim='"& birim &"', ozellik='"& ozellik &"', video='"&video&"' where id="&id)
end if

for each alan in request.form
if left(alan,5)="foto_" then
if not request.Form(alan)="" then
if request.Form("def")=alan then
def=",def=true"
else
def=",def=false"
end if
bag.execute("update resim set uid='"& id &"', resim='"& sqlkont(request.form(alan)) &"'"& def &" where id="& mid(alan,6) )
else
bag.execute("delete from resim where id="& mid(alan,6) )
end if
elseif left(alan,4)="foto" then
if not request.Form(alan)="" then
if request.Form("def")=alan then
def1=",def"
def2=",true"
else
def1=""
def2=""
end if
bag.execute("insert into resim(uid,resim"& def1 &") values("& id &",'"& sqlkont(request.form(alan))&"'"& def2 &")")
end if
elseif left(alan,3)="oz_" then
if not request.Form(alan)="" then
bag.execute("update ozellik set urun='"& id &"', ozellik='"& sqlkont(request.form(alan)) &"', icerik='"& sqlkont(request.form("ic_" & mid(alan,4))) &"' where id="& mid(alan,4) )
else
bag.execute("delete from ozellik where id="& mid(alan,4) )
end if
elseif left(alan,4)="_oz_" then
if not request.Form(alan)="" then
bag.execute("insert into ozellik(urun,ozellik,icerik) values("& id &",'"& sqlkont(request.form(alan))&"','"& sqlkont(request.form("_ic_" & mid(alan,5))) &"')")
end if
end if
next

response.Redirect("urun.asp")
%>