<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' MyDesign Haber
' http://www.mydesign.gen.tr

' Ayarlar Sayfası Kodları
' Son Düzenleme: 18 Aralık 2007 (v0.5.1)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'// Değişkenler Tanımlanıyor
Dim adoCon
Dim kdGenel
Dim kdMenu
Dim kdYardimci
Dim kdYorum
Dim kdFonksiyon
Dim strVeri
Dim strTarih
Dim blnSaat
Dim Gunler
Dim Aylar
Dim Saniye
Dim Dakika
Dim Saat
Dim Gun
Dim Gun_Adi
Dim Ay
Dim Yil
Dim intHexLength
Dim intLoopCounter
Dim strSiteAdi
Dim strSiteAdresi
Dim strCopyright
Dim blnOnayKodu
Dim intHaberSayisi
Dim intYorumSayisi
Dim strVersiyon
Dim blnAdminOnay
Dim strSiteAciklamasi
Dim blnMenuAc
Dim intKoseYazilari
Dim rs
Dim strMailBilesen
Dim strMailSMTPUsername
Dim strMailSMTPPass
Dim strMailServer
Dim strSiteMail
Dim intArananKategori
Dim strVeriTabaniYolu
Dim LinkTuru

Const strScriptYolu = "/gazete/"
Const strCerezAdi = "myhaber"
strVeriTabaniYolu = strScriptYolu &"./sansar/sansarim/biz23_haber.mdb"

Session.CodePage = 1254

'// Veritabanı Bağlantısı Yapılıyor
Set adoCon = Server.CreateObject("Adodb.Connection")
adoCon.open = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.MapPath(strVeriTabaniYolu) &";"

'// Kayıtsetleri Açılıyor
Set kdGenel = Server.CreateObject("Adodb.Recordset")
Set kdYardimci = Server.CreateObject("Adodb.Recordset")
Set kdMenu = Server.CreateObject("Adodb.Recordset")
Set kdYorum = Server.CreateObject("Adodb.Recordset")
Set kdFonksiyon = Server.CreateObject("Adodb.Recordset")

'// Site Ayarları Alınıyor
kdGenel.Open "SELECT TOP 1 * FROM tblAyarlar", adoCon, 1, 3
strSiteAdi = kdGenel("site_adi")
strSiteAdresi = kdGenel("site_adresi")
strSiteAciklamasi = kdGenel("aciklama")
strCopyright = kdGenel("copyright")
blnOnayKodu = kdGenel("onay_kodu")
blnAdminOnay = kdGenel("admin_onay")
intHaberSayisi = kdGenel("haber_sayisi")
intYorumSayisi = kdGenel("yorum_sayisi")
intKoseYazilari = kdGenel("kose_yazilari")
strSiteMail = kdGenel("Site_Mail")
strMailBilesen = kdGenel("Mail_Bilesen")
strMailServer = kdGenel("Mail_Server")
strMailSMTPUsername = kdGenel("SMTP_Kullanici")
strMailSMTPPass = kdGenel("SMTP_Parola")
LinkTuru = kdGenel("Link_Turu")
strVersiyon = "0.5.1"
kdGenel.Close
%>