"Microsoft JET Database Engine error '80004005'

Could not use ''; file already in use.

/hit_db.asp, line 15"

<% if session("dil") = "" then %>
<!--#include file="dil/tr.asp"-->
<% elseif session("dil") = "en" then%>
<!--#include file="dil/en.asp"-->
<% elseif session("dil") = "tr" then%>
<!--#include file="dil/tr.asp"-->
<% elseif session("dil") = "ger" then%>
<!--#include file="dil/ger.asp"-->
<% end if %>

<% 
xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("hitman.mdb") & ";"
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str



if session("uye_no") = "" then
	session("kulad") = Request.Cookies("sb_hitman")("kulad")
	session("uye_no") = Request.Cookies("sb_hitman")("no")
	session("tur") = Request.Cookies("sb_hitman")("tur")
end if

function duzenle(asx)
adi = replace(asx , " ", "_")
adi = replace(adi ,"ı", "i")
adi = replace(adi ,"İ", "I")
adi = replace(adi ,"ş", "s")
adi = replace(adi ,"ö", "o")
adi = replace(adi ,"ç", "c")
adi = replace(adi ,"ğ", "g")
adi = replace(adi ,"ü", "u")
adi = replace(adi ,"Ü", "U")
duzenle = adi
end function

function kontrol(a)
a = replace(a , "'", "")
a = replace(a , """", "")
a = replace(a , "<", "&lt;")
a = replace(a , ">", "&gt;")
a = replace(a , "=", "-")
kontrol = a
end function

strsql = "SELECT * FROM ayarlar where ayar_no=1"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2

anahtar_link = duzenle(rs("anahtar_link"))
ayar_site_adresi = rs("site_adres")
ayar_site_goster = rs("sayfa_goster")
ayar_site_yenileme = rs("yenileme")
ayar_site_anahtar_kelime = rs("anahtar_kelime")
ayar_site_aciklama = rs("aciklama")
ayar_site_yenileme_sn = rs("yenileme_sn")
ayar_site_mail = rs("site_mail")
ayar_mail_sunucu = rs("mail_sunucu")
ayar_mail_kulad = rs("mail_kulad")
ayar_mail_sifre = rs("mail_pass")
ayar_kredi_kat_sayi = rs("kredi_kat_sayi")
ayar_site_adi = rs("site_adi")
ayar_head_kodu = rs("site_kod")
kredi_yer1 = rs("orta_alan")
kredi_yer2 = rs("yan_alan")
kredi_yer3 = rs("surf_sayfasi")
ayar_reklam = rs("reklam")
ayar_hit_sayimi = rs("hit_sayimi")
ayar_ref = rs("referans_kredi")
ayar_slogan = rs("Slogan")
ayar_footer = rs("footer")
'ayar_act = rs("act")
ayar_act = 0

ayar_reklam_alt = rs("reklam_alt")
rs.close

Session.Timeout = 1440
renk_bg1 ="#AF9B29"
renk_bg = "#EEE6B7"


' Üyelik  Kontrolü

suan = date() - 1
bugun = cdate(suan)
bugun = Month(bugun) & "/" & Day(bugun) & "/" & Year(bugun)



strsql = "SELECT * FROM uyeler where uyelik_bitis_tarih > #"& bugun &"#"
set ktrl= Server.CreateObject("ADODB.Recordset")
ktrl.Open strsql, conn, 1, 2
do while not ktrl.eof

ktrl("uyelik_bitis") = ktrl("uyelik_bitis_tarih") - date()
if ktrl("uyelik_bitis") = 0 then
ktrl("uyelik_bitis") = null
ktrl("uyelik_bitis_tarih") = null
ktrl("uye_tur") = 0
end if

ktrl.update
ktrl.movenext
loop
ktrl.close


isimtescil = "evet"

%>

arkadaşlar uzun süredir aldıgım bir hata arada bu hatayı veriyor site googledan araştırdım iisde göstermişler cözümü sadece

panelim maestropanel webconfigle düzeltmeye calıstım yine aynı bu sorunun cözümünü bilen varmı uzun süredir arıyorum dogru düzgün kaynak bulamadım