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, "<", "<")
data = Replace(data, ">", ">")
'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 ...