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 , "<", "<")
a = replace(a , ">", ">")
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
inşallah bi cözüm buluruz 