Could not use ''; file already in use. sorunu

14-07-2008, 13:36:22

Microsoft JET Database Engine error '80004005'
Could not use ''; file already in use.
/Baglan.asp, line 13

<%@language=vbscript%><%
Response.buffer = cbool(true)
Response.Expires = -1
Session.Timeout = 360
Response.contenttype = "text/html"
Response.charset = "windows-1254"
Response.charset = "iso-8859-9"
Session.lcid = "1055"
Session.codepage = "1254"
%><%yorumlama=timer%><%
yol="5uj6B44iR413W03-9lb5w33KmE737Rn-2vadH5l3M1UkeVH-B9Fz840t74WzkE6.mdb"
Set Baglanti = Server.CreateObject("Adodb.Connection")
Baglanti.Open "Provider = Microsoft.Jet.Oledb.4.0; Data Source="& Server.MapPath(""& yol &"")
%><%
yol2="B9Fz8rtygfd74WzkE6-5uj6B44iRggW03-2vadH5l3M154eVH-9lb5w33KcdfgE737Rn.mdb"
Set Bagla = Server.CreateObject("Adodb.Connection")
Bagla.Open "Provider = Microsoft.Jet.Oledb.4.0; Data Source="& Server.MapPath(""& yol2 &"")
%><%
yol3="5uj64iR413W703-B9Fz8t74Wzk5E6-2adH5l3M1665UkeVH-9lb5w33K8737Rn.mdb"
Set Baglan=Server.CreateObject("Adodb.Connection")
Baglan.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath(""& yol3 &"")
%><%
yol4="5uj70432ad64iR1Blb533HWwFz8t75l3M1K8973Uke74Wzk5E963Rn665VH.mdb"
Set Bag=Server.CreateObject("Adodb.Connection")
Bag.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath(""& yol4 &"")
%>
<%
Set efkan = Server.CreateObject("ADODB.Recordset")
Set efkan1 = Server.CreateObject("ADODB.Recordset")

function suz(mesaj)
kelimeler = "salak,aptal,manyak"
hata =  split(kelimeler, ",")
for  i = 0 to  ubound(hata)
mesaj =  Replace(mesaj, hata(i),  string(len(hata(i)),"*"), 1,-1,1) 
next
suz=mesaj
end function


