Webmaster Forumu

Geri git   Webmaster Forumu > Webmaster Kaynak Eğitim Tanıtım Hizmet > Programlama Dilleri

Programlama Dilleri Programlama Dilleri

Cevapla
 
LinkBack Seçenekler Stil
  #1 (permalink)   iTrader 
Alt 2008-03-14, 12:59
Junior Member
 
Üyelik tarihi: Mar 2008
Mesajlar: 1
Teşekkür: 0
Thanked 0 Times in 0 Posts
Tecrübe Puanı: 0
iTrader: %0/0
suberex is an unknown quantity at this point
Unhappy BANNER SORUNU (ASP)

Merhaba arkadaşlar. Bir script kullanıyorum. Banner Yönetim panelim var. sayfada gösterdiğim banner bir kaç gösterimden sonra aşağıdaki hatayı veriyor.

//////////////////////////////////////////////////////////// /////
Microsoft JET Database Engine error '80040e21'

The Microsoft Jet database engine stopped the process because you and another user are attempting to change the same data at the same time.

/inc_fonksiyonlar.asp, line 699
//////////////////////////////////////////////////////////// /////

Bunun sebebi sanırım bannerı iki kişi aynı anda görüntülemeye çalışınca script hata veriyor. işte aşağıda ilgili kodlar şimdenden teşekkür ederim yardım edicek arkadaşlara...

///////////////////////////////////////////////

Function BannerGoster(intBannerTur)

If intBannerTur = "" OR IsNumeric(intBannerTur) = False Then Exit Function
Dim bSQL, intRandNo, intBannerGosterim

bSQL = "SELECT * FROM tblBanner "
bSQL = bSQL & "WHERE Durum = True AND Baslangic <= #"& Date() &"# AND Bitis >= #"& Date() &"# AND Alan_ID = "& intBannerTur
kdFonksiyon.Open bSQL, adoCon, 1, 3
If kdFonksiyon.Eof Then
'// Bu alana sabit reklam kodu ekleyebilirsiniz.
Else
' Rastgele banner seçimi
Randomize
intRandNo = Int((Rnd*kdFonksiyon.RecordCount)+0)
kdFonksiyon.Move(intRandNo)

intBannerGosterim = kdFonksiyon("Gosterim")
' Reklam HTML kodu ise
If kdFonksiyon("HTML") = True Then
Response.Write kdFonksiyon("Kod")

Else
Response.Write("<a href="""& strScriptYolu &"reklam_yonlendir.asp?rID="& kdFonksiyon("Banner_ID") &""" target="""& kdFonksiyon("Pencere") &""">" & _
"<img src="""& kdFonksiyon("Resim") &""" alt="""& kdFonksiyon("Baslik") &""" style=""border:0; width:"& kdFonksiyon("Genislik") &";height:"& kdFonksiyon("Yukseklik") &""" /></a>")
End If
kdFonksiyon("Gosterim") = intBannerGosterim + 1
kdFonksiyon.Update
End If
kdFonksiyon.Close

End Function
%>

///////////////////////////////
Alıntı ile Cevapla

  #2 (permalink)   iTrader 
Alt 2008-05-10, 00:33
Junior Member
 
Üyelik tarihi: Mar 2008
Mesajlar: 13
Teşekkür: 0
Thanked 0 Times in 0 Posts
Tecrübe Puanı: 0
iTrader: %0/0
kaziklivoyvoda is an unknown quantity at this point
Standart

Alıntı:
bSQL = "SELECT * FROM tblBanner "
bSQL = bSQL & "WHERE Durum = True AND Baslangic <= #"& Date() &"# AND Bitis >= #"& Date() &"# AND Alan_ID = "& intBannerTur
kdFonksiyon.Open bSQL, adoCon, 1, 3
Bunun sebebi muhtemelen buradaki kod olabilir. kdFonksiyon.Open bSQL, adoCon, 1, 3 Oradaki 3 yazısını 1 yapmayı dene bence. Çünkü sen sadece SELECT ile veri çekmeye çalışıyorsun. Ancak banner gösterim sayısını da arttırmak için yazma izniyle tabloyu açıyorsun. Tablolar yazma izniyle açılınca Access ortak kullanımlara izin vermeyebiliyor. Oradaki 3 iznini 1'e çevir. "kdFonksiyon.Open bSQL, adoCon, 1, 1" olacak yani.

Bunu yapınca

Alıntı:
kdFonksiyon("Gosterim") = intBannerGosterim + 1
kdFonksiyon.Update
kısmında hata verecek. Tabloyu okumak için açtığından dolayı gösterim sayısını arttıramayıp kızacak. O 2 satırı da silip yerine

Alıntı:
sql="update tblBanner set Gosterim=Gosterim+1 WHERE Durum = True AND Baslangic <= #"& Date() &"# AND Bitis >= #"& Date() &"# AND Alan_ID = "& intBannerTur
adoCon.execute sql
gibi bir kod yazabilirsin.

Böylece iki kişi aynı anda banner görüntülemeye kalktığında paylaşım hatasından kurtulursun diye tahmin ediyorum.
Alıntı ile Cevapla

  #3 (permalink)   iTrader 
Alt 2008-05-24, 02:06
Junior Member
 
Üyelik tarihi: May 2008
Mesajlar: 4
Teşekkür: 0
Thanked 0 Times in 0 Posts
Tecrübe Puanı: 0
iTrader: %0/0
KaiyureBoy is an unknown quantity at this point
Lightbulb it's very useful article, thanks.

can you kindly PM your MSN to me, thank you.
__________________________________________________ ____________________________
Nicole Kidman Monica Bellucci Britney Spears Avril Lavigne Paris Hilton
Alıntı ile Cevapla

Cevapla


Seçenekler
Stil

Yetkileriniz
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
468*60 Banner 15 Ytl hikmetbaysal Reklam ve Reklam Networkleri 6 2006-11-06 14:00
Ringofon banner sorunu akon Ortaklık Affliate 5 2006-10-06 15:23
Banner :p paradox Webmaster Genel Konular 6 2005-04-17 18:31


Bütün Zaman Ayarları WEZ +2 olarak düzenlenmiştir. Şu Anki Saat: 11:09 .


Powered by vBulletin® Version 3.7.2
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.1.0

Firefox