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

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 If intBannerTur = &quot;&quot; OR IsNumeric = False Then Exit Function Dim bSQL, intRandNo, intBannerGosterim bSQL = &quot;SELECT FROM tblBanner &quot; bSQL = bSQL &amp; &quot;WHERE Durum = True AND Baslangic &lt;= #&quot;&amp; Date &amp;&quot;# AND Bitis &gt;= #&quot;&amp; Date &amp;&quot;# AND Alan_ID = &quot;&amp; 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 +0) kdFonksiyon. Move intBannerGosterim = kdFonksiyon ' Reklam HTML kodu ise If kdFonksiyon = True Then Response. Write kdFonksiyon Else Response. Write(&quot;&lt;a href=&quot;&quot;&quot;&amp; strScriptYolu &amp;&quot;reklam_yonlendir. asp?rID=&quot;&amp; kdFonksiyon &amp;&quot;&quot;&quot; target=&quot;&quot;&quot;&amp; kdFonksiyon &amp;&quot;&quot;&quot;&gt;&quot; &amp; _ &quot;&lt;img src=&quot;&quot;&quot;&amp; kdFonksiyon &amp;&quot;&quot;&quot; alt=&quot;&quot;&quot;&amp; kdFonksiyon &amp;&quot;&quot;&quot; style=&quot;&quot;border:0; width:&quot;&amp; kdFonksiyon &amp;&quot;;height:&quot;&amp; kdFonksiyon &amp;&quot;&quot;&quot; /&gt;&lt;/a&gt;&quot;) End If kdFonksiyon = intBannerGosterim + 1 kdFonksiyon. Update End If kdFonksiyon. Close End Function %&gt; ///////////////////////////////

bSQL = &quot;SELECT FROM tblBanner &quot; bSQL = bSQL &amp; &quot;WHERE Durum = True AND Baslangic &lt;= #&quot;&amp; Date &amp;&quot;# AND Bitis &gt;= #&quot;&amp; Date &amp;&quot;# AND Alan_ID = &quot;&amp; intBannerTur kdFonksiyon. Open bSQL, adoCon, 1, 3