Private Function temizle(ByVal data)
    data = Replace(data, "</script>", "", 1, -1, 1)
    data = Replace(data, "<script language=""javascript"">", "", 1, -1, 1)
    data = Replace(data, "<script language=javascript>", "", 1, -1, 1)
    data = Replace(data, "script", "script", 1, -1, 0)
    data = Replace(data, "SCRIPT", "SCRIPT", 1, -1, 0)
    data = Replace(data, "Script", "Script", 1, -1, 0)
    data = Replace(data, "script", "Script", 1, -1, 1)
    data = Replace(data, "object", "object", 1, -1, 0)
    data = Replace(data, "OBJECT", "OBJECT", 1, -1, 0)
    data = Replace(data, "Object", "Object", 1, -1, 0)
    data = Replace(data, "object", "Object", 1, -1, 1)
    data = Replace(data, "applet", "applet", 1, -1, 0)
    data = Replace(data, "APPLET", "APPLET", 1, -1, 0)
    data = Replace(data, "Applet", "Applet", 1, -1, 0)
    data = Replace(data, "applet", "Applet", 1, -1, 1)
    data = Replace(data, "embed", "embed", 1, -1, 0)
    data = Replace(data, "EMBED", "EMBED", 1, -1, 0)
    data = Replace(data, "Embed", "Embed", 1, -1, 0)
    data = Replace(data, "embed", "Embed", 1, -1, 1)
    data = Replace(data, "event", "event", 1, -1, 0)
    data = Replace(data, "EVENT", "EVENT", 1, -1, 0)
    data = Replace(data, "Event", "Event", 1, -1, 0)
    data = Replace(data, "event", "Event", 1, -1, 1)
    data = Replace(data, "document", "document", 1, -1, 0)
    data = Replace(data, "DOCUMENT", "DOCUMENT", 1, -1, 0)
    data = Replace(data, "Document", "Document", 1, -1, 0)
    data = Replace(data, "document", "Document", 1, -1, 1)
    data = Replace(data, "cookie", "cookie", 1, -1, 0)
    data = Replace(data, "COOKIE", "COOKIE", 1, -1, 0)
    data = Replace(data, "Cookie", "Cookie", 1, -1, 0)
    data = Replace(data, "cookie", "Cookie", 1, -1, 1)
    data = Replace(data, "form", "form", 1, -1, 0)
    data = Replace(data, "FORM", "FORM", 1, -1, 0)
    data = Replace(data, "Form", "Form", 1, -1, 0)
    data = Replace(data, "form", "form", 1, -1, 1)
    data = Replace(data, "iframe", "iframe", 1, -1, 0)
    data = Replace(data, "IFRAME", "IFRAME", 1, -1, 0)
    data = Replace(data, "Iframe", "Iframe", 1, -1, 0)
    data = Replace(data, "iframe", "iframe", 1, -1, 1)
    data = Replace(data, "textarea", "textarea", 1, -1, 0)
    data = Replace(data, "TEXTAREA", "TEXTAREA", 1, -1, 0)
    data = Replace(data, "Textarea", "Textarea", 1, -1, 0)
    data = Replace(data, "textarea", "Textarea", 1, -1, 1)
    data = Replace(data, "on", "on", 1, -1, 0)
    data = Replace(data, "ON", "ON", 1, -1, 0)
    data = Replace(data, "On", "On", 1, -1, 0)
    data = Replace(data, "on", "on", 1, -1, 1)

    data = Replace(data, "<STRONG>", "<strong>", 1, -1, 1)
    data = Replace(data, "<strong>", "<strong>", 1, -1, 1)
    data = Replace(data, "</STRONG>", "</strong>", 1, -1, 1)
    data = Replace(data, "</strong>", "</strong>", 1, -1, 1)
    data = Replace(data, "font", "font", 1, -1, 0)
    data = Replace(data, "FONT", "FONT", 1, -1, 0)
    data = Replace(data, "Font", "Font", 1, -1, 0)
    data = Replace(data, "fOnt", "font", 1, -1, 1)
    data = Replace(data, "font", "font", 1, -1, 1)
    data = Replace(data, "mono", "mono", 1, -1, 0)
    data = Replace(data, "MONO", "MONO", 1, -1, 0)
    data = Replace(data, "MOno", "Mono", 1, -1, 0)
    data = Replace(data, "mOno", "mono", 1, -1, 1)
    data = Replace(data, "mono", "mono", 1, -1, 1)

    data = Replace(data, "<", "&lt;")
    data = Replace(data, ">", "&gt;")
    'data = Replace(data, "[", "[")
    'data = Replace(data, "]", "]")
    'data = Replace(data, """", "", 1, -1, 1)
    data = Replace(data, "=", "=", 1, -1, 1)
    'data = Replace(data, "'", "’", 1, -1, 1)

    data = Replace(data, "select", "select", 1, -1, 1)
    data = Replace(data, "join", "join", 1, -1, 1)
    data = Replace(data, "union", "union", 1, -1, 1)
    data = Replace(data, "where", "where", 1, -1, 1)
    data = Replace(data, "insert", "insert", 1, -1, 1)
    data = Replace(data, "delete", "delete", 1, -1, 1)
    data = Replace(data, "update", "update", 1, -1, 1)
    data = Replace(data, "like", "like", 1, -1, 1)
    data = Replace(data, "drop", "drop", 1, -1, 1)
    data = Replace(data, "create", "create", 1, -1, 1)
    data = Replace(data, "modify", "modify", 1, -1, 1)
    data = Replace(data, "rename", "rename", 1, -1, 1)
    data = Replace(data, "alter", "alter", 1, -1, 1)
    data = Replace(data, "cast", "cast", 1, -1, 1)
    temizle= data
End Function
if session("Giris")="Tamam" then
set yassak=bag.execute("select id, kart from kullanicilar where id="&session("id")&";")
If yassak("Kart")=3 Then
Response.Write "<script>alert('Kırmızı kart almışsınız, siteye girişiniz engellenmiştir!!!')</script>"
'Response.write "<meta http-equiv=""refresh"" content=""0;url=javascript:self.close();"">"
Response.AddHeader "Refresh", "0;url=javascript:self.close();"
Response.End
End If
yassak.close:set yassak=nothing
end if

