Goldrentacar scripti veri tabanı bağlantısı mdb yardım
6
●670
- 04-08-2010, 18:31:08Kimlik doğrulama veya yönetimden onay bekliyor.arkadaşım benden sana tavsiye o yazılıma hiç bulaşma tam iki gündür üzerinde çalışıyorum. Çıldırmak üzreyim hala sorularıma bende yanıt aramaktayım. Rezervasyon ksımı (admin paneli) sıkıntılı, araç ekelem ve silme kısmı sıkıntılı.. şimd yeni konu açıcaktım seninkini gördüm benden tavsiye farklı bi alternatife yönel..
- 04-08-2010, 18:54:22Üyeliği durduruldu
- 04-08-2010, 19:11:03son 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")
%>