<!--#include file="ayarlar.asp"-->
 <% 
	db_veriyolu ="" & vtyolu & "/"& vtadi &""

	set Baglantim = server.createobject("adodb.connection")
	Baglantim.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.mappath(db_veriyolu & ".mdb")

	Set data=Server.CreateObject("ADODB.Connection") 
	data.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath(db_veriyolu & ".mdb")
 	

	Set Rs=Server.CreateObject("Adodb.Recordset")
	Set Ra=Server.CreateObject("Adodb.Recordset")
	Set Rf=Server.CreateObject("Adodb.Recordset")
	Set Ru=Server.CreateObject("Adodb.Recordset")
	Set Rk=Server.CreateObject("Adodb.Recordset")	
	Set Rl=Server.CreateObject("Adodb.Recordset")
	Set Rt=Server.CreateObject("Adodb.Recordset")
	Set Rv=Server.CreateObject("Adodb.Recordset")
	Set Ry=Server.CreateObject("Adodb.Recordset")
	Set Rz=Server.CreateObject("Adodb.Recordset")
	Set Ru=Server.CreateObject("Adodb.Recordset")
	Set Rx=Server.CreateObject("Adodb.Recordset")
	Set Rfs=Server.CreateObject("Adodb.Recordset")
	Set Ras=Server.CreateObject("Adodb.Recordset")
	Set Rax=Server.CreateObject("Adodb.Recordset")
	Set Rj=Server.CreateObject("Adodb.Recordset")
	sayfa=Request.QueryString("sayfa")
	islem=Request.QueryString("islem")
	kanal=Request.QueryString("kanal")
	fkodu=Request.QueryString("fkodu")
	skodu=Request.QueryString("skodu")
	hkodu=Request.QueryString("hkodu")
	ukodu=Request.QueryString("ukodu")
	askodu=Request.QueryString("askodu")
	firma_id=Request.QueryString("firma_id")
	urun_id=Request.QueryString("urun_id")
	sayfaid=Request.QueryString("sayfaid")
	id=Request.QueryString("id")
%>
<%  
	sorgum="select *from ayarlar"
	rl.open sorgum,Baglantim,3,3
	siteadi			=	rl("site_adi")
	copyright		=	rl("copyright")
	siteslogan		=	rl("site_slogan")
	siteurl			=	rl("site_url")
	sitemail		=	rl("site_mail")
	mailsunucu		=	rl("mail_sunucu")
	mailbilesen		=	rl("mail_bilesen")
	siteyetkili		=	rl("site_yetkili")
	siteili			=	rl("site_ili")
	havaili			=	rl("hava_ili")
	if Session("sitetema")="" then
	 sitetema		=	rl("site_tema")
	else
	 sitetema		= 	Session("sitetema")
	end if
	siteduyuru		=	rl("site_duyuru")
	secilenfirma	=	rl("secilen_firma")
	sitekonum		=	rl("konum")
	sitegenislik	=	rl("site_genislik")
	menustili		=	rl("menu_stili")
	anasayfastili	=	rl("anasayfa_stili")
	rl.close
' Blok ayarları alınıyor...

	sorgum="select *from bloklar"
	rl.open sorgum,Baglantim,2,3
	girisreklam	=	rl("giris_reklam")
	uyepaneli	=	rl("uye_paneli")
	hitfirmalar	=	rl("hit_firmalar")
	sitesayfalari	=	rl("sayfalar")
	ayinfirmasi	=	rl("ayin_firmasi")
	sagreklamust	=	rl("sag_reklam")
	maillist	=	rl("maillist")
	istatistikler	=	rl("istatistikler")
	sitearama	=	rl("arama")
	kategorilistesi	=	rl("kategoriler")
	solreklamust	=	rl("sol_reklam")
	anketler	=	rl("anket")
	eczane		=	rl("eczane")
	aktuelbilgi	=	rl("aktuel")
	havadurumu	=	rl("hava_durumu")
	dovizbilgileri	=	rl("doviz_bilgileri")
	sonozeller	=	rl("son_ozel")
	anasayfareklam	=	rl("anasayfa_reklam")
	anasayfareklamalt=	rl("anasayfa_reklam_alt")
	sitehaber	=	rl("site_haber")
	tarihsaat	=	rl("tarih_saat")
	makaleler	=	rl("makale_kosesi")
	sagsabit	=	rl("sag_sabit_reklam")
	solsabit	=	rl("sol_sabit_reklam")
	temasecimi	=	rl("tema_secimi")
	mansethaber	=	rl("manset_haber")
	sonnormaller	=	rl("son_normal")
	sonurunler	=	rl("son_urun")
	sonilanlar	=	rl("son_ilan")
	sitedili	=	rl("site_dili")
	solreklamorta	=	rl("sol_reklam2")
	solreklamalt	=	rl("sol_reklam3")
	sagreklamorta	=	rl("sag_reklam2")
	sagreklamalt	=	rl("sag_reklam3")
	vitrinfirmalar	=	rl("vitrin_firmalar")

	rl.close

	
	ip=Request.ServerVariables("HTTP_CLIENT-IP")
	sorgum="select * from saldiran where engel=true and ip like '%"&ip&"%'"
 	Rs.Open Sorgum, Baglantim, 1, 3 	 
	i = rs.recordcount
	rs.close
	if i<>0 then
	 Response.Redirect("/engelli")	
	end if 	

%>


<!--#include file="func.asp"-->