Merhaba arkadaşlar. Bir script kullanıyorum. Banner Yonetim panelim var. sayfada gosterdiğim banner bir kac gosterimden 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 goruntulemeye calışınca script hata veriyor. işte aşağıda ilgili kodlar şimdenden teşekkur 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 Alan_ID = "& intBannerTur
kdFonksiyon.Open bSQL, adoCon, 1, 3
If kdFonksiyon.Eof Then
'// Bu alana sabit reklam kodu ekleyebilirsiniz.
Else
' Rastgele banner secimi
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("" & _
"")
End If
kdFonksiyon("Gosterim") = intBannerGosterim + 1
kdFonksiyon.Update
End If
kdFonksiyon.Close

End Function
%>

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