<% 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"

%>