'set sistem_durumu=baglanti.execute("select * from ayarlar;")
'if sistem_durumu("durum")=1 or not session("site")="acik" then
'response.redirect "Kapali.asp"
'response.end
'end if
%><!-- Bismillahirahmanirahim --><!-- #Include File="Guvenlik.asp" -->

bu şekilde eski sunucuda çalışan script yeni sunucuya geçinca çalışmaz oldu. Kafayı yemek üzereyim.Müşteri 2 günden beri bana kızıyor ama elimdende gelen birşey yok . Ne olur bir çıkış yolu söyleyin.

Bu hata yüzünden 2 tane hosting firması değiştirdim.Ve hep aynı sorun ...

14-07-2008, 14:24:05

#2

Cenq

Db açık kalıyor. Hosting firmanızdan sizin sitenizi ayrı bir application pool'a taşımasını isteyin. Başka sitelerden kaynaklanan hatalardan dolayı sizde etkileniyor olabilirisiz.

14-07-2008, 17:15:07

#3

Aspffice

aynı sorunu bende müşteriyle yaşadım.. Seni şu an en iyi anlayan benim galiba

Eğer sunucu senin ise CPU kullanımından aplicationlar işlem yapmamaya başlamış. Önce Sunucuna Bakmalısın Kodlarda Bir Sorun yok.

15-07-2008, 01:19:30

#4

özkanuzun

Maalesef Aspffice sunucu benim değil.Sunucumu kapattığımdan dolayı böyle bir sorun ile karşılaştım.2 tane hosting firmasınıda denedim şuan için hep aynı hataları alıyorum bundan dolayı ne yapacağımı şaşırmış durumdayım.

16-07-2008, 01:46:13

#5

turk023

bilmiyorum ne derece etkili olur ama sanal yol yerine reel yol kullan yani

db_dizin = "C:\Inetpub\vhosts\domain.com\httpdocs\dbklaso run"
root_dizin = "C:\Inetpub\vhosts\domain.com\httpdocs\"

set BAGLAN=Server.CreateObject("ADODB.Connection")
BAGLAN.Provider="Microsoft.Jet.OLEDB.4.0"
BAGLAN.Open ""&db_dizin&"\"&veri_tabani&".mdb"

aklıma birtek bu geldi başka bir sey gelmedi cunku kodlarin saglam

16-07-2008, 08:50:23

#6

sanaldata

İlk önce sana şunu sorayım
1.Hostaki veritabanını bilgisayarına indirip access ile açabiliyormusun ve/veya açarken hata veriyormu?
2.İndirdiğin veritabanında hata vermiyorsa db yi veritabanı araçlar kısmında onar/sıkıştır yap
3.hosta db yi atarken bütün db ile bağlantı içeren kodları sil upload bittikten sonra kodları upload et
eğer 1.sorudan hata varsa veritabanını buraya eklicegim kod ile hostta kopyalıcaksın

16-07-2008, 21:08:31

#7

kubilay

az önce bi scripte seo yaparken benim başıma geldi, localhostta çalıştırıyodum, bilgisayarı yeniden başlattım site açılmaya başladı. fakat veritabanını elle açtığımda da aynen bu hatayı tekrar alıyorum.

17-07-2008, 01:24:10

#8

turk023

bu sorunun kesin cozumu formattır aslında arkadaslar pek yapıcı bir cozum değil ama baş edilmiyorsa bu hatayla yapilmasi gereken budur

18-07-2008, 03:48:13

#9

sanaldata

turk023 adlı üyeden alıntı: mesajı görüntüle

bu sorunun kesin cozumu formattır aslında arkadaslar pek yapıcı bir cozum değil ama baş edilmiyorsa bu hatayla yapilmasi gereken budur

aslında formata gerek yok ;

RapidShare: Easy Filehosting

bu linkteki dosyayı download ettikten sonra kendinize göre editleyip hosta çalıştırmanız sorununuzu çözer.Saygılarımla